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Summary of Amendments Number 1 



Date of Publication: March 22, 1974 

Form of Publication: TNL LN28-1060 to LY28-6423-0 

Lister Option 

New: Programming 

Produces a reformatted source listing with embedded cross-references. A reformat- 
ted source deck can also be obtained. 

VERBREF and VERBSUM Options 

New: Programming 

Produces a listing of all verbs in a source program together with the number of 
times each appears. The statement numbers in which each verb appears can also 
be listed. 

COUNT Option 

New: Programming 

Produces a listing containing the number of times each verb was executed, the 
procedure in which it appears, and the number of the statement in which it 
appears. 

IVIERGE Verb 

New: Programming 

Combines from 2 through 8 identically sequenced files into one file in ascending 
or descending order according to keys contained in each record. 

Miscellaneous Changes 

Maintenance: Programming and Documentation 

Minor changes have been made to the compiler and to the generated code. These 
are indicated in this publication by the bar to the left of the text. 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent republication of the page affected. 
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PREFACE 



This publication describes the internal 
design of the IBM DOS/VS COBOL compiler. 
The manual is intended for use by persons 
involved in program support and by systems 
programmers involved in altering the 
program design for installations requiring 
such alteration. It supplements the 
compiler listing and its comments but is 
not a substitute for them. 



• An appendix showing the generated 
coding for input/output verbs. 



• A Glossary of special terms. 



• Foldout diagrams 



The publication is divided into the 
following parts: 

• An introduction that describes the 
compiler functions and specifies the 
relationship of the compiler to the 
operating system. 

• A Method of Operations section that 
includes a chapter on each of the 
compiler phases. Within these 
chapters/ the material is organized by 
phase functions and is not necessarily 
presented in the order in which the 
phase operations are performed. 

• A Program Organization section that 
includes one chart of the overall logic 
flow for each phase and other charts 
showing detailed descriptions of some 
of the major phase routines. 

• A Directory section that shows register 
usage r flowchart labels , the tables 
used by each phase^ and a linkage 
editor map. 

• A Data Areas section showing the 
formats of the compiler Communication 
Region, the dictionary , the internal 
texts / the tables that occupy the 
table-handling area, and the tables 
that are created for object-time 
debugging purposes. 

• A Diagnostic Aids section. 

• An appendix that describes the routines 
that handle compiler tables and tjie 
dictionary . 

• An appendix that describes the object 
module produced by the compiler. 

• An appendix that describes the Report 
Writer subprogram. 



• An index. 



Effective use of this manual requires an 
extensive knowledge of the IBM Assembler 
Language / DOS/VS System Control , and the 
IBM DOS/VS COBOL language. Prerequisite 
and related publications include: 



IBM DOS/VS Operatincr Procedures ^. Order 
No. GC33-5378 

IBM OS/VS and DOS/VS Assembler Language 
Guide , Order No. GC33-4010 

IBM DOS/VS System Control Statements 
Reference r Order No. GC33-5376. 

IBM DOS/VS System Utilities Reference ^ 
Order No. GC33-5381. 

IBM DOS/VS Supervisor and I/O Macros 
Reference r Order No. GC33-5373. 

IBM DOS/VS Access Method Services , Order 
No. GC33-53B2. 

IBM DOS/VS Data Management Guide , Order 
No. GC33-5372. 

Prerequisite Program Product documents 
include: 

IBM DOS Full American National Standard 
COBOL , Order No. GC28-6394. 

IBM DOS/VS COBOL Compiler and Library 
Programmer's Guide , Order No. SC28-6478. 

IBM DOS/VS COBOL Compiler and Library 
Installation Reference Material , Order 
No. SC28-6479. 

IBM DOS/VS COBOL Subroutine Library 
Program Logic , Order No. LY28-6424. 
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SECTION 1, INTRODUCTION 



The IBM DOS/VS COBOL Compiler analyzes 
source modules written in the COBOL 
language and translates them into object 
modules. This publication describes the 
design and function of the compiler and the 
characteristics of the object program which 
it produces. 



RELATIONSHIP TO THE DOS/VS SYSTEM 



A COBOL compilation is a run unit under 
the control of the IBM DOS/VS System. The 
compiler uses the DOS/VS System Control 
Program for input/output and other 
services. For a general description of the 
System Control Program, refer to IBM DOS/VS 
System Management Guide , Order 
No. GC33-5371, and to IBM DOS/VS Supervisor 
and Input/ Out put Macros Reference , Order 
No. GC33-5373. 



PHYSICAL CHARACTERISTICS 



The compiler consists of 25 phases; from 
10 to m of these phases perform the actual 
transformation of a source module into an 
object program. Phases 05, 06, 07, and 08 
are called only if an LST card, which 
specifies the Lister option, is present. 
Phase 12 is called only if a Report Section 
appears in the Data Division. If 
optimization of the object code has been 
requested through the OPT option, phases 
62^ 63, and 64 replace phase 60. Phase 80 
is called to flag source statements which 
do not meet the Federal Information 
Processing Standard when the LVL option is 
specif ied- 

Phases 25, 65, 61 and 70 are also 
optional phases: phases 25 and 65 generate 
debugging information for the SYMDMP, FLOW, 
and/or STATE options; phase 61 produces a 
cross-reference listing if the user 
requests one; and phase 70 is used to list 
the error messages if errors were found in 
the source module. 

Of the other phases, phase 00 acts as 
the interface between the compiler and the 
operating system, phase 01 resolves BASIS 
and COPY statements and performs compiler 
initialization. 

The phases are organized into an overlay 
structure; but the overlays are controlled 



through phase 00. Phase 00 is resident in 
lower storage throughout compilation. It 
links to other phases as they are needed. 
The linkage sequence is as follows: 

Phase 00 links to phases 01, 05 (if 
LST), 06 (if LIST), 07 (if LST), 08 (if 
LST), 10, 12, 11, 20, 21, 22, 25 (if 
SYMDMP), 30, 40, 50, 51, 60, 62, 63, 64, 65 
(if SYMDMP), 61 (if XREF, SXREF, VERBSUM, 
or VERBREF) , 70 (if any diagnostic messages 
are to be written), and 8 (if LVL). 

Most phases occupy the portion of 
virtual storage contiguous to phase 00; 
pnase 8 overlays phase 00 when LVL is in 
effect. 



h- 



I— 



Supervisor 



Compiler Common 



PHOO 
(Includes LIOCS DTFSD Modules) 



Phase 01 
(Overlaid after execution) 



Tables 



Dictionary 



Work File Buffers 



1-- 



DTFMT LIOCS Module 
(Present only if the user specifies mixed 
(Tape and Disk) work files) 



H 



System File Buffers 



H 



Figure 1. Compiler Storage Layout 

Phase 00 initially occupies 12-13K bytes 
of storage (where K=1024 decimal). Phase 
00 occupies IIK bytes when phases 40 
through 65 are processing; it occupies 7K 
bytes when phase 70 is loaded. Phase 80 
overlays phase 00. In addition, tables 
created by other phases require space in 
storage. The amount varies greatly with 
each compilation. The approximate sizes of 
the other phases are: 



Phase 01 
Phase 05 
Phase 06 
Phase 07 
Phase 08 
Phase 10 
Phase 11 
Phase 12 



18K bytes 
14K bytes 
4K bytes 
5K bytes 
12K bytes 
3 OK bytes 
28K bytes 
33K bytes 
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Phase 20 
Phase 21 
Phase 22 
Phase 25 
Phase 30 
Phase 40 
Phase 50 
Phase 51 
Phase 60 
Phase 61 
Phase 62 
Phase 63 
Phase 64 
Phase 65 
Phase 7 
Phase 80 



22K bytes 

3 5K bytes 
25K bytes 

6K bytes 
14K bytes 
44K bytes 
4 OK bytes 
4 OK bytes 
32K bytes 

8K bytes 
17K bytes 

9K bytes 
22K bytes 

6K bytes 

4 9K bytes 
28K bytes 



texts, each more similar to machine code 
than the last, until it produces an object 
module suitable for input to the linkage 
editor. Figure 3 shows the various texts 
and the phases which build them, as well as 
the files on which they are passed from 
phase to phase. 



Each translation phase scans its input 
for errors and takes appropriate action. 
Unless a termination error occurs, it 
translates part or all of its input into c 
new text, further alters what had been 
beaun by a previous phase, or sometimes 
passes along existing text to a later 
phase- This process continues through 
phase 6 or phase 64, when the object 
module is assembled. 



OPERATIONAL CONSIDERATIONS 



Input to the DOS/VS compiler consists of 
a source program written in the DOS/VS 
COBOL lanouage. Input is read from either 
the SYSIPT or the SYSSLB file. 

Output depends on the options that are 
in effect for the particular compilation. 
These options may be the installation 
default options set within the compiler or 
the overrides set by the programmer on the 
OPTION statement, the CBL card or the LST 
card. The "Compiler Options" section in 
this chapter describes each of these 
options. Figure 2 summarizes the output 
produced by the compiler. The phases are 
shown in the >order in which they are 
loaded. 

DESIGN OF THE COMPILER 



The phases communicate by placing data 
in a communications area (COMMON) in 
storage, entries in the dictionary and 
other tables, and text on work files 
SYSOOl, SYS002, SYS003, and SYS004. When 
the SYMDMP, VERBREF, or VERBSUM option is 
specified, an additional work file, SYS005, 
is also used. When LVL is specified, 
SYS006 is used. Some of the tables are 
built, used, and released within a single 
phase, and others are passed to later 
phases which may or may not immediately 
follow. 



Diagram 1 shows the output and the flow 
of information and control from phase to 
phase; it is designed to supplement the 
rest of this discussion. The phases are 
discussed below in functional groups rather 
than in numerical order. 



The compiler translates the source 
program into a series of internal compiler 
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j Phase 
I- 



1 



File 



Contents 



j Options Requireci j 



H 



I— 



01 


-+- 


SYSLST 
SYSLST 

SYSLST6 


-+- 


List of options 
Error messages resulting from 
compiler initialization 
Source coding 




1 
1 
1 

1 




LIST 
LIST 

LIB 




07 




SYSLST 




One-page preface to Lister option 


listing ] 




LST 







-+- 




-+- 







-+- 








-^ 


08 


1 


SYSLST 
SYSPCH 


1 


Detailed and summary listings 
Reformatted source deck 




1 




LST 
LST 






1 




1 






1 






1 


10 




SYSLST^, 5 




Source coding of Identification, ] 


Environ 


- 1 




LIST 












ment, and Data Divisions (less Report 












1 




1 


Section) 




1 _ 










1 




1 






1 






1 


12 


1 


SYSLSTi,5 


\ 


Source coding of Report Section 




1 




LIST 






1 




1 






1 






"i 


11 




SYSLSTi,5 




Source coding of Procedure Division 






LIST 






1 




1 






1 










1 




1 






1 








25 




SYS005 




SYMDMP Dictionary (DATATAB) 








SYMDMP2 






1 




1 






1 










1 




1 






1 






"f 


30 




SYSLST 




Glossary 








SYM 







-+- 




-+■ 








-+- 








-- 1 


60 




SYSLST 




Object module 






LISTX and NOCLIST** 




or 




SYSLST 




Object module (condensed) 








CLIST^ 




62,63,64 


3 j 


SYSPCH 




Object deck 








DECK 








SYSLNK 




Object module 






CATAL or LINK 











-+- 








-+- 








-- 1 


65 








Debugging information in object module or] 


FLOW, STATE, 






1 




1 


on SYS005 




1 
1 


or 


SYMDMP 2 






1 




1 






1 






"j 


61 




SYSLST 




Cross-reference tables 




1 
1 


SXREF, XREF, 
VERBSUM or VERBREF 






1 




1 






1 










1 




1 






i 






"7 


70 


1 


SYSLST 
SYSLST 


1 


Error messages 

Error and warning messages 




1 
1 

J 


ERRS 
ERRS 


and FLAGE 
and FLAGW 






1 




I 






1 






T 


80 


1 

-X- 


SYSLST 


1 


Source program with FIPS flagging 




1 


LVL 






^If LIB 


is 


in effect. 


source coding is listed by phase 01 












2The FLOW, 


STATE, or 


SYMDMP option is required for phases 


25 and 


65 


• 






^The OPT 


option is requireci for phases 62, 63, and 64. 












^May be 


changed by SUPMAP option (see "Compiler Options" : 


Ln this 


chapter) . 




5if FIPS 


flagging has 


been requested (LVL option) , source 


program is written on SYS006 




for phase 


8 input. 
















6 Only if 


LIB, NOLVL, 


and no Lister options. 













Figure 2. Compiler Output 
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Text 



1"- 



Produced or Passed 



T T 

By(Ph) |To(Ph) |On(File) 



Description 



IP 



05 



06 



SYS002 



Source program with syntactic markers 
inserted 



IP 



06 



08 



SYS002 



Source program with cross-reference 
information included 



Data IC 



10 



20 



SYS003 



I/O and data items from source program 
Environment and Data Divisions 



Generated Report Writer subprogram from 
Report Section of source program Data 
Division 



PO 



12 



h 



30 



SYS002 



Data IC 



12 



20 



SYS003 



Data items from source program Report 
Section 



PO 



11 



h 



30 



SYS002 



Translation of source program Procedure 
Division 



Data IC 



20 



22 



SYS004 



Translation of FDs and SDs by phase 10; 
passed unchanged 



H 



ATF 



20 



22 



SYS004 



Record Descriptions of levels 01-49, 66, 11, 
and 88. ATF- text is used as part of the 
dictionary entries 



H 



Data A 
(Incomplete) 



20 



22 



SYS004 



Constants defined by VALUE clauses. This 
text has a 2-byte prefix for identification, 
but lacks location fields 



H 



PO 



22 



30 



SYS002 



Generated Q- Routines from OCCURS ... DEPENDING 
ON clauses 



Data IC 



22 



l-- 



21 



SYS003 



Translation of FDs and SDs by Phase 10; 
Passed unchanged 



H 



Data A 



22 



21 



SYS003 



Remainder of^the source program Data 
Division. This text has a 2-byte prefix for 
identif ication 



H 



DEF 



22 



21 



SYS003 



Data-names and file-names from Data Division 
for use by phase 61 in producing the 
cross-reference listing. This DEF-text is 
put out by phase 22 when SXREF, XREF, 
VERBREF, VERBSUM, or SYMDMP has been 
specified. When SYMDMP has been specijg'ied, 
phase 21 copies the text onto SYS004. If 
SXREF, XREF, VERBREF, or VERBSUM has not 
been specified, phase 60 reads the text and 
ignores it. 



FTL 



22 



h 



I 21 



ISYS003 



j FDs and SDs 



H 



^Phase 60 is replaced by phases 62, 63, and 64 when the optimizer option (OPT) has been 
specif led* 

^Error text is treated somewhat differently. It is written on SYS003 for phase 70 by 
phase 60 or 64 only if the ERRTBL table cannot accommodate it. It is produced by all 
phases between phase 01 and 51, and the accumulation is passed on SYS004. Phase 60 or 
64 or phase 70 (if phase 60 or 64 text processing is bypassed or if SYNTAX is on) 
reads it from SYS004. 

3When OPT is specified, file SYS004 is used for REF-text. 

L 

Figure 3, List of Internal Compiler Texts (Part 1 of 3) 
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h- 



Text 



Produced or Passed 



T T 

ByCPh) |To(Ph) | On (File) 



Description 



Data A 



21 



60 or 

64^ 



SYS004 



Coding similar to assembler language for 
translation into data and global table 
portions of object module 



H 



DEF 



21 



6 or 
641 



SYS004 



Data-names and file-names from Data Division 
This DEF-text is put out by phase 22 when 
SXREF, XREF, VERBREF, VERESUM, or SYMDMP has 
been specified. When SYMDMP has been 
specified, phase 21 copies the text onto 
SYS004. If SXREF, XREF, VERBREF, or VERBSUM 
has not been specified, phase 60 reads the 
text and ignores it- 



H 



PO 



21 



30 



SYS002 



VCONs for system modules, such as logic 
modules that will be required, determined 
from Data Division statements 



DEF 



30 



60 or 
641 



SYS004 



Procedure-names for use by phase 61 in 
producing the cross-reference listing 



PI 



30 



40 



SYS003 



Further translation of PO-text, Names have 
been replaced by attributes; CORRESPONDING 
statements have been expanded 



P2 



40 



50 



SYSOOl 



Further translation of Pl-text. A more 
precise and expanded version of Procedure 
Division statements 



l-- 



Intermediate A 



50 



51 



SYS002 



Procedure A-text and Optimization A-text 
elements with an identifying prefix of X'27' 
or X'28' 



F- 



H 



Optimization A 



50 






Procedure A 



51 



60 or |SYS003 | A special text, consisting of such items as 
621 I I virtuals and literals, used by phase 60 or 

phase 62 to eliminate storage duplication 

60 or I SYSOOl | Coding similar to assembler language coding, 
62 and I | It is ready for conversion into the object 

631 I I module 



h 



-f 



H 



Optimization A 



51 



60 or 
621 



SYS003 



h 



A special text, consisting of such items as 
virtuals and literals, used by phase 60 or 
phase 62 to eliminate storage duplication 



H 



Procedure Al 



63 



64 



SYS002 



Coding produced from Procedure A-text, 
optimized to eliminate unnecessary Procedure 
Division instructions. It is similar to 
assembler language, and is ready for 
conversion into the object module 



H 



Y 

iphase 60 is replaced by phases 62, 63, and 64 when the optimizer option (OPT) has been 
specif led- 

^Error text is treated somewhat differently. It is written on SYS003 for phase 70 by 
phase 60 or 64 only if the ERRTBL table cannot accommodate it. It is produced by all 
phases between phase 01 and 51, and the accumulation is passed on SYS004, Phase 60 or 
64 or phase 70 (if phase 6 or 64 text processing is bypassed or if SYNTAX is on) 
reads it from SYS004. 

^When OPT is specified, file SYS004 is used for REF-text. 

L 

Figure 3- List of Internal Compiler Texts (Part 2 of 3) 
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1 


Produced 


or Passed 








L 
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^Phase 60 is replaced by phases 62 r 63, and 64 when the optiirizer option (OPT) has been 
specif ied- 

^Error text is treated somewhat differently. It is written on SYS003 for phase 7 by 
phase 60 or 6 4 only if the ERRTBL table cannot accominodate it. It is produced by all 
phases between phase 01 and 51, and the accumulation is passed on SYS004- Phase 60 or 
64 or phase 70 (if phase 60 or 64 text processing is bypassed or if SYNTAX is on) 
reads it from SYS004. 

^When OPT is specified, file SYS004 is used for REF-text. 
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Figure 3. List of Internal Compiler Texts (Part 3 of 3) 



GROUP 1: 



Control and Initialization 



Phase 00 controls the flow. It receives 
control from and relinquishes it to the DOS 
system. It interfaces with the system for 
such Control Program services as 
input/output requested by other phases. 

Phase 00 also serves as an interface 
between the other phases, controlling the 
flow and holding shared information in 
COMMON (see "Section 5. Data Areas"). 
After each phase, except phase 80, control 
returns to phase 00, which links to the 
next one; phase 80 returns control to the 
DOS/VS system. The Table Area Management 
Executive Routines (TAMER) , part of Phase 
00, allocate storage and process tables for 
the other routines. The "Table and 
Dictionary Handling" chapter describes the 
function of TAMER. For descriptions of 
tables handled by TAMER, and for the 
dictionary format, see "Section 5. Data 
Areas". 



card. When LIB is specified. Phase 01 
reads the source program and resolves BASIS 
and COPY statements by performing syntax 
analysis on these statements and by writing 
the user created COBOL libraries inline 
with the remainder of the source program on 
SYS004. E-text for BASIS and COPY 
functions is written on SYS003 and the 
entire source language listing is produced 
on SYSLST (or SYS006 for LVL option). 



GROUP 2; Reformatting the Source Deck 



If the LST option is specified phases 
05, 06, 07, and 08 produce a reformatted 
source program with embedded 
cross-reference information and a summary 
of cross-reference information on SYSLST. 
Optionally they also produce a reformatted 
source deck on SYSPCH. These phases also 
write the source program on SYS004. 



Phase 01 is logically a subroutine of 
phase 00 but does not remain in storage 
once its tasks are accomplished. This 
phase sets the options applicable for the 
compilation and opens all files. 

If the BASIS or COPY function is used, 
the LIB option must be specified on the CBL 



GROUP 3; Translating the Identification, 
Environment, and Data Divisions 



Phases 10, 20, 22, and 21 process the 
Identification, Environment, and Data 
Divisions, with the exception of the Report 
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Section, if any, (discussed with Group 3, 
below) • Those source statements requiring 
translation are changed to Data IC-text in 
phase 10. Each of the other three phases 
translates a portion of this Data IC-text 
into Data A-text. The result is later 
joined to the Procedure Division by Phase 
60 or to Phase 64 (Group U, below) if the 
optimizer option has been specified, 

DEF-text, which provides references to 
data-names and file-names required for 



cross-reference listings, is created in 
phase 22 and passed through phase 21 to 
phase 60 or phase 64- Phase 22 also enters 
complete entries for LDs.and RDs 
(Record-level descriptions) and partial 
(dummy) entries for SDs and FDs in the 
dictionary. The SD and FD entries are 
completed by phase 21, and the dictionary 
is then ready for use by phase 30 and oy 
phase 2 5 (if the SYMDMP option is in 
effect)- PO-text, the first form of 
internal procedure text (see Group 3 
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below) , is created by phase 22 for 
Q-Routines and by phase 21 for VCONs. 
Q-Routines are special routines created to 
handle OCCURS clauses v/ith the DEPENDING ON 
option. They are explained further in the 
chapter on phase 22. The PO-text is placed 
on SYS002 for later use by phase 30. 
finally, if the LIST option is in effect 
and the LST option is not in effect, phase 
10 produces a source language listing of 
the Identification, Environment, and Data 
Divisions on SYSLST (or SYS006 for LVL 
option). (If LIB was specified, the source 
listing is produced by Phase 01.) 

Each of these phases scans its input 
text for errors and adds any necessary 
diagnostics, written in E-text, to the 
textual flow. The accumulated E-text is 
intermingled with the Data A-textand 
DEF-text on SYS004, and all three provide 
part of the input for Phase 60 or Phase 64. 
If a listing of error messages is to be 
produced. Phase 70 is later called in to 
produce it. 

The translation process can be 
visualized from the contents of the work 
files produced by the phases. These work 
files are shown in Figure 4. Note that, in 
addition to the contents shown, the work 
files contain E-text and DEF-text. The 
texts are intermingled on the work files, 
but they are readily distinguishable by 
their prefixes- The formats of the texts 
are shown in "Section 5. Data Areas." 



52. These last two texts are placed on 
SYSOOl and SYS003 for phase 60 or phase 62. 

Phase 6 converts Procedure A-text into 
the machine language program. When the 
optimizer option (specified by OPT on the 
CBL card) is in effect, phases 62 and 63 
read Procedure A-text and phase 63 converts 
it into Procedure Al-text and passes it to 
phase 64. Phase 64 then converts Procedure 
Al-text into the machine language program. 

Phase 11 also writes a source listing of 
the Procedure Division on SYSLST (SYS006 
for LVL option) if the LIST option is in 
effect. (If LIB was specified. Phase 01 
writes the source listing.) Phase 30 
writes a glossary on SYSLST (SYS006 for LVL 
option) if the SYM option is in effect. 
Phase 3 also creates DEF-text for 
procedure-names and places it on SYS004 for 
later use in producing the cross-reference 
listing. 

Each of these phases scans its input 
text for errors and adds any necessary 
diagnostics, written in E-text, to the 
textual flow. The accumulated E-text is 
intermingled with the internal procedure 
text until it is isolated by Phase 51 and 
added to SYS004 for phase 60 or phase 64. 



GROUP 5; Assembly 



GROUP 4; Translating the Procedure 
Division 



If the Report Writer facility is 
required, phase 00 calls on phase 12. This 
phase reads the Report Section of the Data 
Division, generates the report program in 
PO-text, and writes it on SYS002. Phases 
11, 30, 40, 50, 51, and 52 then process the 
Procedure Division. 

Phase 11 encodes the source program's 
Procedure Division into PO-text, and adds 
it to SYS002. It also begins the 
dictionary by placing procedure-names and 
their attributes in it- SYS002 and the 
dictionary, with the additions from phases 
22 and 21, later provide input for phase 
30. 

Phase 30 uses the information in the 
dictionary to replace each name with its 
attributes. It performs any other 
processing requiring the dictionary and 
then releases the dictionary's storage 
space. It also translates the PO-text into 
Pl-text. The text is changed into P2-text 
by phase 40, and into Procedure A- and 
Optimization A-texts by phases 50, 51, and 



The function of phase 6 or of phases 
62, 63, and 64 is to produce from the 
texts, tables, and counters that have been 
created by the earlier phases a machine 
language program that is suitable for input 
to the linkage editor. Phases 62, 63, and 
64 are an optional version of phase 6 and 
are used instead of phase 60 when the 
optimizer option (OPT) is requested. 

Phase 60 produces code that has been 
optimized for literals, virtuals, source 
procedure-names, and compiler-generated 
procedure-names. Phases 62, 63, and 64 
produce code that has been optimized for 
instructions generated from the Procedure 
Division as well as those items optimized 
for by phase 60. To produce the object 
module, the Data A-text on SYS004, the 
Procedure A-text on SYSOOl (used by phase 
60) or the Procedure Al-text on SYS002 
(used by phase 64) , and the Optimization 
A-text on SYS003 are used. Phase 63 
creates Procedure Al-text from Procedure 
A-text. 

The object module is written, according 
to the options that are in effect, as an 
object deck on SYSPCH if DECK is in effect, 
as an object listing on SYSLST (SYS006 for 
LVL option) if LISTX is in effect, as input 
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Figure 4- Contents of Work Files Used in Translating the Data Division 



to the Linkage Editor on SYSLNK if either 
LINK or CATAL is in effect, and as a 
condensed object listing on SYSLST (SYS006 
for LVL option) if CLIST is in effect. 



GROUP 6; Final and Diagnostic Output 



Final and diagnostic output for the 
compiler consists of the object module 
discussed above and other optional 
information. 

If the SXREF or the XREF option is in 
effect, phase 60 or phase 64 reads the 
DEF-text from SYS004 and places it on 
SYSOOl. Phase 60 or 64 writes the 
necessary REF-text, placing it on SYS003 or 
SYS002, respectively. phase 00 calls Phase 
61, an optional phase, which produces a 
cross-reference listing on SYSLST (or 
SYS006 for LVL option). 

If the SYMDMP option is in effect, phase 
25 is called to create tables in the Debug 
File used by the object-time COBOL library 
subroutines in producing the formatted 
dump. If the SYMDMP, STATE, or FLOW option 
is in effect, phase 60 produces debugging 
information and passes it to phase 65, an 
optional phase. For SYMDMP, phase 65 
completes the Debug File; for STATE, it 
uses the debugging information written by 
phase 60 to produce two tables in the 
object module; for FLOW, it places the 
number of traces requested in the variable 



portion of the Task Global Table in the 
object module and allocates space after 
INIT3 for the table used by the COBOL 
library object-time subroutine ILBDFLWO. 
For any of these options, phase 65 writes 
the end card in the object module, writes 
information in the TGT, and does the 
processing necessary for segmented programs 
and programs that use the SORT verb or 
MERGE verb. 

Phase 7 produces an error listing on 
SYSLST (SYS006 for LVL option) and is only 
given control if source program errors were 
detected. Phase 00 calls phase 70 and the 
input to the phase in E-text. Any phase 
which found an error produced an E-text 
element, specifying the error message to be 
written. These E-text elements are 
collected by phase 60 or phase 64 and used 
to produce the list of error messages (and 
warning messages if the user requested 
them) . 

Phase 8 scans the source program for 
deviations from the Federal Information 
Processing Standard (FIPS) and issues 
messages along with the source program 
listing. 



COMPILER OPTIOi^S 



Phase 01 stores information in COMMON in 
accordance with the options which are to 
control the compilation step. 
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All of the following options except 
LINECT may be set by the user at 
installation time as defaults or by the 
programmer on the OPTION control card, 
LINECT may be set at installation time as a 
default or by the operator- 



If no Lister options are in effect and 
an option causes output to be written on 
SYSLST, the output is written directly on 
SYSLST, if the NOLVL option is in effect. 
If the LVL option is in effect, the output 
is written on SYS006, which is used by 
phase 80 to produce a listing on SYSLST- 



APOST or QUOTE 



BUF=nnnnn 



CATAL 



DECK or NODECK 



DUMP or NODUMP 



ERRS or NOERRS 



LINECT=nn 



LINK or NOLINK 



LIST or NOLIST 



LISTX or NOLISTX 



LOG or NOLOG 



SYM or NOSYM 



XREF or NOXREF 



The ohject module is 
placed on SYSLNK and 
catalogued in the core 
image library after link 
editing- 

A deck is produced on 
SYSPCH. 

A listing of registers 
and storage is printed 
when an abnormal program 
termination occurs. 

Compiler diagnostics are 
printed on SYSLST. 

The specified number of 
lines Cnn') are printed 
on each listing page. 

The object module is 
placed on SYSLNK. 

The source module is 
printed on SYSLST. If 
LST is in effect, NOLIST 
is ignored. 

The object module is 
printed on SYSLST. 

A listing of all control 
statements is printed. 

Global tables, literal 
pools, register 
assignments, and 
glossary listing are 
printed on SYSLST. 

A cross-reference 
listing is printed on 
SYSLST. 



CATALR or 
NOCATALR 



CLIST or NOCLIST 



COUNT or NOCOUNT 



The following options may be set by the 
programmer using the CBL card or by making 
appropriate entries in source library 
member C.CBLOPTNS. Any number of CBL 
cards may be used. The default cases are 
underlined. 



The apostrophe or the 
double quotation mark 
has been used to 
delineate literals or 
represents the character 
used when the figurative 
constant QUOTE is used. 

Each compiler work file 
buffer is assigned 
'nnnnn' iDytes of 
storage. The minimiom is 
512 bytes, and the 
maximum is the maximum 
block size for the 
storage device used. 
The default is 512 
bytes. 

CATALR indicates that 
CATALR card images are 
to be written on the 
SYSPCH file if DECK is 
specified on the OPTION 
card. This allows the 
object modules produced 
by the compiler to be 
catalogued in the 
relocatable library. 
The module names on the 
CATALR cards follow the 
same rules as the phase 
names in the compiler 
produced PHASE cards 
according to the 
segmentation and sort 
phase naming 
conventions . 

Global tables, literal 
pools, register 
assignments, and a 
condensed listing are 
produced. If OPT is 
specified, the starting 
address of each 
Procedure Block (PBL) is 
also listed. The 
procedure portion 
contains source card 
numbers and the relative 
location of the first 
generated instruction 
for each verb. This 
option overrides 
NOLISTX. The default is 
LISTX. 

COUNT indicates that an 
execution summary is to 
be produced at the end 
of execution of the 
compiled program. If 
both COUNT and STXIT are 
desired, the program 
unit requesting COUNT 
either must contain the 
request for STXIT or 
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FLAGW or FLAGE 



FLOW =(nln]) 



must be entered before 
the program unit that 
requests STXIT. When 
COUNT is in effect, the 
maximum number of verb 
blocks is 32,767. 

All warning and error 
diagnostics (FLAGW) or 
only error diagnostics 
(FLAGE) are listed. 

A formatted trace (i.e., 
a list containing the 
program identification 
and statement numbers) 
corresponding to a 
variable number of 
procedures executed 
prior to an abnormal 
termination is printed 
on SYSLST. FLOW must 
not be specified for the 
same compilation as OPT 
or STXIT. 



PMAP=n 



This option enables the 
user to request a 
relocation factor "n" to 
be added to the Location 
counter field in the 
object code listing. 
The relocation factor 
"n" is a hexadecimal 
number of from one to 
eight digits. If the 
PMAP option is not 
specified, the 
relocation factor is 
assumed to be zero- If 
the PMAP option is 
specified in a segmented 
program, the object code 
listing for segments of 
priority higher than the 
segment limit (default = 
49) will not be 
relocated. This option 
is in effect only if 
LISTX is specified. 



LIB or 
NOLIB 



LVL=c 
NOLVL 



OPT or NOOPT 



LIB indicates that BASIS 
and/or COPY statements 
are in the source 
program. If either COPY 
or BASIS is present, LIB 
must be in effect. If 
neither COPY nor BASIS 
statements are present, 
use of the NOLIB option 
yields more efficient 
compiler processing. 

Indicates whether the 
Federal Information 
Processing Standard 
flagger is to be 
activated. c indicates 
the level of the 
standard to be checked 
(A = low; B = low 
intermediate; C = high 
intermediate; D = full 
standard) . When LyL=c 
is designated as the 
default at installation 
time, NOLVL can not be 
specified at 
compile-time. 

The object module is 
optimized by Phases 6 2, 
63, and 64 for 
instructions generated 
from the Procedure 
Division. If OPT is 
specified, the starting 
address of each 
Procedure Block (PBL) is 
also listed. OPT must 
not be specified for the 
same compilation as 
SYMDMP, FLOW, or STATE. 



SEQ or NONSEQ 



SXREF or NOSXREF 



The source statements 
are (SEQ) or are not 
(NONSEQ) sequence 
checked. If LST is in 
effect, this option is 
ignored. 



An alphabetically 
ordered cross-reference 
listing is printed on 
SYSLST. SXREF overrides 
XREF, which is specified 
on the OPTION control 
card. The default value 
is XREF. 

The output listing is 
single, double, or 
triple spaced. 

The number of the 
statement being executed 
at the time of abnorm.al 
termination is printed 
on SYSLST. STATE must 
not be specified for the 
same compilation as 
SYMDMP, OPT or STXIT. 



STXIT or NOSTXIT Control is passed to a 
user error procedure if 
an error occurs on a 
unit-record file. If 
both COUNT and STXIT are 
desired, the program 
unit requesting COUNT 
either must contain the 
request for STXIT or 
must be entered before 
the program unit that 
requests STXIT. 



SPACEl, SPACE2, 
or SPACE3 



STATE or NOSTATE 
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SUPMAP or The Phase 6 output 
NCSUPMAP is suppressed if any 

E-level messages are 
produced by the 
compiler. 

SYiyiDMP[=filename] A formatted symbolic 

dump of specified data 
areas is printed on 
SYSLST at various points 
dynamically during 
execution of a program; 
in the event of an 
abnormal termination , a 
formatted symbolic dump 



of all data areas is 
printed on SYSLST. 
SYjyiDMP must not be 
specified for the same 
compilation as STATE, 
OPT or STXIT. For all 
the mutually exclusive 
options, the last 
encountered option is 
the one remaining in 
effect. If "filename" 
is not specified, the 
debug file (on SYS005) 
is named IJSYS05. If 
more than one COBOL 
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SYNTAX 

CSYNTAX 

NOSYNTAX 



program with the SYMDMP 
option is included in a 
run unit and all the 
debug files are on the 
same direct access 
device, each must be 
given a unique name. 

Indicates whether the 
source text is to be 
scanned for syntax 
errors only and 
appropriate error 
messages are to be 
generated. For 
conditional syntax 
checking (CSYNTAX) , a 
full compilation is 
produced as long as no 
messages exceed the W 
level. If one or more 
C-level or higher 
severity messages are 
produced, the compiler 
generates the messages 
but does not generate 
object text. 

Notes: 

1. When the SYNTAX 
option is in effect, 
all of the following 
compile-time options 
are suppressed: 

OPTION control 
statement: LINK, 
DECK, XREF 

CBL statement: 
SXREF, CLIST, LISTX, 
VERBSUM, VERBREF, 
COUNT 

2. When conditional 
syntax- checking is 
requested, the 
preceding options are 
suppressed only if 
one or more E- or 
D-level messages are 
generated. 

3. Unconditional syntax 
checking is assumed 
if all of the 
following 

compile-time options 
are specified: 

OPTION control 

St at em ent : NOLI NK , 

NOXREF, NODECK 

CBL Statement: 
SUPMAP, CLIST, 
VERBSUM, VERBREF, 



TRUNC or NOTRUNC 



VERB or NOVERB 



SXREF, and LISTX are 
not specified 



Standard or nonstandard 
truncation will be 
applied to computational 
items. If standard 
(TRUNC) , items are 
truncated according to 
their pictures; if 
nonstandard (NOTRUNC) , 
they are truncated 
according to the actual 
amount of storage 
occupied. 

Indicates whether 
procedure-names and 
verb-names are to be 
listed with the 
associated code on the 
object program listing. 
VERB has meaning only if 
the LISTX or CLIST 
compiler option is 
specified, if READY 
TRACE is used in the 
source program, or if 
VERBSUM, VERBREF, Or 
COUNT is specified. 

VERBREF indicates that 
a verb cross-reference 
listing is to be 
produced for the 
compiled program. 

VERBSUM indicates that 
a verb summary listing 
is to be produced for 
the compiled program. 

Indicates whether the 
compiler is to generate 
code to strip the sign 
when a signed external 
decimal field is 
compared to an 
alphanumeric field. ZWB 
specifies stripping. 



The following Lister options may be set 
by the programmer using the LST card. The 
default cases are underlined. 



VERBREF or 
NOVERBREF 



VERBSUM or 
NOVERBSUM 



ZWB or NOZWB 



COPYPCH or 
NOCOPYPCH 



COPYPCH indicates that 
the updated and 
reformatted copy 
libraries are to be 
punched. If the Lister 
DECK option is in 
effect, the libraries 
will be punched as part 
of the source deck. If 
the Lister NODECK option 
is in effect, the 
libraries will be 
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DECK or NODECK 



LSTONLY or 
LSTCOMP 



punched as a separate 
deck. 

DECK indicates that an 
updated source deck is 
to be produced. If the 
COPYPCH option is in 
effect^ the updated 
source deck will include 
the updated and 
reformatted copy 
libraries. 

LSTONLY indicates that 
a listing of the 
reformatted source 
program is to be 
produced^ but that the 
program is not to be 
compiled; if the Lister 
DECK option is in effect 



PRQC=1C0L or 
PR0C=2C0L 



the updated source deck 
will also be produced. 
LSTCOMP indicates that^ 
in addition to the 
listing and optional 
deck produced by the 
LSTONLY option, the 
source program is to be 
compiled. 

PR0C=1C0L indicates that 
the Procedure Division 
is to be listed in 
single-column format. 
FR0C=2C0L, which can be 
specified only if the 
printer has 132 print 
positions, indicates 
that the Procedure 
Division is to be listed 
in double-column format. 
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SECTION 2, METHOD OF OPERATION 



PHASE 00 



Phase 00 (ILACBLOO) , the interface 
between the COBOL compiler and the DOS/VS 
System, is resident in storage throughout 
compilation. Its major functions are: 

• Receiving control from the DOS/VS 
System and, at the end of compilation, 
returning control to it^ 

• Performing reallocation and linkage 
after each of the other phases has 
completed its operations. 

• Handling input/output requests from the 
other phases. 

• Manipulating tables for the other 
phases. 



two- byte cell named LINKCNT. Routine LINKA 
increments LINKCNT by two before it links 
to the next phase, so that, for example, 
the value of LINKCNT is four at entry to 
phase 10. If phase 70 is not executed, or 
if termination is abnormal, the termination 
routines set LINKCNT to the value it would 
have on entry to phase 7 0, that is, the 
hexadecimal value ■26*. The location of 
LINKCNT is internal to phase 00. 



Figure 4 traces the routines used by 
Phase 00 for both normal and abnormal end 
of compilation. 



PROCESSING BETWEEN PHASES 



• Providing a communications area 
(COMMON) for the other phases, 

« Processing terminal error conditions. 



Other phases call phase 00 for 
between-phase processing or for 
input/output request with the following 
sequence: 



RECEIVING CONTROL FROM AND RETURNING IT TO 
THE SYSTEM 



Compilation is invoked by an EXEC 
control card. Phase 00 is entered at entry 
point START. Routine LINKA calls phase 01, 
and passes to it the parameters for 
processing and the addresses of certain 
areas in phase 00 for phase 01 to fill in. 

When phase 60, 64, 65, 61, or 70 is the 
last phase, it calls phase 00 after its 
processing is complete. Routine SKPLNK 
issues an EOJ macro to return control to 
the DOS/VS System. If an error occurs that 
stops compilation (see "Unrecoverable Error 
Conditions" in this chapter), routine 
TRMNATE prints a message and returns 
control to the system with a CANCEL or DUMP 
macro instruction. If an error occurs and 
OPT is specified, phase 62 returns to phase 
00 with a CANCEL code. When LVL is in 
effect, phase 8 is the final phase and it 
returns control directly to the system. 

Phase 00 keeps track of which processing 
phase is currently active by means of a 
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register, =A (COS) 


See 


note 


1 


BALR 


0, register 








DC 


X'XY' 


See 


note 


2 


DC 


X'ZZ' 


See 


note 


3 


Notes: 











1. A(COS) is the relocated address of the 
entry point to phase 00. Routine 
LINKPHl passes this address in 
register 1 to each phase that it calls 
into storage. 

2. "XY' is a hexadecimal linkage code. 
'X' bits indicate the function to be 
performed. 'Y' bits indicate the 
affected file. 'Y' bits are ignored 
when the function does not involve a 
file. See Figure 5 for "XY' values^ 

3. 'ZZ" indicates functions to be 
performed by phase 00. See Figure 5 
for 'ZZ' values. 

Other phases call the table handling 
routines of phase 00 at the entry point of 
each routine. These routines are discussed 
in "Appendix A. Table and Dictionary 
Handling. " 
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r T T- 

|X Code I Routine Called] 



Function of Routine 



h 



READ 

WRITE 
WRITEA 

TRMNATE 
CLOSET 

READg 
SEGPNT 

LINKB 

EOJ 

SEGNOTE 

EJECT or SKIP 



CLOSER 



CLOSER 



Read a utility file. Pass back to the callinq routine the 
storage address of the logical record- If Y is 9, read a COPY 
or BASIS library, 

PUTN: Write IC-text, where the calling routine gives the 
record's address in register 2, and its length in register 3. 

PUT: Write a record, where the calling routine gives the 
record's address in register 2, and the first two bytes of the 
record define its length. 

Cancel jojd. A D-level error has been encountered. 

Purge, if necessary, and rewind the indicated file. If the 
second parameter byte (ZZ) contains X'OO*, last use of file was 
to read. If the second parameter byte (ZZ) contains X'Ol', last 
use of file was to write. 

Read SYSIPT. 

Position the access mechanism to a disk address supplied by the 
calling routine (on SYSOOl) and read the record (see phase 60 
and phases 62 and 63). 

Issue a RETURN macro to terminate the previous phase - 

Return to the system. 

Write the current record, if required, in a short block, and 
pass back to the calling routine the relative disk address of 
the next record to be written on SYSOOl (see phase 51) . 

Position the printer. The exact function is determined by a 
second parameter byte as follows : 

X'OO' Eject 

X'Ol' Skip one line 

X'02' Skip two lines 

X'03' Skip three lines 

Flush the buffer. Do not write an end-of-file indicator (see 
F) . If the second parameter byte^ (ZZ) contains X'CC, call was 
not from phase internally but from another phase. 

When a file is to be closed, move 'FF' and an end-of-file code 
into the buffer, pad the buffer with zeros, check the previous 
input/output operation, and write out the file. 



Y Code File 



ZZ Code 






SYS005 


X'Ol' 


1 


SYSOOl 


X"02' 


2 


SYS002 




3 


SYS003 


X"03' 


4 


SYS004 


X'04' 


5 


SYSIPT 


X'OS" 


6^ 


SYSLST 




7 


SYSPCH 




8 


SYSLNK 




9 


SYSSLB 





Meaning 

NOTE macro instruction to retrieve the absolute address 

POINT macro instruction to cause processing to start at 

the specified block in the file 

POINTS to rewind the file 

WRITE UPDATE (disk only) 

When preceded by a X"22', WRITE on SYS002 from SYS005 

buffer with a buffer size of 512 bytes; when preceded by 

X'02', READ from SYS002 into SYS005 buffer with a buffer 

size of 512 bytes. 



^Also for SYS006 when LVL is in effect. 



Figure 5. Linkage Codes to Phase 00 
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When the linkage code indicates end of 
phase the following occurs: 

• Routine LINKS issues RETURN macro to 
terminate calling phase- 

• Control passes to the instruction 
following the LINK instruction in 
routine LINKA. 

• Files are purged. 

• If necessary, an interlude routine is 
called (INTl after phase 10; INTll 
after phase 11, etc.). The interlude 
routine rewinds files, sets up POINT 
table buffers, determines next phase, 
etc. 

• Routine LINKA updates LNKCNT, sets 
switches for TAMER, loads and calls the 
next phase - 

Figure 6 shows the conditions under 
which optional phases are called. Figure 8 
shows the flow of control for processing 
between phases. 

Use of buffers by files in each phase is 
predetermined and is described in Figure 
10. Buffer addresses are recorded in a 
buffer pointer table- Phase 00 contains a 
pointer to the current buffer address - 

Phase 01 opens all files. 

Phase 00 closes work files as they are 
no longer needed. 



^ 

07 

08 
25 



Optional 
Phase 



05 



06 









61 



K- 



62 
63 
64 



65 



70 



80 



Preceding 
Phase 



01 



05 



06 
07 
21 



60 
64 
65 



51 






60 
64 



Varies 



60 
61 
64 
65 
70 



Compiler 
Option 



LST 



LST 



4 

LST 
LST 
SYMDMP 

— ^ 



XREF 
SXREF 
VERBSUM 
VERBREF 



OPT 



SYMDMP 






If errors in 
source program 



LVL 



Figure 6. Optional Phase Processing 
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CANCEL request 



BASIS Library 
not found 
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X»BO» Request from 
phase 70 



f ■■- ■- ■' ■ ■ - " 1 

IRequest received | 
jfrom either phase | 
|01, 60^ 62, 70, or | 

Ifrom TAMER | 
1 1 


1 - ■- ■■ 1 

ICBNOFND Routine | 

1 1 

1 1 

1 i 
1 I 


1 1 

I 1 







ITRMNATE Routine 

I 

I Print error message 

I on printer. Set 

ILINKCNT to 

I hexadecimal 26. 

' 1 

I 

I 

I 

V 

I 

{Cancel Job 

[Dump if request was | 
[received from TAMER I 



LINKB Routine | 

I 

Issue RETURN macro. I 

I 



I 
I 

(LINKBA) V 



IPURGE ROUTINE 

I 

[Purge files, if 

Inecessary. 

' 1 

I 

I 

I 

V 
J 

IINT7 Routine 
I Close files. 



1 

I 
I 
I 
V 

I 

rSKPLNK Routine 

I 

I Turn off LINK bit 
I in System Communi- 
I cation Region if 
IE-level source 
[errors were en- 
I countered 
[Issue FOJ macro. 



Figure 7. Flow of Control at End of Compilation (Normal and Abnormal) 
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PHASE INPUT/OUTPUT REQUESTS 



Phase 00 translates all phase 
input/output requests into system macro 
instructions or SVCs. It switches the 
buffer pointers in the POINT table if the 



file is double buffered, and checks to 
determine whether the operation was 
completed successfully. If necessary , 
TAMER handles dictionary spill during phase 
processing (see "Appendix A. Table and 
Dictionary Handling") . Figure 9 shows the 
input/output reguests for each phase. 



Processing Phase * 



BALR 



COS 



I Analyze 

I X parameter 

I (see Table 4) 



l<- 



l<- 



TAMER Routine (optional) | 
1 I 



I Reallocate 
I storage 
I for tables 



l<- 



LINKB 



->| Terminates calling 
I phase by issuing 
I a RETURN macro 

— I instruction 

I — 



I 



INT Routine 



I OPEN, CLOSE files |<- 
I Reallocate | 



I storage for buffers f- 



LINK A 



I Load new 

I processing phase 



I 
I 

i 1 Call phase 



I 

•> I Determines value 
I of next interlude 
routine 



Note: The blocks do not indicate relative locations or sizes of the routines. 

♦This box changes contents at the end of each cycle. Exit from the cycle occurs after 
the last processing phase, which may be phase 60, 61, 62, 64, 65, or 70, when control is 
returned to COS with a request for an EOJ macro instruction. Exit may occur through 
abnormal termination (see Eigure 7) . 

Figure 8. Flow of Control for Processing Between Phases 
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r T T 

Phase JSYSOOI |SYS002 



-T T 

ISYS003 ISYS004 



T T T T T T 1 

ISYS005 JSYSIPT j SYSLST^Q | SYSPCH j SYSLNK j SYSSLB j 



01 



00 
(INTOl) 

05 (if 
LST) 

00 
(INTO 5) 

06 (if 
LST) 

00 
(INT06) 



Open 



(Open 






Rewind 






j Write 

I Flush 
I Rewind 

I Read 
I Write 

[Flush 
Rewind 



Get25 
Rewind 

Write 
Read 

Flush 
Rewind 



Open 
E-text^e 



Open 

Put^e 



I Open 



I 



[Open 
jGet^e 



I 



I I 

I JGet 

I I 

I I 






I I 
I I 



I Open 



I Open 
iPut^e 

jclose^^ 
I I 



Open I Open 
I Get 
I Close 



07 (if 

LST) 

00 
(INT07) 

08 (if 

LST) 

00 
(INT08) 



r 
I 

-+ — 
I 






-+ 

I Read 
I 
-+ 

I Rewind 






+ 



Write 

Flush 
Rewind 



Put 









I I 



Put 
Close^^ 



+ ^ 



-+ + 

I Put 









10 

00 

(INTl) 

12 

(Report 

writer) 

00 

(INT12) 



Write 
Data 
IC-text 
€ E-text 



Geti6^22 






|Get^7^: 



Put^'^^sa 



I Write 
I PO-text 
I & E-text 
-+ 



+ 

Write 
Data- 
IC-text 






+ 

+ 



+ ^ 



I 
-+- 

I 






Geti6,22 



I 

-+- 

I 

I 



iGet^^^sa 

-+ 

I 

I 
-J. 



Put^-^.^a 






I 



I 



Footnotes, Only those footnotes referred to on this page are listed below - 

^Used for dictionary spill. 
^^If LIB or LST is in effect, 
i-'^lf NOLIB is in effect- 

^8if LVL is in effect, SYS006 is used in place of SYSLST. 
2ilf LVL is in effect and no Lister options , SYS006 is opened for LVL. 
22if LSTCOMP is in effect. 
23if LSTCOMP is not in effect. 

^'♦close SYSLST if LVL and LSTCOMP are in effect; SYS006 is used for LVL. 
2sonly if LIB is in effect; otherwise input is on SYSIPT. 

Lgure 9. Compiler File Handling (Part 1 of 6) 
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r T T T T 

I Phase JSYSOOI |SYS002 |SYS003 |SYS004 



"T T T T T T 

I SYS005 I SYSIPT | SYSLST^^ | SYSPCH j SYSLNK | SYSSLB 
,^. + 1 ^ + ^ 



11 



(See 
note 1) 



Write 
PO-Text 
S E-Text 



Get^6,22 



Get^ 



Put 1-7, 23 



00 

(INTll) 
\ + 



Flush 
+ 



Flush 
Rewind 

+ f 

Read 
Data IC- 
and 
E-texts 



20 

I- + 

00 

(INT2) 
1- + 






Write Incom- 
plete Data 
A- text y Data 
IC-text, ATF- 
text, S E-text 



I Close 






Close 
+ 



+ 

Write 
PO-text 
(Q- 
routine) 



22 
|_ +. 

00 

(INT22) 
I- 



Rewind 

Write 
Data A- 
6 Data 
IC-texts 
DEF- 
texts 



Rewind 

+ 

Read Data IC- 
text, Incoir.- 
plete Data A- 
text, ATF-text 
and E-text 















+ 

(See 
note 1) 



Flush 

+ 

Write 

PO-text 

(VCONs) 



Flush 
Rewind 



Rewind 






— + 
— + 









21 

I + 

00 

(INT21) 



Flush 
Rewind 

Write 
E-text 



Read 

Data 

IC-text 

Data A- 

text, £ 

DEF- 

texts 



Write 
Data 
A- text 
E-text, & 
DEF-texts 






Rewind 



Flush 



25-' 



Note Rewind 
Read DEF-text 
Point 



h- 



00 

(INT25) 
h 



+ 

Write 
DATATAB 
OBODOTAB 
+ 



+ 

+ 












I 

(See 
note 1) 



+ 

Rewind 



Read PO 
text 
(Q-rout) 
& E-text 
+ 

Rewind 






Write 
Pl-text 
g E-text 



Write 
DEF-text^ 



Flush 

Rewind I Flush 



Put 
(SYM) 
+ 



30 

Y 

00 

(INT3) 
|. J. J. X i J. J. ± 

Footnotes. Only those footnotes referred to on this page are listed below. 

^Used for dictionary spill. 

2SXREF, XREF, VERBSUM, or VERBREF only. 

■^SYMDMP only. 

8SXREF, XREF, VERBSUM, VERBREF, Or SYMDMP only. 
^8if LVL is in effect, SYS006 is used in place of SYSLST. 
22if LSTCOMP is in effect. 
23if LSTCOMP is not in effect. 






Figure 9. Compiler File Handling (Part 2 of 6) 
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r T T T T 

1 Phase JSYSOOI | SYS002 |SYS003 jSYSOOa 



-T 

ISYS005 



-T T T T T 1 

ISYSIPT I SYSLST^Q j SYSPCH j SYSLNK | SYSSLB | 



40 



I Write i 
|P2-text I 
1 fi E-text I 



Read 

Pl-text 

SE-text 



Write I 
E-text^9 I 
&Data A-text^o! 



00 1 Flush I 
(IntU) ] Rewind j 



Flush 



Rewind 



I 



1 



I Write 
|P2-text, 
I Inter- 
I mediate 
I Proced. 
I A-text^ 
I Inter- 
I mediate 
I E-text 
1 g Inter- 
mediate 



jRead 

|P2-text lOptimiz- 
5 IS E-text I A-text 

00 I ] Flush 

(INT5) I Rewind [Rewind 

1 I Read 

I |P2-text, 

1 I Inter- 

j 1 mediate 

I I Proced. 

I I A-text, 

I ] Inter- 

I I mediate 

] I E-text, 

I I & Inter- 

j Write I mediate 

I Proced. joptimiz. 

51 I A-text I A-text 



Write 

Opt. 

A-text 

Flush 



I 
I 
+- 



-+ + 

+ + 









Write 

Opt. 

A-text 



Write 
E-text 



1-- 



Footnotes. Only those footnotes referred to on this page are listed below. 

i8lf LVL is in effect, SYS006 is used in place of SYSLST. 
19 If SYNTAX or CSYNTAX is in effect. 
2oif COUNT is in effect. 

Figure 9. Compiler File Handling (Part 3 of 6) 
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r T T 

I Phase JSYSOOI |SYS002 



"T T T T T 1 

I SYSIPT I SYSLST^Q | SYSPCH | SYSLNK | SYSSLB | 



ISYS003 



ISYS004 



ISYS005 



00 |Rewind2 [Flush ] Flush jFlush^ 
(INT6C) I iRewind^ | Rewind | No rewind^^ 

I Rewind 



00 
(INT51) 



I- 



60^3 



h 



65^3 



Flush 
Rewind 



Read 

Proced. 

A-text 



Rewind^ 



Write 
DEF-text 

2 



00 iRewind^ 
(INT65) ] 

Read 
Proced. 
62^2 JA Text 



Rewind^ 



Read 

Debug- 

text 

Write 

text 

from 

SYS005^^ 



1 



H 



I 



Flush I Flush 
Rewind j Rewind 

y 

I No Rewind^ | 

Write I I Write SYSLNK | 

Debug- I Read | OUTPUT for | 

texts I Optimiz, jnon-root | 

A-text 1 segments^ j 

H i- + ^ 

1 I 

Rewind^ jRewind^ | 

H i- + ^ 

Write I Read Data A-, | 

REF- I DEF- , I 

text^ S land E-texts; j 

E-text I Reads SYSLNK j 

I output for I 

1 non-root j 

j segments 3 j 



I Read 

I non-root 

I segments 

I 

I 



I Write 
I PROCTAB 
I PROGSUM 






+ 

Read I 
Optimiz. I 
A-text I 
J.. 



I I 

1 I 



Put 
(LISTX) 



Put 



PUT 



+— : 



Put 



+ 

PUT 



I 
I 
I 



-H 



+ 

+ 



-+ 

I 
i 



Footnotes. Only those footnotes referred to on this page are listed below. 

2SXREF^ XREF^ VERBSUM, or VERBREF 

^Segmentation only. 

5lf SYMDMP or STATE in effect. 

^Debugging options in effect. This phase can only follow phase 60. 
^oif SYMDMP is not in effect, SYS005 is not used. 
^^Use this file, if SYS005 is assigned to a tape device. 
^^Control flows in this sequence when the OPT option is in effect. 
^^Control flows in this sequence when the OPT option is not in effect. 

optional phase, 
^^if SYMDMP, STATE, FLOW with segmentation. 
^8if LVL is in effect, SYS006 is used in place of SYSLST. 



Phase 65 is an 



Figure 9. Compiler File Handling (Part 4 of 6) 
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1 Phase ]SYS001 |SYS002 |SYS003 |SYS00a | SYS005 |SYSIPT| SYSLST^Q | SYSPCH ISYSLNK j SYSSLB | 



"T T~~T^~~T """T T T T 















63^2 



00 
(INT63) 



64^2 



00 

(INT6U) 

6 



70 

1- f 

00 
(INT7) 



Rewind 



Read 

Proced. 

A-text 



Rewind^ 



Write 
DEF-text 

2 



00 ]Flush2 
(INT6X) jRewind^ 

2 

Read 

DEF-text 
612 



Close 



Rewind 



00 
(INT62) 



Write 

Proced. 

Al-text 



Flush 
Rewind 



Read 

Proced. 

Al-text 



Close 



Rewind 



Write 
E-text 



Flush 
Rewind 



Flush 
Rewind 



Read 
REF- 
text^ 



Read 
E-text 



Close 



Rewind 



Read DATA A 
text, DEF- 
text, S E-text 
Rewind^ Write 
REF-text2 



Flush2 
Rewind^ 



Read REF- 
text^2 



00 

(INT61)| I I I Rewind 

2 j 



(See note 4) 



Close 









Put 
CSXREF or 
XREF)' 



Put 
Cerror 
messages} 



Close 



Close 



Close 



Footnotes. Only those footnotes referred to on this page are listed below. 

^SXREF^ XREF, VERBSUM, or VERBREF only. 

^E-text read from SYS004 if phase 60 or 62 determines that no output is required or if 
SYNTAX is on. 

6SXREF or XREF not in effect. 

"^SYMDMP only. 
^^Control flows in this sequence when the OPT option is in effect. 
i8if LVL is in effect, SYS006 is used in place of SYSLST. 

Figure 9- Com.piler File Handling (Part 5 of 6) 
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I Phase JSYSOOI 1SYS002 1SYS003 JSYSOOU 1SYS005 JSYS006 j SYSLST | SYSPCH j SYSLNK | SYSSLB j 

180 (only ] Open I I I I | Open | Open I I I | 

I if LVL is I Write j ] j j |Read j Write I I j | 

I in effect)] Read I I I 1 j Close | Close I I | | 

I iClose 1 I I I I ] i I I I 

L J. J. X X i X X X X X J 

Figure 9. Compiler File Handling (Part 6 of 6) 



TABLE AND DICTIONARY HANDLING 



A permanent input/output error is 
encountered on a device. 



A portion of storage is reserved 
throughout compilation for tables built and 
used by the phases. All processing 
(inserting new entries, releasing a table 
when no longer needed, etc.) involving 
these tables is handled by a group of 
routines known collectively as TAMER - 
These routines are resident in phase 00- 
They are described in "Appendix A. Table 
and Dictionary Handling. " 



2- An invalid BASIS library name is 
encountered. 

3- The partition size is too small for 
this program. 

Conditions detected by TAMER: 

1. A table has exceeded the maximum 
permissible size. 



COMMUNICATIONS AREA (COMMON ) 



Because of an error in compiler logic 
or a machine error, TAMER is unable to 
handle a request. 



The communications area (COMMON) is 
resident in phase 00. It contains 
information to which all phases can refer 
directly. The format of COMMON is given in 
"Section 5. Data Areas." 



UNRECOVERABLE ERROR CONDITIONS 



SEGMENTATION OPERATIONS 



For a segmented program phase 51 keeps 
track of the sections of Procedure A-text 
that belong to each segment. It calls the 
NOTE routine of phase 00 ("XY* code = CI), 
to record the absolute track address on 
SYSOOl of the first record of each segment - 



The following conditions will cause 
abandonment of compilation. In each case 
console message is printed, and phase 00 
returns control to the DOS/VS System, via 
the routines described earlier in this 
chapter under "Receiving Control From and 
Returning It to the System." 



Phase 60 or phases 62 or 63 use the 
SEGTBL table built by phase 51 to read 
Procedure A-text in order of ascending 
segment priority. They call the SEGPNT 
routine of phase 00 CXY' code = 91) for 
this purpose. Phase 6 writes the object 
module and phase 63 writes Procedure 
Al-text in order of ascending priority. 



3 4 Section 2. Method of Operation 



Licensed Material - Property of IBM 



PHASE 01 



Phase 01 (ILACBLOl) initializes compiler 
operations. Although logically a subset of 
phase 00, it is not needed in storage 
throughout compilation and exists as a 
separate load module. The major functions 
of phase 01 are: 

• Attempts to read source statement 
library member C.CBLOPTISIS and, if 
present, sets the compiler default 
options to correspond to those in the 
library member. Normal default options 
are used if no library member is 
present. 

• Determines compilation parameters from 
the system OPTION card and the COBOL 
compiler CBL and LST cards from SYSIPT 
and sets indicator bits in COMMON. 

• Determines buffer sizes for all files 
used by the compiler. 

• Obtains storage for buffers, tables, 
and the dictionary. 

• Opens all files used by the compiler. 

• Returns information to phase 00 on the 
results of the initialization. 



• From the CBL card: CATALR, CLIST, 
COUNT, CSYNTAX, FLAGW, FLOW, LIB, LVL, 
OPT, QUOTE, SEQ, STATE, STXIT, SUPMAP, 
SXREF„ SYMDMP, SYNTAX, TRUNC, VERB, 
VERBREF, VERBSUM^ and ZWB 

• From the LST option card: COPYPCH, 
DECK, LSTCOMP, LSTONLY, and PROC 

If SYNTAX was specified, phase 01 turns 
off the bits for conflicting options. From 
the CBL card parameter BUF, phase 01 
obtains the buffer size for the work files 
(see "Buffer Size Determination" below) . 
From the CBL card parameter SPACE, phase 01 
sets the print control character in the 
first byte of the buffer area for SYSLST. 

In addition to the above parameters, 
phase 01 uses the system communications 
region to determine the date of compilation 
and the number of lines to be printed per 
page. The number of lines is passed to 
phase 00 as described in this chapter under 
"Information Returned to Phase 00." Phase 
10 sets the RPTWR bit in the PHZSWJ. cell. 



BUFFER SIZE DETERMINATION 



• Takes appropriate action in the event 
of certain error conditions. 

• Handles COPY and BASIS functions if LIB 
is specified. 

COMPILATION PARAMETERS 



Compilation paramieters are set as 
defaults at installation time. Thereafter, 
they may be changed by the operator through 
a console command or by the programmer 
through a system OPTION card, one or more 
CBL option cards, or an LST option card. 
CBL option cards are placed in front of the 
first compiler source card. 

Based on the parameters, phase 01 moves 
flag bytes to the LISTERSW, PHZSW, PHZSWl, 
PHZSW2, PHZSW3, and PHZSW4 cells in the 
compiler communications region (COMMON) so 
that other phases can determine which 
options were chosen. 

The parameters processed by phase 01 
include: 

• From the system OPTION card: DECK, 
ERRS, LINK, LIST, LISTX, LVL, SYM, and 
XREF 



The compiler uses six buffer areas. 
Figure 10 shows which files use which 
buffers in each phase. Because buffers 1 
through 5 are always used for work files, 
they are all the same size so that they can 
be used for different files from phase to 
phase- Buffer 6 is also used for a work 
file in phases 20, 21, 22, 50, and 51; 
therefore, it must be at least as large as 
the other buffers- Buffer 6 may have to be 
larger than the other buffers, however, 
because in phases 10, 11, 12, and 60 it is 
used for up to three double-buffered 
compiler files. 

The buffer sizes of the compiler files 
are: 



SYSLST 
SYSPCH 
SYSIPT 
SYSLNK 



— 133 bytes 

— 81 bytes 
80 bytes 

— 82 bytes 



Files SYSOOl through SYS005 are assigned 
five buffers and may also use buffer 6 when 
it is available. The minimum buffer size 
for these files is 512 bytes each. This 
size can be changed by means of the BUF 
parameter on the CBL card. The maximum is 
32,767 bytes. Specifying a larger size 
will cause a default to this value. 
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Phase j SYS 001 

V + 

01 1 



05 I 

06 I 

07 1 

J. + 

08 1 

10 I 

J. 1. 

11 I 



l-- 



22 I 

I- + 

21 I 

25 I 
J. 4. 

30 I 



SYS002 



+ 



+ +- 



+ 



12 



— +- 



3,4 



20 1 



3,3 
3,3 



+ f 



3,3 



+ +■ 






3,4 



3,4 



SYS003 
1,2 



+- 



1,2 



lr2 



1,2 



SYS004 j SYS005 

4,5 1 
-+ 



4,59 

4r5 I 

I 

4,5 1 






-+ 






5,58 I 
5,58 I 



6,6 



5,58 I 



5,6 1 



+. 



SYSLST j SYSPCH 



SYSIPT 

6,6 

6,6 



6,6 



6,6 



-+ 



6,66 j 

I 
1— 



+ 






6,6 I 



-+— 



6,6 I 6,6 
6,66 I 



-+ -I 



6,66 j 



6,6 1 
i- 






SYSLNK 



-i 



H 



"-^ 



H 



-+ 






3,4 
3,4 
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lr2 






3,4 



+ + 
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5,6 I 

-I + 

5,6 1 
^ 1. 
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1^ 1 



I 



1 



-i 

I 3,4 I I 2,5 I 17 



6,6 j 



+ i 

-I 



40 
50 



H 



1 3,4 



2,6 
2,6 



51 ] 3,4 

60 1 3,4 1 23 
1- 



I- 



62 j 
1- 
I 

+■ 

63 I 
h 
1 



3,4 
32 
3,4 
3,32 



1-- 



1 

+• 

5 

2,5 



I 
-+— 









— + 



53 

2,5 



— +- 
I 



I 

I 



^ 4.__ 



6,6 



6,6 



+ i 

6,6 



3,4 



2,5 
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+ 



-i 



64 I 1 
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65 j 



3,32 
4 1 1 



2,3 



61 j 15,25 



I- 



I 1 



h 



2^,5 
5 



1 

35,4 
1 
17 



I 
-+ + 

] 1.2** 

-+ 



+ 



1- 

1 
+- 

I 
1 



-1- 

6,6 



-H 



6,6 



-+ 



+- 



6,6 I 
1 
I 



1 3,3 

70 j 
I 
j ^ 

Note: The SYSSLB buffers are resident in phase 01. 

^SXREF or XREF only. 

^File 1 is single buffered for segmentation. 

3SYMDMP only. 

'♦SYMPMP requires a buffer of 512 bytes, which is the combined size of buffers 1 and 2. 

5 OPT. 

6When LVL is specified, the SYS006 workfile replaces SYSLST for input to phase 80. 

Phase 80 output is in turn directed to SYSLST. 
7used if SYNTAX is on. 
8 Used only if LIB or LSTCOMP- 
9Used only if LIB. 



Figure 10. Buffer Assignments 



36 Section 2. Method of Operation 



Licensed Material - Property of IBM 



The minimuin buffer space required for 
the compiler (that is, the total space 
required for buffers 1 through 6) is 2986 
bytes. Buffers 1 through 5 require 2560 
bytes (5 x 512 bytes). Buffer 6 requires 
itiiniinuin of 426 bytes^ as follows: 



SYSLST: 
SYSIPT: 
Total 



133 X 2 = 266 

80 X 2 = 160 

= 426 



If the DECK and LINK options are 
specified, 3152 bytes are required for 
buffers as follows: 



Buffers 1-5: 




2560 


Buffer 6: 






2 X SYSLST 


= 


266 


2 X SYSPCH 


= 


162 


2 X SYSLNK 


= 


164 



Total 



3152 



SYSPCH and SYSLNK reuse the space 
originally occupied by the SYSIPT buffers- 

In a 6 OK byte partition, about 4K bytes 
are available for buffers- SYSLST block 
size (BLKSIZE) should not be larger than 
605- For example: 



Buffers 1-5: 


2560 


Buffer 6: 




2 X SYSLST = 


1210 


2 X SYSPCH = 


162 


2 X SYSLNK = 


164 



Total 



4096 



Phase 01 records the buffer sizes in 
phase 00 buffer control blocks- Phase 00 
uses the control blocks to locate the 
current buffer for a file and to keep track 
of how much of the buffer has been used. 



OPENING FILES 



2. The LINES indication, by filling in an 
area in phase 00 called LINECNT, the 
address of which was passed to phase 
01 by phase 00. 

3. The beginning and ending addresses of 
the main free area (initial table 
area) by filling in an area, as in 2 
above, called TAMAREA. 

4- The address of the buffer area and the 
buffer lengths, by filling in an area, 
as in 2 above, called BUFCNLS. 

5- The alternate name for the symbolic 
debug file, if requested on the CBL 
card (disk file only). 

6. The date and time of the compilation 
via the DATE/TIME cells in COMMON. 

7. The value of PMAP relocation factor 
from CBL card in PMAPADR cell in 
COMMON. 



ERROR CONDITIONS 



If any of the error conditions listed 
below are discovered by phase 01, an 
appropriate error message is placed into an 
internal phase 01 table by. the QUE routine. 
Routine PRINT writes the messages out on 
SYSLST (SYS006 for LVL option) before 
control is finally returned to phase 00. 
Where necessary., an end-of-job indication 
is sent to phase 00 via the XY code (see 
Figure 5 in the chapter on phase 00) , and 
phase 00 terminates the compilation™ The 
specific error conditions are: 

1. A file cannot be opened. Compilation 
is terminated only if the file is 
required. 



Phase 01 opens the four utility files 
(SYSOOl through SYS004) , SYSIPT, and SYSLST 
and, if required, SYSLNK, SYSPCH, SYSSLB, 
SYS005, and SYS006. It determines whether 
the files are operable and prints a message 
on SYSLST if a file cannot be opened. 



3. 



The BUF parameter is invalid or 
insufficient- An alternate value is 
chosen or compilation is abandoned. 

The virtual partition size is too 
small to accommodate the compiler. 
Compilation is terminated - 



INFORMATION RETURNED TO PHASE 00 



4. A premature end-of-file condition has 
been encountered on SYSIPT. 
Compilation is terminated. 



Phase 01 passes the following 
information back to phase 00 in the manner 
indicated: 



LIB OPTION PROCESSING 



1. The flags indicating the compilation 
options via the PHZSW, PHZSWl, PHZSW2, 
and PHZSW3 cells in COMMON. 



If the LIB option has been specified, 
phase 01 scans the source program for BASIS 
and COPY statements. It performs syntax 
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analysis on these statements and copies 
library information with the remainder of 
the source program on SYS004 for subsequent 
phase analysis- The phase also 

• Writes the source program listing on 
SYSLST (SYS006 for LVL option) if LIST 
is in effect and no Lister options are 
in effect- 

• Generates internal sequence numbers for 
source program. 

• Performs sequence error checking if SEQ 
is in effect. 



FEDERAL INFQRMATIOISl PROCESSING STANDARD 
(FIPS) FLAGGING 



When the LVL option is specified, phase 
01 enters the level character into byte 12 
of the System Communication Region to 
indicate to phase 80 what level of the FIPS 
standard is to be flagged (A = low; B = low 
intermediate; C = intermediate; D = full 
standard) . SYS006 receives the source 
listing that is used for input to phase 8 
for FIPS flagging) . 



If BASIS or COPY statements are 
syntactically incorrect, phase 01 writes 
error text on SYS003. 
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PHASE 05 



Control is given to phase 05 (ILACBL05) 
only when the Lister option (LST) has been 
specified. Phase 05 is the Lister scan 
phase, which analyzes the syntax of the 
COBOL source program. This phase inserts 
syntactic markers between the various 
elements of the source program. The 
syntactic markers are used by subsequent 
phases to produce the cross-references and 
to reformat the program for the Lister 
option listing- 



qualifiers. If phase 05 detects syntax 
errors, the output also includes error and 
recovery markers, to indicate that the 
errors are to be identified in the Lister 
option listing. 



ERROR CONDITIONS 



Input 



The input to phase 05 is the COBOL 
source program. If NOLIB is in effect, 
input is read from the card reader. If LIB 
is in effect, input is read from SYS004 
(output from the COPY preprocessor). 



Phase 05 will recover from any syntax 
error that it detects in the COBOL source 
program. When such an error is detected, 
phase 05 inserts an error marker to 
identify those elements of the source 
program that are in error. A recovery 
marker is inserted at the point where the 
recovery takes effect. These markers are 
used by phase 08 to flag the incorrect 
source statements in the listina. 



Output 



The output from phase 05 is written on 
SYS002. The output consists of the COBOL 
source program with syntactic markers 
inserted to identify the various elements 
of the program. Syntactic markers indicate 
such items as new statement, reference 
type, level number, indentation, and 



Unusual termination of phase 05 can 
occur if the source program contains: 

• Too many (approximately 8 or more) 
consecutive *- comments cards. 

• Too many (approximately 100 or more) 
consecutive blank cards. 

If unusual termination of phase 05 
occurs, the file written on SYS002 will be 
incomplete. 
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PHASE 06 



Phase 06 (ILACBL06) , the Lister sort 
phase, inserts cross-reference information 
into the source program. Phase 06 makes 
tv?o or more passes of the file created by 
phase 05. Based on the syntactic markers 
contained in the file, this phase inserts 
pointers into the source program as 
follows: 

• At the place of definition, pointers to 
the places where references to that 
item occurn 



Input 



The input for the first pass of phase 06 
is the file written on SYS002 by phase 05- 
Input for subsequent passes of phase 06 is 
the output of the previous pass. That is, 
input will be read alternately from SYS002 
and SYSOOU (beginning with SYS002)- 



• At the places of reference, pointers to 
the place of definition. 

During each pass of the file, phase 06 
resolves references and merges them into 
the source program; the number of passes 
depends on the amount of storage available 
and the number of cross-references to be 
processed. A partial dictionary of all 
definitions is used by all passes. The 
dictionary is continually updated by adding 
new definitions as space becomes available 
and deleting definitions that have been 
completely processed and are no longer 
needed. 



Output 



The output of phase 06 is written 
alternately on SYS004 and SYS002. Output 
of the first pass of phase 06 will always 
be written on SYS0 04 and output of the last 
pass will always be written on SYS002. The 
output file consists of the source program 
with cross-reference information embedded 
in it; the contents of the file will be 
formatted and printed by phase 08. 
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PHASE 07 



The function of phase 07 (ILACEL07) is 
to print the first page (preface) of the 
Lister option listing. 



• The format of the listing 



• The use of statement numbers 



Input 



• The classification of references 



Phase 07 uses no input- 



• The use of footnotes in the listing 



Output 



• The method of indentation 



The output of phase 07 is printed on 
SYSLST. It consists of the preface, which 
describes : 



• The reformatted deck that can be 
obtained 

• The summary listing 
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PHASE 08 



The functions of phase 08 (ILACBL08) are 
as follows: 

• Print the body of the Lister option 
listing 

• Depending on the options specified for 
LST 



program, which may serve as input for 
subsequent compilation , is produced on 
SYS004 if the LSTCOMP option is in effect. 
The reformatted source deck is produced on 
SYSPCH if the Lister DECK option is in 
effect. 



— Punch the reformatted source program 
on SYSPCH 

— Pass the reformatted source program, 
via SYS004 to phase 10 for 
compilation 



Input 



Input 



Phase 08 reads input from SYS002 
consists of the source program with 
embedded cross-reference information from 
phase 06, 



Processing 



From the source program with embedded 
cross-reference information, phase 08 
builds an entire page in storage. The 
phase reformats the source program and 
creates footnotes as required. When the 
optimum place for a new page is reached, 
phase 08 prints the created page on SYSLST 
and then deletes the page from storage. 
The process is repeated until all data from 
SYS002 has been processed. To produce the 
summary listing, phase 08 repositions 
SYS002 to the first record and reads it 
again. 



Cutput 



The output of phase 08 consists of: 

• The Lister option listing 

• An internal card-image COBOL source 
program 

• A reformatted source deck. 

The Lister option listing is printed on 
SYSLST. The internal card-image source 



ERROR CONDITIONS 



It is possible that some footnotes on 
some COBOL programs may be lost. If a 
particular COBOL program requires a very 
large number of footnotes, there may not be 
enough storage space to contain the 
complete footnote table. In those cases 
not all of the footnotes will be printed in 
the Procedure Division of the Lister option 
listing. 
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PHASE 10 



Phase 10 (ILACBLIO) reads the source 
statements for the Identification, 
Environinent, and Data Divisions, except the 
Report Section. As it reads the card 
images, it performs the following major 
functions: 

• Encoding in Data IC-text (see "Section 
5. Data Areas"), and storing in tables 
and in cells of the compiler 
communications area (COMMON) 
information from the Identification, 
Environment, and Data Division source 
statements. 

• Analyzing the syntax of the statements 
read. 

• Writing, on SYSLST (SYS006 for LVL 
option) , the source program listing of 
the Identification, Environment, and 
Data Divisions (except the Report 
Section) if the LIST and NOLIB options 
are in effect. 

Phase 10 includes several major working 
routines and the division processing 
routines. 



MAJOR WORKING ROUTINES 



There are three routines in phase 10 
that are used extensively by more than one 
of the division processing routines. These 
are the GETWD, GETCRD, and GETDLM routines. 
These routines are also used by phases 11 
and 12. 



GETCRD Routine 



• Getting a logical unit from the input 
card image provided by the GETCRD 
routine, identifying and encoding it, 
and sending it to the calling routine 
for processing. A logical unit is 
defined as all the characters between 
one blank and the next. 

• Generating a card number for each input 
card, starting with 1. The current 
card number is kept in a halfword 
labeled CURGCN. 

• Making sure the next logical unit is 
valid for the division being processed. 

Each logical unit is analyzed and 
encoded into internal phase 10 code which 
tells the processing routine what type of 
item it is (COBOL word, qualified BCD name, 
etc. ) . 



GETDLM Routine 



The GETDLM routine acts as the 
coordinator for the processing of the 
Identification, Environment, and Data 
Divisions. The major functions of the 
routine are: 

• Looking for delimiters (division 
headers, level numbers, etc.) and 
passing control to the proper division 
routines. 

• Recognizing literals that are level 
numbers and encoding them as such. 

• Causing termination of phase 10 when it 
recognizes the Report Section header, 
the end of the Data Division, or an 
end-of-file condition on the input 
device. 



The GETCRD routine reads the next card 
from SYSIPT, or from SYS004 if LIB or LST 
is in effect, stores its image into a work 
area called COMWRK, and writes a line on 
SYSLST (SYS006 for LVL option) if the LIST 
option was specified and no Lister options 
were specified. 



GETWD Routine 



The main functions of the GETWD routine 



IDENTIFICATION DIVISION 



The Identification Division scan routine 
(IDDSCN) is entered immediately after the 
phase 10 initialization routines. The 
input is scanned for an Identification 
Division header. When one is encountered, 
the cell for the next logical unit is 
filled by GETWD and checked to see whether 
it is PROGRAM-ID. If it is, the program 
name is saved in the PROGID field of COMMON 
(see "Section 5. Data Areas") to be used 
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later either as the CSECT name of the 
object module or to form the names of the 
segments in a segmented program. 

After the PROGRAM-ID has been saved, the 
Identification Division is v/ritten on 
SYSLST (SYS006 for LVL option) if the LIST 
option was specified or on SYS006 if LVL 
was specified. If a DATE-COMPILED 
paragraph is included in the Identification 
Division, the information in the paragraph 
is deleted and the current date is inserted 
from COMMON. 



ENVIRONMENT DIVISION 



When the Environment Division header is 
encountered, the Environment scan routine 
(ENVSCN) searches for the Configuration and 
Input-Output Sections and, as each is 
found, branches to the routines that 
process it. These routines produce the 
file definition portion of Data-IC text 
(for text formats, see Data Areas section), 
which is combined with the data definition 
portion later in phase 10. 



numeric and floating-point literals, commas 
instead of periods are recognized as 
decimal points. 

UPSI-n Clause ; Dummy dictionary entries 
are created from the data in each UPSI-n 
clause and are entered in the UPSTBL table. 
The dummy dictionary entries are so 
constructed that phase 22 can enter into 
the dictionary an LD entry froir each UPSI-n 
and each mnemonic-name, and a condition- 
name entry from each condition-name-1. 



Function-name IS Mnemonic-name Clause: 



An 



entry is made in the SPNTBL table for each 
mnemonic-name. These table entries are 
used by phase 11 during processing of the 
Procedure Division. When phase 11 scans 
ACCEPT or DISPLAY statements, it replaces 
the mnemonic- name with the proper console 
or device name by checking this table. 
When phase 11 scans a WRITE. . .AFTER 
ADVANCING statement, it replaces the 
mnemonic-name with the proper carriage 
control word. 



INPUT-OUTPUT SECTION 



CONFIGURATION SECTION 



The OBJECT-COMPUTER paragraph, including 
the SEGMENT-LIMIT clause and the 
SPECIAL-NAMES paragraph is processed in 
phase 10. 



The routines that process the 
Input-Output Section build and use the 
ENVTBL and QNMTBL tables. The QNMTBL table 
contains variable-length names; the ENVTBL 
table contains pointers to each entry in 
the QNMTBL table. These tables are 
released later in phase 10. Their formats 
are given in "Section 5. Data Areas". 



OBJECT-COMPUTER Paragraph 



File-Control Paragraph 



SEGMENT-LIMIT Clause ; When the priority 
number specified is less than 50, this 
number is stored in the SEGLMT cell of 
COMMON. If no SEGMENT-LIMIT clause is 
specified, or if the value exceeds U9, 
SEGLMT was s^lr^to 49 by phase 00. 



SPECIAL-NAMES Paragraph 



CURRENCY-SIGN Clause ; The literal 
specified is checked for validity and then 
stored in the CURSGN cell of COMMON. 
Thereafter, whenever phase 20 scans a 
PICTURE clause, it recognizes the literal 
as the currency sign. 



DECIMAL- POINT Clause: 



The KDECML field is 
to "comma". 



changed from "period" 

Thereafter, when phases 10, 11, and 12 scan 



The SELSCN routine produces one partial 
Data IC-text entry for each SELECT 
sentence. These entries contain only file 
information and are stored in the ENVTBL 
table. Later jr during Data Division 
processing (see "File Section" in this 
chapter) , these entries are used to produce 
complete FD entries in Data IC-text. 

For each SELECT sentence, the file-name 
and other pertinent information are entered 
into the ENVTBL table. Variable-length 
names are entered into the QNMTBL table, 
and pointers to the QNMTBL entries are 
placed in the appropriate ENVTBL fields. 



VSAM File Processing 



For FILE STATUS clause processing, 
SELSCN passes control to the file status 
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routine to enter the FILE STATUS dataname 
into the QNMTBL and to set a pointer to 
ONMTBL in the corresponding ENVTBL table 
field. A corresponding bit is also turned 
on in the ENVTBL to indicate that a FILE 
STATUS clause has been specified. 

F.or PASSWORD clause processing, SELSCN 
passes control to the password routine to 
enter the password into the QNMTBL and to 
set a pointer to QNMTBL in the 
corresponding ENVTBL table field. A 
corresponding bit is also turned on in the 
ENVTBL to indicate that a PASSWORD clause 
has been specified. 



I-0~Control Paragraph 



When the I-0-Cortrol paragraph header is 
encountered, the ENVSCN routine calls the 
pertinent routines for processing the SAME, 
RERUN, MULTIPLE FILE TAPE, and APPLY 
clauses. 

SAME Clause ; For each clause encountered, 
the files named are entered into one of the 
following tables: for SAME AREA, the SATBL 
table; for SAME RECORD AREA, the SRATBL 
table; for SAME SORT AREA, the SSATBL 
table. 

At the end of the Environment Division 
processing, a unigue number is assigned to 
each clause of each type (by means of 
incrementing counters) . For example, the 
first SAME AREA clause is assigned the 
number 1; the second SAME AREA clause is 
assigned the number 2; and so forth. 
Similarly, the first SAME RECORD AREA 
clause is assigned the number 1 ; the second 
SAME RECORD AREA clause is assigned the 
number 2; and so forth. The same procedure 
is followed for SAME SORT AREA clauses. 



the FNVTBL table entry for this file, the 
CKPTBL bit is set to 1 and a pointer to the 
CKPTBL table entry is inserted. The RERUN 
bit in the PIOTBL table entry associated 
with the file-name is later set to 1 during 
Data Division processing. The RERUN switch 
in COMMON is turned on. 

Format 2 (SORT-RERUN) : An entry is made 
in the CKPTBL table, with the INTEGER field 
set to zero. 

MULTIPLE FILE TAPE Clause ; The MULTIPLE 
FILE TAPE switch is set to 1 in the ENVTBL 
table entry for the file named in the 
clause. A number indicating the file's 
position on the tape is placed in the 
POSITION INTEGER field. 

APPLY Clause ; For each option, a switch is 
set in the EN'^TBL table entry for the file 
named in the clause. 



Option 1: 

Option 2: 
set. 

Option 3: 

set. 



The WRITE-ONLY switch is set. 
The EXTENDED-SEARCH bit is 

The WRITE-VERIFY switch is 



Option 4: The CYL-OVERFLOW switch is 
set. The number of tracks is converted 
to binary and placed into the 
CYL-OVERFLOW-TRACKS field. 

Option 5 (Format 1) : The MASTER-INDEX 
switch or the CYLINDER-INDEX switch is 
set. The device-number is stored in the 
DEVICE-TYPE-CODE field. 

Option 5 (Format 2) ; The CORE-INDEX 
switch is set. The data-^name is stored 
in the QNMTBL table, and a pointer to it 
is entered in the ENVTBL table entry for 
this file. 



The ENVTBL table is then searched for 
all the files named in the SAME clauses, 
and appropriate numbers are inserted into 
these entries of the ENVTBL table to 
identify the SAME clauses in which the 
files were named. For example, if three 
SAME RECORD clauses were specified, each 
file named in the first clause would have 
"1»» in the SAME RECORD field of its ENVTBL 
table entry; each file named in the second 
clause would have »'2" in the SAME RECORD 
field; each file named in the third clause 
would have "3" in the SAME RECORD field. 

The appropriate switches are set in the 
ENVTBL table entries. At this time, the 
SATBL, SRATBL, and SSATBL tables are 
released. 



DATA DIVISION 



When the Data Division header is 
encountered, the GETDLM routine calls the 
DDSCN routine, which in turn calls the 
routines that process the File, 
Working-Storage, and Linkage Sections. If 
a Report Section is encountered, phase 00 
is called to load phase 12, which processes 
the Report Section. 

As the Data Division source statements 
are encountered, the following steps are 
taken to form Data IC-text: 



RERUN Clause ; Format 1: An entry for the 
file name is made in the CKPTBL table. In 



File and record information is entered 
into a work area (ICTEXT) . 
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• Entries are made in the 0D2TBLr ONMTBL, 
FNTBL, and RCDTBL tables. 

• Information for FDs in the ICTEXT work 
area is merged with the corresponding 
ENVTBL table entry. 

• Data IC-text for FDSr LDs^ and SDs is 
generated and written on file SYS003. 
At this timer space is reserved in the 
PIOTBL table. 

Completed Data IC-text is used in Phases 
22 and 21 to make dictionary entries for 
data-names and file-names and to generate 
Data A-text. 

The routines that process the Data 
Division use the ENVTBL and QNMTBL tables 
(additional entries are made in the QNMTBL 
table) and build the 0D2TBL, PNTBL^ and 
RCDTBL tables (see "Section 5. Data Areas" 
for formats) . All of these tables except 
the ENVTBL and QNMTBL tables are passed to 
phase 1 1 . The PIOTBL table is also used by 
phase 21 r and the 0D2TBL table by phase 22 
and phase 25. The PIOTBL table entries are 
filled in by phase 11 during Procedure 
Division processing and indicate which OPEN 
options and input/output verbs are used for 
each file; the 0D2TBL table is used to 
generate Q^Poutines (object module 
subroutines used to calculate variable 
lengths for OCCURS. . .DEPENDING ON fields 
and variably located fields following the 
variable-length fields) . The 0D2TBL table 
is also used in building the debug file if 
SYMDMP has been specified (see "Building 
the OBODOTAB Table" in the chapter "Phase 
25") . 



FILE SECTION 



After the File Section header is 
encountered, the DDSCN routine calls the. 
appropriate routines to process FDs, SDs, 
and LD's in the source program. 



File Description Entries 



Each File Description entry (FD) is 
analyzed, and information from the clauses 
is entered into the ICTEXT work area. This 
information, which includes the file-name 
and the LABEL RECORDS switches, is merged 
with some of the ENVTBL information and 
placed into the FNTBL table. This ENVTBL 
information includes the ACCESS RANDOM and 
mass-storage switches and the CKPTBL bit 
that were set during Environment Division 
processing. A PIOTBL table entry is set 
up, and pointers to this entry are placed 



in the FNTBL and ENVTBL tables. The PIOTBL 
table contains binary zeros at this time. 
Variable-length names such as LABEL RECORD 
data-names are entered into the QNMTBL 
table, and pointers to these entries are 
placed in the work area. 

Note that the REPORT clause in the PD 
statement requires special processing; this 
is described in the phase 12 chapter. 

When this processing has been completed, 
the ENVTBL entry and the file description 
information from the work area are merged 
into Data IC-text FD entries. Names from 
the QNMTBL table are located (from their 
ENVTBL table pointers) and inserted where 
needed. Each completed Data IC-text 
element is written out. When File Section 
processing has been completed, the QNMTBL 
table is released. 



Sort Description Entries 



Each Sort Description entry (SD) is 
placed in work area ICTEXT and is used to 
generate an SD entry of Data-IC text. 



Record Description Entries 



When a level-number entry (LD) is 
encountered, the DDSCN routine calls a 
routine to analyze the entry and store 
information from the clauses into work area 
LDTEXT. (This area is the same physically 
as ICTEXT.) If the OCCURS clause with the 
DEPENDING ON option is included, the object 
of the clause and its qualifiers are 
entered into the 0D2TBL table (no duplicate 
entries are made) . A pointer to the entry 
is inserted later into the Data IC-text for 
the Record Description. (Each level-number 
results in a Data IC-text element in 
LD-text format. LD-text is an internal 
phase 10 text.) 

For 01-level items, an RCDTBL table 
entry is made, consisting of a pointer to 
the most recent file-name entry in the 
FNTBL table, followed by the record name. 
As a result, each RCDTBL table entry 
contains a pointer to a corresponding FNTBL 
table entry, which in turn contains a 
pointer to a corresponding PIOTBL table 
entry (see "Section 5. Data Areas") . This 
relationship is used by phase 11 when 
processing WRITE and REWRITE statements to 
relate records to their associated files. 

When all the information about the 
data-name has been stored in LDTEXT, the 
contents are written out as an LD entry in 
Data IC-text on SYS004. 
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WORKING- STORAGE AND LINKAGE SECTIONS SYNTAX ANALYSIS 

The Record Descriptions in the Phase 10 performs a syntax analysis of 

Working-Storage and Linkage Sections are the Identification, Environirent, and Data 
processed in much the same way as those in Divisions during division processing - 
the File Section. However, since they are Included are such things as checking for 
not associated with files, no RCDTBL table division headers and making sure that the 
entries are made, PROGRAM-ID clause appears in the first 

paragraph of the Identification Division, 
If user errors are detected during syntax 
analysis, E-text is generated- 
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PHASE 12 



Phase 12 reads the source statements of 
the Report Section of the Data Division^ 
producing one complete Report Writer 
Subprogram (RVJS) for each RD that it 
encounters. As it does so^ it also: 

• Scans its input for errors and 
generates any necessary E-text- 

• Generates a listing of the Report 
Section on SYSLST (SYS006 for LVL 
option), if the LIST and NOLIB options 
are in effect and no Lister options are 
in effect. 

• Records information for later phases in 
TAMER tables and in COMMON cells. 

Phase 12 reads its input from SYSIPT or 
from SYS004 if the LIB or LST option is in 
effect. It writes its output, the RWS, in 
the form of Data IC-text on SYS003 and in 
PO-text on SYS002. Any E-text produced is 
also written on SYS002, intermingled with 
the PO-text. The input and output are 
summarized in Figure 11. The RWS is 
described in Appendix C. 

If the VERB option is in effect. Listing 
A-text is generated and passed to phase 60 
or 64 so that the object program listing 
can include verb-names and procedure-names. 
Each text element is simply a word in 
EBCDIC format preceded by a code and a 
count. For every Listing A-text element 
written, a card number element is written 
in PO-text. This card number {passed on 
through the changing text forms) indicates 
to phase 60 or 64 when to read a Listing 
A-text element. 



OPERATIONS IN OTHER PHASES 



In addition to normal processing of the 
Data IC- and PO-texts, other phases perform 
related operations in response to elements 
of the source program or of the RWS. These 
elements include the REPORT clause, the 
Report Section header, USE sentences, the 
Procedure Division verbs INITIATE, 
GENERATE, and TERMINATE, control-field 
save-area names, and REDEFINES clauses - 



REPORT CLAUSE 



When a REPORT clause in an FD statement 
is encountered^ routine TBLRPT of phase 10 
primes the RWRTBL table (first REPORT 



clause only) , sets a flag bit in the PIBTBL 
table (first REPORT clause only), and 
enters the report name into the RWRTBL 
table (each REPORT clause encountered). 
Phase 12 later checks the flag bit and, if 
it is not set, returns control to phase 00 
without producing an RWS- 



REPORT SECTION HEADER 



Upon encountering the Report Section 
Header, phase 10 sets the RPTWR bit in the 
PHZSW switch in COMMON. Routine INTIO of 
phase 00 later checks the bit and calls 
phase 12 when it is set. 



USE SENTENCES 



Upon encountering a USE sentence in the 
Declaratives Section of the Procedure 
Division, phase 11: 

• Generates REPORT-ORIGIN, a special 
Report Writer verb, to cause the 
address counter to be set to the first 
instruction in the RWS group routine 
resulting from the report group 
specified in the USE sentence. 

• Inserts, at that point in the RWS 
routine, a link to the USE routine. 

• Generates another Report Writer special 
verb, REPORT-REORIGIN, to reset the 
address counter. 

Note: Report Writer verbs are discussed 
under "Elements of a Report Writer 
Subprogram" in Appendix C. 



PROCEDURE DIVISION VERBS 



Upon encountering an INITIATE, GENERATE, 
or TERMINATE verb, phase 11 generates 
PO-text, and phase 51 later generates 
linkage between the main program and 
appropriate routines in the RWS. The 
INITIATE verb results in a link to the 
INT-ROUT routine, TERMINATE to the LST-ROUT 
routine, GENERATE report- name to the 
1ST- ROUT routine, and GENERATE detail-name 
to the DET-ROUT routine. 
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CONTROL-FIELD SAVE-AREA NAMES 



Upon encountering control- field 
save-area names (which are generated by 
phase 12) , phase 22 generates a dictionary 
entry consisting of the "-nnnn" name and 
the attributes of the control field which 
had been previously defined in the Data 
Division. Further discussion of 
control- field save-areas is provided under 
"Nonstandard Data-names" in Appendix C„ 



PWS group routines for all of the 01-level 
statements defined in the source program. 
Routine GNSPRT is then called on to 
complete the RWS by filling in the fixed 
and parametric routines and any necessary 
dummy group routines. Phase 12 then checks 
to see if the next logical record is an RD 
statement", in which case another RWS is 
needed and the process begins again with 
routine RDSCAN, or if it is the Procedure 
Division header, in which case phase 12, 
being finished, returns control to phase 
00, 



REDEFINES CLAUSE 



Upon encountering Data IC-text for a 
Report Writer REDEFINES clause, phase 22 so 
processes it that the E-point name data 
item generated from the COLUMN clause 
points to the relative location in the 
print-line work area, RPT.LIN, equal to the 
integer specified in the COLUMN clause. 
When an item is later to be moved to 
RPT.LIN, the location can be determined 
from the E-point name. The length is taken 
from the PICTURE clause information in the 
dictionary attributes for the item. 
E-Point and RPT.LIN are discussed under 
"Nonstandard Data-names" in Appendix C. 



PRODUCING THE REPORT WRITER SUBPROGRAM 



(RWS) 



Generating a complete subprogram is the 
task of five routines in phase 12: RDSCAN, 
PROCOl, PROC02, FLUSH, and GNSPRT. Routine 
GETDLM controls the flow of processing for 
phase 12. That flow is tailored to the 
particular source program, but the 
following discussion explains the general 
concept. 

The RDSCAN routine processes the RD 
statement and is followed by routine 
PROCOl, which processes the 01-level 
sentence- If that sentence is an 
elementary item, routine PROC02 is called 
upon to process each elementary-level 
clause until the entire sentence has been 
processed. At that point, the P'LUSH 
routine is called to finish generating the 
group routine. If the sentence is the 
01-level statement of a group item, routine 
PROCOl processes the sentence, and routine 
PROC02 is called to process the elementary 
and lower-level group items following. 
When that is done, routine FLUSH is called, 
does its processing, and the compiler goes 
on to the next 01-level statement. 

The PROCOl-FLUSH or PROC01-PROC02-FLUSH 
loops continue until phase 12 has generated 



ROUTINE RDSCAN 



The RDSCAN routine is responsible for 
processing the RD entry of the source 
program. After first ensuring that an RWS 
should be generated (by deterrrining whether 
the RWRTBL table is primed) , it reads each 
logical unit of the RD and processes it. 
The routine operates in a loop-type scan, 
checking each item to see if it is a 
period, CODE clause, CONTROL clause, or 
PAGE clause- If it is none of these, it is 
treated as an error. 

Routine RDSCAN then sets appropriate 
switches and enters data into storage areas 
and tables. It then gets a new record and 
repeats the loop until it encounters a 
period. When this happens, control returns 
to routine GETDLM, which calls routine 
PROCOl. 



ROUTINE PROCOl 



Routine PROCOl processes the 01-level 
record descriptions. Valid input for this 
routine includes the period and the NEXT 
GROUP, LINE, TYPE, and USAGE clauses. It 
operates in a loop-type scan and processes 
each clause in much the same way as the 
RDSCAN routine does. Since an 01-level 
elementary entry is permissible, other 
clauses can also be valid. Before assuming 
an error, routine PROCOl, therefore, 
branches to the PROC02 routine to check for 
and process elementary-level clauses. Once 
a valid clause is processed in one or 
another of these routines, control returns 
to the beginning of the loop in routine 
PROCOl- 

Processing of the TYPE clause marks the 
generation of the initial coding for the 
group routine. Since the compiler has, at 
that point, enough input to begin the group 
routine, the first part of that routine is 
aenerated here. 
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Figure 11. Phase 12 Input/Output Flow 
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ROUTINE PROC02 



Routine PROC02 is entered when routine 
GETDLM encounters an 02-49-level entry or, 
at entry point PR02A, during PROC01"s scan 
of an 01-level elementary item. Its 
operation is similar to that of routines 
RDSCAN and PROCOl, except that checks are 
made so that control returns to routine 
PROCOl when appropriate. 



ROUTINE FLUSH 



7. Generates any needed CTH-ROUT 
routines. A CTH-ROUT routine is 
needed for any control specified in 
the source program after the highest 
level (or FINAL) control. If the 
source program contains no TYPE IS 
CONTROL HEADING report description for 
such a control, routine GNSPRT 
generates a dummy group routine here 
to fill the need. 

8. Generates any needed CTF-ROUT 
routines. A CTF-ROUT routine is 
needed under circumstances like those 
for a CTH-ROUT routine. 



When routine FLUSH is called, all the 
informiation needed to complete one group 
routine is available in the form of table 
entries, contents of data areas in storage, 
and switch settings. Routine FLUSH 
generates the exit coding for the group 
routine, and then returns control to 
routine GETDLM- 



9. Generates one SAV-ROUT routine and one 
RET-ROUT routine. 



GENERATING ERROR MESSAGES 



ROUTINE GNSPRT 



Routine GNSPRT is called when the GETDLM 
routine encounters a new RD or the 
Procedure Division header. At this point, 
all group routines defined in the source 
program have been written onto SYS002 (in 
PO-text) , and all data needed to complete 
the RWS is in storage. Routine GNSPRT 
first writes out the necessary Data IC-text 
on SYS003 and then, in order: 

1. Generates the WRT-ROUT routine- 



Coincident with producing the RWS, phase 
12 scans its input for syntax errors. 
Checks are made to ensure that each routine 
is both correct in itself and compatible 
with the rest of the RWS. If errors are 
detected, messages are written in E-text 
and recovery is attempted. When necessary, 
attempts to produce the particular RWS are 
abandoned. The E-text is written,, 
intermingled with PO-text, on SYS002. 



GENERATING THE SOURCE LISTING 



2. Generates a dummy group routine for 
any of the following groups not 
defined in the source program: 
Control Heading Final, Control Footing 
Final, Page Footing, Page Heading, 
Report Heading, and Report Footing. 

3. Generates the INT-ROUT routine. 



As each record is read from SYSIPT, a 
check is made to determine if the LIST 
option is in effect. If so, the source 
statement is copied out onto SYSLST (or 
SYS006 for LVL option). 



4. Generates, if a PAGE LIMIT clause was 
specified in the source program, an 
ALS-ROUT routine and an RLS-ROUT 
routine. If no PAGE LIMIT clause was 
specified, the RWS contains neither of 
these two routines. 

5. Generates one USM-ROUT routine for 
each TYPE IS DETAIL group specified 
under the RD statement being 
processed. 

6. Generates in order, one each of the 
following routines: CTB-ROUT, 
RST-ROUT, IST-ROUT, LST-ROUT, and 
ROL-ROUT. 



INFORMATION FOR LATER PHASES 



During its processing, phase 12 stores 
various types of information for later 
phases to use. For example, phase 12 
builds the ROUTBL table, which contains the 
specific GN numbers assigned to certain RWS 
routines. Phase 11 needs this information 
in order to process INITIATE, TERMINATE, 
GENERATE, and USE BEFORE REPORTING 
statements. Such items are stored in TAMER 
tables and in cells in COMMON. For more 
details on this subject, refer to Figure 11 
and to "Communications Region" and "Table 
Formats" in "Section 5: Data Areas." 
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PHASE 11 



Phase 11 (ILACBLll) reads the source 
statements of the Procedure Division. It 
is entered via phase 00 when phase 12 
encounters the Procedure Division neader, 
or when the GETDLM routine in phase 10 
encounters an end-of-file condition. As it 
reads each card in the Procedure Division, 
phase 11 does the following: 

• Encodes the Procedure Division into , 
PC-text. 

• Enters procedure-names into the 
dictionary. 

• Writes the Procedure Division on SYSLST 
(SYS006 for LVL option), if the LIST 
and NOLIB options are in effect and no 
Lister options are in effect. 

• Generates error text (E-text) for 
syntax errors it encounters. 

The phase 11 routines first process the 
out-of-line procedures contained in the 
Declarative Sections. (Processing 
declaratives is described later in this 
chapter.) Then the in-line program is 
processed. 

Tables passed from phase 10 and used by 
phase 11 include the PIOTBL, FNTBL, RCDTEL, 
PIBTBL, and SPNTBL tables. Tables passed 
from phase 12 and used by phase 11 are the 
DETTBL, RNMTBL, ROUTBL, and RWRTBL tables. 
The PNTABL and PNQTBL tables are built 
during phase 11. If the VERBREF or VERBSUM 
option is in effect, phase 11 will create 
the VERBDEF Tamer table. Formats for 
tables, text entries, and dictionary 
entries are given in "Section 5. Data 
Areas. " 

Phase 11 functions are performed under 
the control of the PDSCN routine and the 
two major working routines GETCRD and GETWD 
(which supply input to PDSCN) . The GETCRD 
and GETWD routines are described under 
"Major Working Routines" in the phase 10 
chapter. These and all other routines used 
by both phases do not remain in storage 
from phase 10, but are reloaded with phase 
11. 

If the VERB, VERBREF, or VERBSUM option 
is in effect. Listing A-text is generated 
and passed to phase 6 or 64 so that the 
object program listing can include 
verb-names and procedure-names. Each text 
element is simply a word in EBCDIC format 
preceded by a code and a count. For every 
Listing A-text element written, a card 



number element is written in PO-text. This 
card number (passed on through the changing 
text forms) indicates to phase 60 or 64 
when to read a Listing A-text element. 



ENCODING THE PROCEDURE DIVISION 



A major activity of \ phase 11 is writing 
PO-text. This text is,\ roughly, the source 
program Procedure Division encoded into a 
form acceptable to later phases. Logical 
units (source program character 
configurations) are processed, encoded, and 
written out one at a time. Some 
information, such as card numbers^ is 
generated for PO-text. All user-assigned 
names are passed unchanged (preceded by 
code and count fields) from the source 
text. Verbs and other COBOL words are 
replaced by unique 2-byte codes. For the 
complete text formats, see "Section 5. 
Data Areas." 



PROCESSING PROCEDURE-NAMES 



At its point of definition, each 
procedure-name (paragraph-name or 
section-name) is given a PN number. The 
point of definition is that point at which 
the name appears in Area A of the source 
program. PN numbers are assigned 
sequentially J, starting with 1, from cell 
PNCTR in COMMON. The procedure-name is 
entered into the dictionary and written in 
PO-text- Some dictionary attribute bits 
are set when the entry is made, and others 
are moved in from the PNTABL or PNQTBL 
tables later when the attributes are known. 
The building of the PNTABL and PNQTBL 
tables is described below under "Processing 
Verbs." Entering PNTABL and PNQTBL 
information into the dictionary is 
described later in this chapter. 



Priority Checking for Segmentation 



For each section-name, the segmentation 
priority is entered into the dictionary. 
If no priority number was specified, zero 
is entered as the priority (in a 
nonsegmented program, all sections are 
given a zero priority) . If a priority 
number was specified, its value is compared 
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to the value of the SEGLMT cell in COMMON 
(this cell either was set by phase 10 when 
processing the SEGMENT-LIMIT clause or 
contains a default segment-liinit of 4 9) . 
If the priority number of the section-name 
is less than SEGLMT, it means that the 
section is part of the root segment. In 
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this case, the priority number of the 
section-name is entered into the dictionary 
as zero. If the priority number exceeds 
SEGLMT, the specified number is entered 
into the dictionary. 

Each time a section-name is found whose 
priority exceeds the value of SEGLMT, a 
phase 11 switch is turned on. If, at the 
end of Procedure Division processing, this 
switch still contains zero, it means that 
the program is not segmented and SEGLMT is 
set to hexadecimal »FF». If the switch is 
on, SEGLMT is left as it was. The value of 
SEGLMT is used by later phases to determine 
whether or not the program is segmented. 



PROCESSING VERBS 



Input/Output Verbs 



Switches are set in the PIOTBL table 
entry for the file named in input/output 
verbs. These switches tell phase 21 how 
the file was used. In addition, the 
following processing takes place. The 
REDSVB routine also checks for the word 
NEXT in the READ verb. If it is present, 
the routine turns on the appropriate bit in 
the PTOTBL table - 



OPEN : If the label or error-processing 
declaratives were written for this file, 
GNs (generated procedure names) for the 
declaratives are encoded into the PO-text 
following the file-name in the OPEN 
statement. The handling of these 
declaratives is described under "Processing 
Declaratives" in this chapter. 



All verbs are encoded and written as 
PO-text. In addition, the verbs discussed 
below reguire special handling. 



DELETE: 



The FILSVB subroutine checks that 



the filename specified in the DELETE verb 
was previously specified in a SELECT 
statement. The subroutine turns on the 
appropriate bit in the PIOTBL table if the 
file-name is valid. 



Procedure Branching Verbs 



When the procedure branching verbs 
(ALTER, EXIT, GO TO, and PERFORM) are 
processed, information about how a 
procedure-name is used is entered into the 
PNTABL or PNOTBL table. If the 
procedure-name to be entered is qualified 
by a section-name, the procedure-name and 
its qualifier are entered into the PNQTBL. 
If the procedure-name is not qualified, it 
is entered into the PNTABL. Entries from 
the tables are used to set some of the 
attribute bits in the dictionary entries 
for the procedure-names. A unique bit is 
turned on in the attributes field for the 
procedure-name according to their use. 

GO TO ; The left-hand name (the 
procedure-name appearing in Area A, not the 
object of the GO TO) is entered into the 
PNTABL table. If the DEPENDING ON option 
is used, no entry is made. 

EXIT ; The left-hand name is entered into 
the PNTABL table. 

ALTER ; The procedure-name following the 
word ALTER and the procedure-name following 
the phrase TO PROCEED TO are entered in the 
PNTABL table. 

PERFORM,. .THRU ; The procedure-name 
following the THRO is entered into the 
table. If the THRU option is not used, the 
procedure-name following PERFORM is 
entered. 



WRITE, REWRITE : The record name is sought 
in the RCDTBL table; the RCDTBL entry 
contains a pointer to the FNTBL table, 
which is used to find the file-name. The 
file-name is then included in the PO-text 
entry (in the form "WRITE file-ruame 
record-name") . If the ADVANCING option of 
the WRITE statement is used with the 
mnemonic-name option, it is sought in the 
SPNTBL table and replaced with the proper 
function-name . 



Other Verbs 



ACCEPT > DISPLAY ; If a mnemonic name is 
used, it is sought in the SPNTBL table and 
replaced by the proper function -name. 

DEBUG ; The attribute bits in the 
dictionary entry for the paragraph referred 
to are set. 

EXHIBIT ; A special EXHIBIT data-name is 
generated. 



READY; 



The TRACE switch in COMMON is set. 



SORT/MFRGE : If the USING or GIVING option 
is specified, the appropriate bits are set 
in the PIOTBL table entries for the files 
named. If these files are also specified 
in label or error processing declaratives, 
the GNs for the declaratives are appended 
to the file-name. 
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Report Writer Verbs ; See ''Appendix C: 
Report Writer Subprogram." 



PROCESSING DECLARATIVES 



When a Declaratives Section is 
encountered, the section-name (and any 
paragraph-names as they are encountered) 
are entered into the dictionary. A PNTABL 
entry is made for the section-name; the 
declarative bit and the bit identifying the 
type of declarative are set. Every 
paragraph-name in the section is also 
entered into this table , with only the 
declarative bit set. These bits are used 
later to set dictionary attribute bits. 

Each label or error declarative is given 
a GN (generated procedure-^narae) number. 
These numbers are assigned seguentially, 
starting with ^, from the GNCTR cell of 
COMMON. If the USE sentence specified ON 
file-name, the GNs are entered into the 
appropriate fields of the FNTBL entry for 
the file. If the USE sentence specified ON 
INPUT, ON OUTPUT, or ON I-O, the GN number 
is entered into a particular OPEN option 
work area. 

For each file-name specified in an OPEN 
statement, the corresponding FNTBL table 
entry is inspected. If GNs were entered 
into the FNTBL during declarative 
processing, they are inserted into the 
PO-text. Otherwise, the work areas for the 
particular OPEN option are searched for the 
appropriate GNs for this file. For an 
error declarative, if a GN for ON INPUT is 
found in the work area, the GN number is 
inserted into all OPEN INPUT PO-text 
entries. The GNs for label declaratives 
are appended only for files whose FD 
entries include a LABEL RECORD IS data-name 
clause. OUTPUT and 1-0 GNs are handled the 
same way. 

The USESVB routine builds the GVNMTBL 
table containing the fully qualified 
data-names used in the GIVING option of the 
STANDARD ERROR/EXCEPTION PROCEDURE 
declarative for VSAM files. The routine 
also builds the GVFNTBL table when a VSAM 
file has been specified in the ON option of 
the declarative. 



characteristics field is later filled in 
from the flag field of either the PNQTBL or 
PNTABL table if the PN (1) follows the 
PERFORM in a PERFORM. ..THROUGH statement, 
(2) follows the PERFORM in a PERFORM 
statement without the THROUGH, (3) is 
altered by an ALTER statement, (4) follows 
TO PROCEFD TO in an ALTER statement, (5) 
precedes a GO TO or an EXIT statement, (6) 
is referred to or defined in a DEBUG 
paragraph, (7) is a dummy name, or (8) 
appears in the Declaratives Section. The 
three fields are identical. 

Each time such a PN is encountered, the 
PNQTBL table (if it is a qualified name) or 
the PNTABL table (if it is not) is searched 
to find an earlier entry for it. If one is 
found, the flag bytes are modified; if not, 
a complete entry is made. At the end of 
the Procedure Division, or the section 
currently being processed if the Procedure 
Division is divided into sections, a search 
is made in the dictionary. When an entry 
is found for that PN, the characteristics 
field is modified, and the PNTABL or PNQTBL 
entry is deleted. A new table entry is 
made for that PN if it is encountered in a 
later section. 

Whenever the Procedure Division is 
divided into sections, the technique used 
to search the dictionary is affected. 
Phase 11 calls the appropriate TAMER ACCESS 
routine, giving it the name of a particular 
Procedure Division section. All PNs 
entered in the dictionary from that section 
are then searched. If the search is for a 
PN from the PNTABL table and the dictionary 
has been searched without finding the PN, a 
search bit is turned on in the table entry. 
The next time the dictionary is searched 
for this PN, only entries from the newly 
processed section will be searched. In the 
case of the PNQTBL table, the table entry 
contains the section-name qualifier. Thus, 
if the section named in the table entry has 
been processed, the dictionary entry is 
found among the entries for that section. 
If the section -name has not yet been 
encountered, no search is made, and no 
search bit, therefore, is needed. 

Figure 12 shows an example of such a 
search. Note that the figure does not show 
the entry formats. Dictionary formats and 
table formats are shown in "Section 5. 
Data Areas." 



ENTERING PROCEDURE-NAMES IN THE DICTIONARY 



DUMMY ENTRY FOR PHASE 80 



A dictionary entry is made for all 
procedure-^names (PNs) upon their point of 
definition (appearance in Area A) in the 
source program. The entry's 2-byte 



Phase 11 places a dummy element after 
the source statements; this dummy element 
is used by phase 80. 
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DICTIONARY 



r ■ - -" ■ r 1 

I Point of definition 1 Procedure 1 
lis in section |name | 


I 1 PN1 1 
1 1 1 PN2 1 


1 2 II 


1 1 PN5 1 
1 3 1 PN6 1 
1 1 t 



PNTABL 



I r 

Section 
of Table 
Entry 



Procedure | 
Name | 



Action Taken 



1 

PN2 I Dictionary entry found on first search. Table entry is deleted. 



4- 



PN6 I On first search, the dictionary entry not yet made, so search bit is 
I set. On second search, only entries from section 2 are searched. 
I Since the name is still not entered in the die- tionary, the search 
I bit remains on. On third search, only entries from section 3 are 
{searched. Entry is found and the table entry deleted. 



4- 



PN5 I On the third search, the whole dictionary is searched for this name, 
I which is in the table for the first time. Dictionary en~ try is 
I found and the table entry is deleted. 



PNQTBL 



I Section j Qualified | 
I of Table I Procedure I 
I Entry JName | 



Action Taken 



-4 1 

|PN1 in I On the second search, the entries from section 1 are immediately 
I I searched. The entry is found and the table entry deleted. 



Figure 12. Entering PNTABL and PNQTBL Information into the Dictionary 
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PHASE 20 



Phase 20 is the third of five phases 
that process the Data Division. It follows 
phase 11r overlaying it in storage. After 
it is loaded, storage contains phase 00 
(including COMMON) , the TAMER table and 
dictionary area, and phase 20. The primary 
concerns of phase 20 are the VALUE and 
PICTURE clauses of the data descriptions, 
which it translates from Data IC-text into 
ATF-text. 



VALGRP, to later phases. The input and 
output for this phase are summarized in 
Figure 13. 



TRANSLATING LP ENTRIES INTO ATF-TEXT 



Phase 20 processing is initiated and 
controlled by the BEGIN routine. It reads 
each Data IC-text element and, from each LD 
entry, it computes and writes a partial 
dictionary entry to be passed to phase 22. 
After completing the partial entry, phase 
20 writes it on SYS004 (the format of the 
entry is called ATF-text) and rea^s the 
next Data IC-text element, continuing until 
SYS003 has been exhausted. All Data 
IC-text for FDs, SDs, and keys for table 
handling and any E-text encountered is 
copied unchanged onto SYS004^ 

Phase 20 also scans its input for syntax 
compatability and error conditions, 
producing any necessary E-text it produces 
and passes two tables, the VALTRU and the 



Routine BEGIN first determines whether 
the element read is an LD element; that is, 
one resulting from a source program record 
description entry of level 01-49, 66, 77, 
or 88. If so, BEGIN stores the current 
input card number into a halfword in COMMON 
called CURCRD and calls on routine LDTEXT. 
LDTEXT copies the elementfrom the input 
buffer into a work area, called ATFTXT, 
reads the next record (Data IC-text 
element) into the buffer, compares the 
current level number to the next element •s 
level number to determine whether it is a 
group or an elementary item, and calls the 
appropriate routines to create the 
ATF-text. 



SYS003 



Data IC-text 
E-text 



Storage (In phase 00) 



COMMON 




Storage (TAMER Area) 

i 

I Tables built by phase 20 

LABTBL table 
VALGRP table 
VALTRU table 



SYS004 



Incomplete Data A-text 
Data IC-text 
ATF-text 
E-text 



Storage (In phase 00) 



COMMON 



Storage (TAMER Area) 

VALTRU table 
VALGRP table 



I To 



I phase 
122 



Figure 13. Phase 20 Input/Output Flow 
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PROCESSING ELEMENTARY ITEMS 



PROCESSING GROUP ITEMS 



For an elementary item, the LDTEXT 
routines described below produce a portion 
of an ATF--text element that contains fields 
identical to a dictionary entry except for 
the addressing parameters. Routine DICTBD 
of phase 22 fills these in later. 



If there was a PICTURE flag in the Data 
IC-text for the elementary item, the LDTEXT 
routine calls routine GSPICT to distribute 
the PICTURE into work areas. The kind of 
character is stored in work area IPT and 
the number of occurrences of that character 
in IPLT. Subroutines/ depending on the 
type of the PICTURE, determine the length 
of the item and its attributes. The 
attributes are entered in the variable 
information field of the ATF-text element. 



An indication of how many subscripts are 
needed to refer to the item is set in the 
text element by subroutine BMBSRN. The 
REDEFINES bit is set from the REDEFINES 
flag in the Data IC-text, and the object of 
the REDEFINES clause is saved for 
processing by phase 22. (If the REDEFINES 
clause is internal, that is, generated for 
the Report Section, and the subject of the 
clause is a name plus a displacement, phase 
22 adjusts the addressing parameters of the 
object of the clause to reflect the 
displacement.) The major code, which is 
changed only when a new section header is 
encountered, is moved from a work area to 
an ATF-text field. In addition, the level 
numbers are normalized as an aid to phase 
30. 

If there was a COPY flag in the Data 
IC-text, routine COPYRN picks up the name 
from the text so that the data-name of the 
entry can replace the COPY library-name in 
the copied entry. 

Routine BUSAGE utilizes the USAGE 
information in the Data IC-text to 
determine the size of the elementary item 
if there was no PICTURE. It provides 
enough information to set the minor code 
field in the ATF-text element to the type 
of the entry and to fill in the variable 
information field with a description of the 
item. If there was a PICTURE, the USAGE 
information, together with the PICTURE, 
provides enough information to set the 
minor code and variable information fields. 

If a RENAMES clause is associated with a 
data item, no partial dictionary entry 
exists in the ATF-text element, and all 
processing is done by phase 22. The BCD 
names are passed on unchanged from the Data 
IC-text element. 



For a group item, the LDTEXT routines 
produce a portion of an ATF-text element 
that is identical to a dictionary entry 
except for the addressing parameters and 
the length of the group. These are later 
filled in by phase 22. 

The processing is the same as that for 
elementary items with two exceptions. 
Routine BUSAGE saves the USAGE, in area 
GUI, to verify the USAGE of the elementary 
items. Routine SRCKT3 passes the keys, if 
any, unchanged to phase 22. 



PRODUCING INCOMPLETE DATA A-TEXT 



Phase 20 generates incomplete Data 
A-text elements for constants defined by 
VALUE clauses. Information for 
constructing this text comes from the Data 
IC-text read from SYS003. For LD entries 
with VALUE clauses, the value is given in 
the Data IC-text element and is entered 
directly by routine VALGEN into the 
incomplete Data A-text element. Constants 
defined by VALUE IS SERIES clauses are 
discussed under "Building Tables for Later 
Phases" in this chapter. For the formats 
of Data A-text and Data IC-text, see 
"Section 5. Data Areas." 



PROCESSING FILE SECTION ENTRIES 



When it encounters the File Section 
header, the BEGIN routine transfers control 
to routine FILEST, which controls the 
processing of the section. Routine FILEST 
uses the BSUBRN routine to read the Data 
IC-text elements. For a critical program 
break or EOF, routine FILEST returns 
control to routine BEGIN. 



PROCESSING ERRORS 



As phase 20 processes Data IC-text, the 
clauses are checked to determine whether 
they are allowed to be used together. The 
following is an example of the checking 
that is performed. 

When routine LDTEXT processes Data 
IC-text elements for LD entries, some of 
the clauses are processed before a 
determination is made of whether the item 
is a group or elementary item. Then, when 
the LDTEXT routine determines whether the 
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item is a group or elementary item, it 
eliminates any invalid clauses. For 
example, if a PICTURE clause is given for a 
group item, routine LDTEXT processes it. 
Then when it determines the item is a group 
item, routine ERETN issues E-text for the 
invalid PICTURE clause. 
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PHASE 22 



Phase 22 is the fourth of five phases 
that process the Data Division. (For an 
overview of that processing, refer to 
Figure ^ of the introduction to this book 
and to Diagram 1 in the Diagrams section.) 
Phase 22 follows phase 20, overlaying it in 
storage. Its major functions are: 



• Producing dictionary entries. 



DICTIONARY PREPFOCESSING 



• Completing Data-A text. 



• Generating Q-routines. 



RENAMES Entries : 



If a RENAMES clause is 



associated with a data item, routine BENAMS 
goes to the dictionary and locates the data 
item or items being renamed. The routine 
picks up the attributes and addressing 
parameters for the dictionary entry or 
entries and assigns them to the RENAMES 
item. The routine then places the 
completed entry for the RENAMES item into 
the dictionary. The entire dictionary 
entry for a RENAMES item is formulated by 
the RENAMS routine. 



Phase 22 processing is initiated and 
controlled by the DIRECTOR routine. A Data 
IC-text or ATF-text element is read from 
SYS004 and distributed to work areas. 
Routine DICTBD then completes fields in the 
entry and places it in the dictionary. 
While building the dictionary entry, phase 
22 also checks for syntax compatibility and 
error conditions. After phase 22 has 
completed the dictionary entry for a given 
text element, it picks up the next element 
for processing, continuing until SYSOCf has 
been exhausted. All Data IC-text for FDs 
and SDs and any E-rext encountered is 
copied unchanged onto SYS003. 



LP Entries ; Before the dictionary build 
routine is called to complete the 
dictionary entry for an elementary item, 
routine LDTXT obtains a dictionary pointer 
for the item by calling an ACCESS routine, 
GETPTR. (ACCESS routines are described in 
"Appendix A. Table and Dictionary 
Handling.") 



A delimiter pointer is needed for group 
items. Level-88 entries are put into the 
dictionary directly by the input routine 
READFa. 



Incomplete index-name entries (prefix 
04) are entered into the dictionary by 
routine PEADF4 when they are encountered. 
Later, information is filled in by routine 
XTEN, a subroutine of DICTBD. 



The input and output for this phase are 
summarized in Figure 14. 



FD Dictionary Entries ; A skeleton 
dictionary entry is created by routine 
FSTXT. This entry contains only the file 
name; the attributes are filled in by phase 
21. The length of the file attributes is 
determined by the access method specified; 
phase 22 determines that in making the 
skeleton dictionary entry. Routine FSTXT 
assigns the next DTF number to the file and 
writes the Data IC-text for the FD on 
SYS003. Phase 22 determines if there is an 
ISAM file which has no RESERVE NO clause 
and is opened INPUT or I-O. 



BUILDING DICTIONARY ENTRIES 



Phase 22 stores the current card number 
for each input card in a halfword in COMMON 
labeled CURCRD. It then calls the 
appropriate routine for preprocessing of 
the data item, and after the preprocessing 
is finished, it calls routine DICTBD to 
complete the entries. 

The routine makes either complete or 
dummy dictionary entries. 



Since phase 21 processes the Data 
IC-text for FDs, routine FSTXT passes this 
text to SYS003 (the same file on which 
phase 22 writes Data A-text) except for 
user label record information. 



A dictionary pointer is obtained and 
processing of the entry is completed by 
routine DICTBD and its subroutine FSTGOO. 
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Figure 14. Phase 22 Input/Output Flow 
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Partial RD Dictionary Entries ; Routine 
RDTXT does most of the processing for the 
RD dictionary entry. At the end of this 
processing, the entry is complete and 
entered in the dictionary by routine 
DICTBD, 

SD Dictionary Entries ; SD entries are 
handled like FD entries. Routine SDTXT 
performs this processing. 



COMPLETING DICTIONARY ENTRIES 



The dictionary build routine, DICTBD, 
completes these dictionary entries which 
were begun in phase 20 by filling in 
addressing information. Each data item is 
addressed by a base locator number and a 
displacement. 

The addressing parameter field has three 
parts, called i, d, and k, where i 
specifies the type of base locator (BL, 
BLL^ or SBL) , d specifies the displacement 
of the item from the beginning of the area 
controlled by the base locator, and k 
specifies the base locator number. 

A base locator number is assigned to the 
beginning of each major data area, such as 
the Working-Storage Section, and to each FD 
and SD entry. Then the displacement of 
each item in these areas from the beginning 
of the area is calculated. If the items in 
the area occupy more than 4^096 bytes, a 
second base locator number is assigned to 
the second 4,096 bytes^ etc- (In this 
case, RD entries are considered to be an 
extension of the Working-Storage Section 
and the same base locators are used. ) 

There are three types of base locators 
(BL, BLL, and SBL) depending on the type of 
data area- Base locator numbers are 
assigned sequentially from counters in the 
COMMON area. 



Type 
BL 



BLL 



SBL 



Counte r Use 
BLCTR 



BLLCTR 



SBLCTR 



BL numbers are assigned to 
the Working-Storage Section, 
the Report Section, and to 
each file (FD, RD, and SD 
entry) . 

BLL numbers are assigned to 
the Linkage Section and to 
label records. 

See "Q-routine Generation" 
in this chapter. 



C ompleting Working-Storage Section Entries ; 
The Working- Storage Section contains only 
LD entries. Routine DICTBD completes the 



LD dictionary entries by filling in the 
addressing parameter field for group and 
elementary items and by determining the 
length and the delimiter pointer for group 
items. 

Routine DICTBD assigns a base locator 
number to the beginning of the 
Working-Storage Section. The type of the 
base locator number is BL, and the base 
locator number is the next available number 
from field BLCTR in COMMON. The d part of 
the addressing parameter is obtained from 
the LOCCTR counter in COMMON. Each time a 
Data A-text element is written out, the 
counter is incremented by the number of 
bytes the element will occupy at object 
time. 

Routine DICTBD uses the GPLSTK table to 
keep track of the length of group items. 
It enters the length and the delimiter 
pointer (the dictionary pointer of the 
group delimiter) in the dictionary entry 
for the group. It also deletes the GPLSTK 
table entry for the group. 



Note: The lengths of 77-level items are 
not added to the GPLSTK table since they 
are independent items. 

If an item contains a REDEFINES clause, 
routine DICTBD calls routines REDEF and 
RDSYN to process the item using tables 
RDFSTK and RNMTBL. The REDEF routine makes 
an entry in the RDFSTK table, giving the 
length of the REDEFINES object and the 
level number and current addressing 
parameters of the REDEFINES subject. Then 
the REDEF routine assigns the addressing 
parameters of the REDEFINES object to the 
REDEFINES subject. An entry is also made 
in the RNMTBL table, giving the level 
number, dictionary pointer, and length of 
the object of the REDEFINES. 

When an item is encountered with a level 
number less than or equal to the last level 
number in the RDFSTK table, it is assigned 
the addressing parameters from the entry. 

The length of the REDEFINES object is 
saved in the RDFSTK table. If the 
REDEFINES subject is a group item, its 
length is determined by the GPLSTK table. 
If it is an elementary item, routine RDSYN 
determines its length. 

Table RNMTBL is also used if there are a 
series of items with REDEFINES clauses. 



Completing File Section Entries : Routine 
DICTBD uses its subroutine FSTOOO to 
complete dictionary entries for FDs. 
Subroutine FSTOOO performs two major 
functions; 
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• It resolves the previous FD^ if any, 

• It completes the processing of the 
current FD, if any. 

Routine DICTBD processes SD entries in 
the same way it processes FD entries, 

Completing Linkage Section Entries ; 
Linkage Section entries are processed the 
same as Working-Storage Section entries 
except that the type of base locator number 
assigned is BLL. For a label record item, 
the first BLL is assigned. For other items 
in the Linkage Section, BLL numbers are 
assigned starting with the second BLL. All 
level-77 items and all group items starting 
with level- 01 in the Linkage Section are 
assigned unigue BLL numbers - 

Completing Report Section Entries : Routine 
DICTBD adds no information to Report 
Section entries before it puts them in the 
dictionary. 

DOS UPSI Feature Names : When routine INIT 
first receives control, it checks to see if 
phase 10 created the UPSTBL table. If so, 
it calls routine UPSI to enter the 
function-names, mnemonic-names, and 
condition-names into the dictionary. 



GPLSTK, VERBDEF, and VALGRP, Data IC-text 
created in phase 10 or 12 and passed by 
phase 20, and ATF-text created by phase 20. 
The format of COMMON^ the tables, and the 
texts are described in "Section 5. Data 
Areas. " 



Q-ROUTINE GENERATION 



Phase 22 uses the following tables to 
generate Q- routines: 0D2TBL, QFILE, QVAR, 
OBJSUB, QITBL, and QRTN. The 0D2TBL table 
is created by phase 10 and the other tables 
by phase 22. The QFILE and QVAR tables are 
passed on to phase 30; the 0D2TBL, OBJSUB, 
QITBL, and QRTN tables are released by 
phase 22. (When the SYMDMP option is in 
effect, however, the QITBL and QRTN tables 
are passed to Phase 25.) The 0D2TBL table 
contains the qualified names of objects of 
OCCURS. o -DEPENDING ON clauses. 

Routine QVARBD combines the information 
contained in the 0D2TBL, the QRTN, the 
OBJSUB, and the QITBL and QFILE tables into 
the QVAR and QFILE tables for phase 30. 
The routine then releases the 0D2TBL, QRTN, 
and QITBL tables. (When SYMDMP is in 
effect^ it releases only the 0D2TBL table.) 



GENERATING DATA A-TEXT 



Phase 22 completes the incomplete Data 
A-text elements passed to it by phase 20 by 
adding the location counter values. The 
two prefix bytes (the X"10' indicator and 
the length count affixed by phase 20) are 
left to serve as an indicator to phase 21 
that the text element needs no further 
processing. Phase 21 deletes the first 2 
bytes and then passes it unchanged to Phase 
6 and selects the Data IC-text elements 
(for FDs and SDs) for translation into Data 
A-text. 

Phase 22 generates five types of Data 
A-text elements itself. While doing so, it 
prefixes them with the same two bytes of 
information discussed above. The four 
types are: 

• Working- Storage Section address 
elements. 

• Constants from VALUE clauses. 

• Data-name DEF elements. 

• Verb DEF elements. 

• Q-routine identification elements. 

To create these elements^, phase 22 uses 
information stored in COMMON, tables 



If phase 10 created an 0D2TBL table, 
phase 22 checks each elementary item that 
it processes to see whether or not it is in 
the 0D2TBL table. If it is, phase 22 sets 
the dictionary entries of the item and all 
its groups to reflect that they are objects 
of OCCURS, . .DEPENDING ON clauses. If it is 
a group item, routine XTEN performs the 
processing; if it is an elementary item, 
routine ELIPR handles the processing - 
Routine ELIODO then places the dictionary 
pointer for the item and a pointer to the 
related 0D2TBL entry in the QITBL table- 
If an object of an OCCURS ... DEPENDING ON 
clause is encountered while processing the 
File Section, its 0D2TEL table displacement 
is placed in the OBJSUB table. 

When phase 22 encounters an ATF-text 
element for an LD entry with a pointer to 
the 0D2TBL table (that is, the item was 
described with an OCCURS. - .DEPENDING ON 
clause) , routine INTVLC marks all the group 
items currently in table GPLSTK as variable 
in length by assigning a VLC 
(Variable-length cell) number from field 
VLLCTR in COMMON to each item. If a 

subject of an OCCURS DEPENDING ON clause 

is encountered while processing the File 
Section, its GN number is placed in the 
OBJSUB table. 

In addition, if an item follows a 
variable-length field and is not a new file 
or record^ it is variably located. To each 
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of these items, phase 22 assigns an SBL 
(secondary base locator) number from field 
SBLCTR in COHMON. At execution time, there 
are secondary base locator cells (one for 
each SBL number) in the Task Global Table 
that contain the current location of the 
variably located field. Phase 22 generates 
0-routines to calculate initial values and 
changes in these secondary base locator 
cells. 

Whenever phase 22 generates Q-Routine 
text, a determination is made to see 
whether it is the first time that Q-Routine 
text has been generated for this record. 
If it is the first time, a GN number is 
generated and routine QBOILD places it in 
front of the Q-Routine text for 
identification . This routine then makes an 
entry in the QRTN table containing the GN 
and the pointer to the 0D2TBL .table . If it 
is not the first time, the QRTN table is 
checked to see whether or not the pointer 
to the 0D2TEL table is there. If the 
pointer is missing, it is put in. 

Data A^text Q~routine identification 
elements are generated for each 0-routine 
and placed on the Data A-text data set. 
These indicate that the Q-routines are to 
be executed during initialization 
processing at execution time. 



EBCDIC names for keys (prefix 01 or 02) 
are entered into the SRCHKY table by 
routine READF4 while the dictionary is 
being built. This table is used for syntax 
checking whenever the names are 
encountered. 

If CSYNTAX is specified and an error is 
detected, the syntax option bit in COMMON 
is forced on and conflicting options are 
forced off. 



BOILDING TABLES FOR LATET? PHASES 



Phase 22 builds eight tables for later 
phases. In addition, it uses the VALTRU 
table for syntax checking of the VALUE IS 
SERIES clause, but then leaves that table 
in main storage for phase 30. The VALTRU 
table is built by phase 20 and described 
under that heading. 

The OVAR and OFILE tables are built 
during Q-Routine generation and stored for 
use by phase 30. They are discussed above 
under »»0-routine Generation." 

During predictionary processing 
(described above) , routine SRH200 creates 
the INDKEY table. 



PROCESSING ERRORS 



As Phase 22 processes Data IC-text and 
ATF-text, a check is made of the clauses to 
be sure that they are allowed to be used 
together. 



The FDTAB table is built for phase 21. 

If the SYMDMP option is in effect, phase 
22 primes and builds as many as four 
tables, depending on the clauses in the 
source program, for phase 25: the OCCTBL 
table, the"'MASTODO table, the VARLTBL 
table, and the RFNAMTB table. 
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PHASE 21 



When phase 21 is loaded into storage, 
all data items except PDs and SDs have been 
translated from Data IC-text into Data 
A^text, and the dictionary is complete 
except that the FD and SD entries are dummy 
entries without data attributes written by 
phase 22. After phase initialization, 
routine BEGINPH is given control. This 
routine reads each record from SYS003 and 
determines the action to be taken. For an 
A-text or E-text element, the two-byte 
prefix attached in phase 20 or 22 is 
removed, and the element is copied onto 
SYS004; FD and SD elements are selected for 
processing by phase 21; all other records 
are copied unchanged onto syS004. 

From the FD and SD Data IC-text elements 
and from information stored by previous 
phases in the DICOT, PIOTBL, and FDTAB 
tables, phase 21: 

• Completes the dictionary entries. 

• Generates the reguired DTPs. 

• Generates input/output areas (buffers) . 

• Writes the Data A-text for the DTFs and 
buffers onto SYSOOa and PO-text for 
VCONs onto SYS002. 



DTF, and selects the proper DTF generator. 
Each DTF generator then determines the 
number of DTFs required, reserves space for 
additional file information in the Pre-DTF, 
fills in certain fields of the Pre-DTF, and 
develops the body of the DTF itself. 



CLAUSE COMPATIBILITY 



The compatibility testing performed by 
phase 21 is primarily a check to determine 
if the clauses specified are compatible 
with the file description. For example, an 
APPLY COPE INDEX is acceptable only for an 
ISAM file. 



COMMON PARAMETEPS 



Certain parameters are common to many or 
all types of DTFs and are determined before 
entry into the DTF generator. The 
remaining parameters are established by the 
particular DTF generator specified. Of the 
common parameters, the size and form of the 
records of a file are most important. 



COMPLETING DICTIONARY ENTRIES 



Record Size 



When phase 21 encounters an SD record, 
routine SORTPROC reserves space for a 
buffer according to the maximum record 
size, generates a BL to point to the sort 
area, and fills in the SD dictionary entry. 
When the phase encounters an FD record, 
routine SETDIC fills in all fields of the 
dictionary which can be picked up directly 
from that record. Routine ACCMODE 
determines the access method specified and 
enters it into the dictionary. 

Phase 21 builds the FD dictionary 
entries, the File Information Block (FIB) , 
and the IND2TBL table (indexed file only) 
for VSAM files. 



Routine RECCONT processes the RECORD 
CONTAINS clause. With only one exception 
the record size is the maximum size of any 
record described as a data record in the 
File Description. This value is determined 
in phase 22, and is passed to phase 21 in 
the FDTAB table. The one exception to 
using the maximum calculated size is the 
case where the clause RECORD CONTAINS N1 TO 
N2 CHARACTERS is specified, the value of N2 
is less than the maximum calculated size, 
and there is more than one OCCURS clause 
with the DEPENDING ON option in the record 
description. In this case, the value of N2 
is used as the maximum possible record 
size. 



GENERATING REQUIRED DTF'S 



Record Form 



To develop a DTF, phase 21 checks the FD 
for clause compatibility, collects the 
parameters common to more than one type of 



Prior to any attempt at determining the 
record form, the BLOCK CONTAINS clause is 
checked by routine BLKCTNS for basic 
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compatibility. If any errors are found, 
the clause is either dropped from further 
consideration or altered to an assumed 
acceptable format. 



Every supportable DTF used in Full 
American National Standard COBOL requires 
an entry for its RECFORM parameter. The 
allowable entries are selected from the six 
possible kinds shown in Figure 15. 





CLASS= 
■UR» 


CLASS= 


CLASS= 1 
■DA» 1 




Card 
and 
Printer 


Tape 
and 
Sequen- 
tial 
Disk 


1 1 

1 Indexed | 
Direct |Seguen-| 
Access! tial | 
Method) Method | 


1 FIX UNB 
1 


Yes 


Yes 


Yes 


1 Yes 1 
1 1 


1 FIX BLK 
1 


No 


Yes 


No 


I Yes 1 
1 1 


1 VAR UNB 
1 


1 Yes 


Yes 


No 


1 No 1 
1 1 


1 VAR BLK 

1 


No 


Yes 


No 


1 No 1 


1 

1 DNDEF 


1 Yes 


Yes 


Yes 


1 No 1 
1 1 


1 SPANNED 

1 


No 


Yes 


Yes 


1 No 1 
t, . J 



Figure 15. RECFORM Parameters Supported 

The four factors which influence the 
selection of the record form are: 



RECORDING MODE Clause, 
has five possibilities: 
V, D or S. 



This clause 
omitted, F, 



2. 



3. 



RECORD CONTAINS Clause. This clause 
has three possibilities: omitted, N1 
TO N2 CHARACTERS, or N2 CHARACTERS. 

BLOCK CONTAINS Clause. This clause 
has five possibilities: omitted, N1 
TO N2 RECORDS, N2 RECORDS, N2 
CHARACTERS, or Nl TO N2 CHARACTERS. 

Variability of the record descriptions 
found during phase 22 processing. 
This value is found in table FDTAB, 
referred to as VARIND and is either 
set or clear (FIXED or VARIABLE) . 



There are 150 possible combinations 
within these four factors. Most of the 
combinations are errors, but each is 
checked by routine CHKMODE, and a message 
is issued in E-text, if appropriate. 



These four factors are encoded into a 
single byte which is used as an index 
(displacement) into a 156-byte error table, 
MODTAB. The referenced byte in the MODTAB 
table contains, in coded form, the assumed 
record form, an indicator to show if an 
error has occurred , and four bits to 
indicate the clause or clauses which are to 
be ignored. 

After checking the table results, the 
recording mode can be determined, making 
assumptions where an error condition 
exists. If CHARACTERS or more than one 
record is specified in the BLOCK CONTAINS 
clause, the file is assumed to be blocked. 
If the block contains only one record, the 
file is assumed to be unblocked. 



SELECTING THE DTF GENERATOR 



After establishing the variables, phase 
21 determines which DTF generator to use: 
GENDTFCD, GENDTFPR , GENDTFMT, GENDTFSD, 
GENDTFDA, GENDTFI5, GENDTFDU . The 
generator checks the OPEN options specified 
for the file to determine what type of DTF 
to generate. The OPEN options 
corresponding to each type of DTF are shown 
in Figure 16. Descriptions of the DTFs may 
be found in IBM D0S/V5 Supervisor and I/O 
Macros, Order No. GC33-5373. 

Each DTF generator makes entries in two 
tables, the BLTABL and the BDFTAB. The 
BLTABL table contains an entry for each FD 
in the program. It is used later in the 
phase, when buffers are generated, to 
determine how to initialize the base 
locator (or locators) for the file. The 
EUFTA3 table contains an entry for each 
buffer area address constant which must be 
filled into a DTF. This table is also used 
when the buffers are generated. The 
formats of these tables are shown in 
"Section 5. Data Areas." 

Phase 20 assigns a DTF number for each 
file. Every file having more than one DTF 
has secondary DTF numbers assigned 
consecutively. Counters located in COMMON 
are incremented each time a new number is 
assigned. At execution time, pointers in 
the TGT and PGT indicate the particular DTF 
for the file being processed. If all 
necessary DTFs have been generated for a 
file, routine ENTDIC enters the attributes 
of the file in the dictionary area reserved 
by Phase 22. When the next FD record is 
encountered, variables are again 
determined. This process continues until 
all the input has been processed. ' 
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1 -T — r ■"'■■ ■■■■ ■"•■ ■ " ■ '1 

jDTF Type IFile | Options I 
1 IType 1 1 
III \ 


IDTFCD {Card 1 Input I 


jDTFCD ICard | Output 1 
III 1 


jDTFPR 1 Printer {Output I 
III 1 


jDTFMT {Tape {Output 1 


III 1 
IDTFMT {Tape 1 Input { 

! II 1 


ill 1 

jDTFMT {Tape {Inputs Reversed | 


IDTFSD {Mass jSequentialr Input | 
1 {Storage { I 
III 1 


III I 
{DTFSD {Mass 1 Sequential r Output { 
{ {Storage | 1 


{DTFSD {Mass {Sequential^ I-O | 
{ {Storage | { 
III 1 


III 1 

{DTFDA {Mass {Direct, Sequential | 

{ {Storage {Access/ Input { 
III 1 


1 ■'■ ■ ■■ ' ■ ■' 1" ' . ' 1 ' . 1 
{DTFDA {Mass {Direct, Random Access, | 
{ {Storage {Input I 
III 1 


III 1 
{DTFDA {Mass {Direct, Random Access,} 
1 {Storage {Output { 


III 1 

{DTFDA {Mass {Direct, Random Access,! 
{ {Storage {I-O { 
III r 


III 1 
{DTFIS {Mass {Indexed, Sequential { 
{Load {Storage {Access, Output { 
(Mode i 1 { 
1 1 1 1 


{DTFIS {Mass {Indexed, Sequential | 
{Retrieve {Storage {Access, Input, I-O { 
{Mode { ' { { 


III 1 
{DTFIS {Mass {Indexed, Random { 
{Retrieve {Storage {Access, Input { 
{Mode 1 1 { 
III 1 


1 ■■ 1 1 ... ... 1 

{DTFIS {Mass {Indexed, Random | 
1 Retrieve (Storage (Access, I-O^ { 
(Mode { { ( 


III 1 
(DTFIS (Mass (Indexed, Random { 
(Add/ (Storage (Access, I-O^ j 
(Retrieve | { ( 
(Mode ( ( ( 


(DTFDO (Diskette (Input Sequential, ( 
1 (Unit (Output Sequential { 
1 ■ ■ 1 


1 1 
(ilf there are no WRITE verbs for this { 
( file. ( 
(2if there are WRITE verbs for this file. ( 



Figure 16. OPEN Options and DTFs 



DETERMINING THE NUMBER OF DTF'S 



The number of DTFs is determined by the 
number and type of OPEN statements for each 
file. The DTF generator determines this 
from entries in the PIOTBL table. For a 
DTFCD or DTFPR file, only one DTF need be 
generated. For a DTFMT file, a maximum of 
three DTFs may be needed — one for each 
INPUT, INPUT REVERSED, and OUTPUT. DTFSD 
files may also require three DTF's, one 
each for INPUT, OUTPUT, and I-O. Only one 
DTF is needed for a DTFDA file. It may be 
used for INPUT, OUTPUT, and I-O. Only one 
DTP is needed for any ISAM file 
description. 



PRE-DTF AREA 



Before phase 21 develops the body of a 
given DTF, it reserves space immediately 
preceding the DTF in storage for PNs, 
pointers, and file description information. 
In some cases, phase 21 fills in certain 
fields of this space. The area is known as 
the Pre-DTF. 



DTFMT and DTFSD Pre-DTFs 



For magnetic tape and sequential disk 
files, a 2^-byte Pre-DTF is reserved in 
front of the DTF. The contents of this 
Pre-DTF are shown in Figure 17. 



DTFDA r Random Access > Pre-DTF 



For a file whose organization is direct 
and which will be accessed randomly, a 
variable-length Pre-DTF is reserved in 
front of the DTF. Figure 18 shows the 
contents of the Pre-DTF for a file with 
absolute addressing; Figure 19 shows the 
contents for a file with relative 
addressing. 



DTFDA > Secfuential Access, Pre-DTF 



For a file whose organization is direct 
and which will be accessed sequentially, a 
31-byte Pre-DTF is reserved in front of the 
DTF. Figure 20 shows the contents of the 
Pre-DTF for a file with absolute 
addressing; Figure 21 shows the contents 
for a file with relative addressing. 
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Location 


Length 
(Bytes) 

L 


r 

L 


contents 


DTF - 


T T 

26 1 2 j Lenath of nonstandard label if present. 
1 1 


DTF - 


24 


1 


Number of nonstandard-labeled reels if specified in the systeir-name. 


DTF - 


23 


1 


Counter used by the ILbDNSLO subroutine. It is initially set equal to 
byte DTF-24. Thereafter, it is decremented each time a 
nonstandard-labeled reel is processed, and so indicates the nun.ber yet 
to be processed. 


DTF - 


22 


2 


Maximum record length, if the file is variably blocked without an 
APPLY WRITE OMLY clause specified- 


DTF - 


20 


U 


Address of the PN 
USE statement has 
option. 


for a USE declarative to process BOV labels. The 
either the BEGINNING REEL or the BEGINNING UNIT 


DTF - 


16 


^ 


Address of the ?N 
USE statement has 


for a USE declarative to process EOV labels. The 
either the ENDING REEL or the ENDING UNIT option. 


DTF - 


12 


^ 


Address of the PN 
The USE statement 


for a USE declarative to process trailer labels, 
has the ENDING FILE option. 


DTF - 


8 


4 


Address of the PN 
USE statement has 


for a USE declarative to process header labels. The 
the BEGINNING FILE option. 


DTF - 


4 


1 


Pre-DTF Switch. For the format of this switch, refer to "Pre-DTF 
Switch" in this chapter. 


DTF - 


3 


3 


Address of the PN for a USE declarative to process standard errors - 
Format 2 of the USE declarative is used. 



1- -L — 



± 



^ 



I Notes : 

1. If any of the options concerned are not specified, the field contains Os. 
I 2. Pnase 21 fills in only the four bytes beginning at DTF - 24. 

L '. 



Figure 17. Pre-DTF for DTFWT and DTFSD 



1 

Location 

J 


r — 
Length 
(Bytes) 

L 


r 

Contents 


DTF - 


n 


n - 26 
(9-263 
bytes) 


ACTUAL KEY. This field is present only for COECL WRITE statements. 


DTF - 


26 




8 


SEEK address, in the form MEBCCHHR. 


DTF - 


18 




2 


Error bytes. This area is reserved for the DOS/VS Supervisor and 
assianed the name ERRBYTE. For a complete discussion, refer to IBM 
DOS/VS Supervisor and I/O Macros, Order No. GC3 3-5 373, 


DTF - 


16 




4 


Pointer to area where extent information is saved. 


DTF - 


12 




4 


Address of the PN for a USE declarative to process trailer labels. 
The USE statement has the ENDING FILE option- 


DTF - 


8 




4 


Address of the PN for a USE declarative to process header labels. The 
USE statement has the BEGINNING FILE option. 


DTF - 


4 




1 


Pre-DTF Switch. For the format of this switch, refer to "Pre-DTF 
Switch" in this chapter. 


DTF - 


3 




3 


Addrf^^ss ci the PN for a USE declarative to process standard errors. 
Format 2 of the USE declarative is used. 



I- "■ 

I Notes : 



^ 



1. If any of tne options concerned are not specified, the field contains Os. 
I 2. Phase 21 tills in only the four bytes beainninq at DTF - lb. 

L 

Figure 18- Pre-DTF for DTFDA, Random Access, Absolute Addressing 
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T T 

Length 
(Bytes) 



h 



Location 



Contents 



DTF 

DTF 
DTF 
DTF 
DTF 

DTF 
DTF 
DTF 

DTF - 8 

DTF - U 

DTF - 3 



n - 26 
(5-258 
bytes) 



26 
22 
19 
18 

16 
15 
12 



i-- 



ACTUAL KEY. This field is present only for COtOL WRITE stateirents. 
Standard C 



SEEK address, in the form TTTR, 

Last extent used, in the form TTT. 

Not used. 

Error bytes. This area is reserved for the DOS/VS Supervisor and 
assigned the name ERRBYTE. For a complete discussion refer to IBM 
D OS/VS Supervisor and I/O Macros , Order No. GC33-5373. 

Index to the last extent used in the disk extent table in the DTF- 

Pointer to the disk extent table in the DTF. 

Address of the PN for a USE declarative to process trailer labels. 
The USE statement has the ENDING FILE option, 

Address of the PN for a USE declarative to process header labels. The 
USE statement has the BEGINNING FILE option. 

Pre-DTF switch- For tne format of this switch, refer to "Pre-DTF 
Switch" in this chapter- 
Address of the PN for a USE declarative to process standard errors. 
Format 2 of the USE declarative is used. 



Notes: 



1- If any of the options concerned are not specified, the field contains Os. 
2. Phase 21 fills in only the four bytes beginning at DTF - 16. 

L , 

Figure 19. Pre-DTF for DTFDA, Random Access, Relative Addressing 



T T 

Length 
(Bytes) 



Location 
J. 

DTF - 31 
DTF - 23 

DTF - 18 



DTF 
DTF 

DTF - 

DTF - 

DTF - 



16 
12 



Contents 



SEEK address, in the form MBBCCHHR. 

Address of the next record to be read, in the form CCHHR. 
is named IDLOC. 



This area 



Error bytes. This area is reserved for the DOS/VS Supervisor an.i 
assigned the name ERRBYTE. For a complete discussion, refer to IBI^: 
n oS/VS Supervisor and I/O N^acros , Order No. GC33-5373. 

Pointer to area where extent information is saved- 

Address of the PN for a USE declarative to process trailer labels- 
The USE statement has the ENDING FILE option- 
Address of the PN for a USE declarative to process header labels- The 
USE statement has the BEGINNING FILE option. 

Pre-DTF Switch- For the format of this switch, refer to "Pre-DTF 
Switch" in this chapter. 

Address of the PN for a USE declarative to process standard errors. 
Format 2 of the USE declarative is used. 



^ 



Notes : 



1. If any of the options concerned are not specified, the field contains Os, 

2. Phase 21 fills in only the four bytes beginning at DTF - 16. 

L , 

Figure 20. Pre-DTF for DTFDA, Sequential Access, Absolute Addressing 
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1 

(Location 
1 


Length 
(Bytes) 


Contents | 


|DTF - 31 
1 


i\ 


SEEK address r in the form TTTR. | 


1 

|DTF - 27 


3 


Last extent used, in the form TTT. | 


|DTF - 2I\ 
1 


1 


Not used. 1 


1 

|DTF - 23 

1 
1 


4 


Address of the next record to be read/ in the form TTTR. This area | 
is named IDLOC. I 


I 

|DTF - 19 

1 


1 


Not used. 1 


I 

|DTF - 18 

1 

I 
1 


2 


Error bytes. This area is reserved for the DOS/VS Supervisor and | 
assigned the name ERRBYTE. For a complete discussion, refer to IBM | 
DOS/VS Supervisor and I/O Macros, Order No. GC33-5373. 1 


IDTF - 16 

1 
1 


1 


Index to the location in the disk extent table in the DTF where the | 
last extent is stored. 1 


1 

IDTF - 15 

1 


3 


Pointer to the disk extent table in the DTF. | 


IDTF - 12 

1 

1 


4 


Address of the PN for a USE declarative to process trailer labels. | 
The USE statement has the ENDING FILE option. | 


1 

IDTF - 8 

1 
1 


4 


Address of the PN for a USE declarative to process header labels. | 
The USE statement has the BEGINNING FILE option. | 


1 

IDTF - ^ 

1 

1 


1 


Pre-DTF Switch. For the format of this switch, refer to "Pre-DTF | 
Switch" in this chapter. I 


1 

IDTF - 3 

1 
1 


3 


Address of the PN for a USE declarative to process standard errors. | 
Format 2 of the USE declarative is used. j 


1 Notes: 


ly of th€ 
5 21 fil] 




|1. If ai 
|2. Phas€ 


i options concerned are not specified, the field contains Os. | 
Ls in only the four bytes beginning at DTF - 16. j 



Figure 21. Pre-DTF for DTFDA, Sequential Access Relative Addressing 



Location 



T r- 

Length j 
(Bytes) I 



DTF - 8 
DTP - 6 

DTF - 4 
DTF - 3 



Contents 



1 

2 {Unused. 

I 

2 {Displacement of record 
{key within record. 

{ 
1 {Pre-DTF Switch. For the 
{format of this switch, 
{refer to "Pre-DTF 
{Switch" in this chapter. 
{ 

3 { Address of the PN for a 
{USE declarative to 
{process standard errors. 
{Format 2 of the USE 
{declarative is used. 



Figure 22. Pre-DTF for DTFIS 



DTFIS Pre-DTF 



For a file whose organization is 
INDEXED, eight bytes will be reserved in 
front of the DTF. The contents of the 
Pre-DTF are shown in Figure 22. Only the 
displacement of the record key within the 
record is filled in by phase 21. 



DTFDU Pre-DTF 



For a file that is assigned to a 3540 
Diskette unit device, eight bytes will be 
reserved in front of the DTF. The contents 
of the pre-DTF are shown in Figure 22A. 
None of the bytes of the pre-DTF are filled 
in by phase 21. 
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, 1 p. 

I {Length | 
{Location I (Bytes) | 
■4- 



Contents 



h 



-+- 



|DTF - 8 I 

I i 

I DTP - 4 I 

I I 

|DTF - 3 I 



I 



I 



4 (Unused 

I 
1 |Pre-DTF switch. 

I 
3 {Address of ERROR 
{declarative PN. 



Figure 22 A. Pre-DTF for DTFDU 



Pre-DTF Switch 



This switch provides communication 
between the executing program and its 
input/output subroutines at execution time. 
The entire byte may be set to X»FF» to 
indicate that the file was closed with lock 
and cannot be reopened. Otherwise ^ the 
switch is used as follows: 

Bit Meaning > if ON 

DTFSD output file. The entire 
DTF was saved for subseguent 
OPEN OUTPUT statements. 

1 DTFDA or DTFSD, and OPEN I-O. 

2 This call is for POV, rather 
than BOF, processing. The bit 
is set OFF when a file is opened 
to indicate to the ILBDUSLO 
library subroutine that BOF 
labels are to be processed. 
That subroutine sets the bit ON 
after BOF processing to indicate 
that all subseguent calls will 
be for BOV label processing. 

3 A test must be made by the 
TLBDVBLO library subroutine to 
determine whether the present 
block is full. This bit is 
turned OFF when a file, is opened 
and ON for all WRITES af ter^ the 
first. 

4 DTFDA, spanned records. 
5-7 Not used. 



COBOL INDICATORS IN DTF'S 



REWIND and COBOLRWD 



Phase 21 sets the COBOLRWD indicator 
(bit 6 of byte 31 of the DTFMT DTF) to 1 to 
force a rewind and unload at automatic 
end-of -volume. A setting of indicates 
that LIOCS should check the REWIND 
indicator to find out what action is to be 
taken. 



Phase 21 sets the REWIND indicator (bits 
2 and 3 of byte 32 of the DTFMT DTF) to 00 
to indicate rewind, to 01 for no rewind, 
and to 10 for rewind and unload. After the 
OPEN is executed, REWIND is set to 01 to 
ensure that the last reel is not rewound 
when the end^of-file condition is detected. 



Before a CLOSE REEL (FEOV) is executed, 
REWIND is set to the specified option and 
COBOLRWD to 00. After an FEOY, REWIND is 
set to 1 and COBOLRWD to 01. Before a 
CLOSE for the file, REWIND is set to the 
specified option. 



A summary of the REWIND and COBOLRWD 
settings and their meanings is shown in 
Figure 23. 





SETTING 


1 1 


{COBOLRWD 
1 


REWIND { MEANING { 
1 1 


{ 1 




00 


1 1 

{Setting at compile time { 


{ 1 




01 


{OPEN NO REWIND { 


1 1 




01 


{Setting after any OPEN { 
{ until next verb { 


1 




00 


{CLOSE REEL { 


{ 




01 


{CLOSE REEL NO REWIND { 


1 1 




01 


{Setting after any CLOSE { 
{ REEL { 


{ 1 




00 


{CLOSE { 


{ 1 




01 


{CLOSE NO REWIND { 


{ 1 




1 10 


{CLOSE LOCK { 


{ 1 




1 00 


{Setting after CLOSE or { 
{ CLOSE NO REWIND { 



Figure 23. COBOLRWD and RFWIND bits 



Certain bits within the DTFs are used as 
indicators at execution time. These 
indicator bits are the REWIND and the 
COBOLRWD bits in the DTFMT, which are set 
by phase 21, and the COBOL bits in the 
DTFMT and DTFSD, which are set as described 
in this chapter under "COBOL Bits." 



COBOL Bits 



There are six COBOL bits in DTFs. Their 
locations and meanings are shown in Figure 
24 and the notes following it. 
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I- 1 -1 

1 DTF IBYTEI 
1 1 , 


BIT 


. _ . .-., ^ 

MEANING, IF ON 


1 

NOTEI 


IDTFMTf 
1 1 
1 1 


16 


2 


File is assigned IGN 
on the ASSIGN 
control card 


1 1 


IDTFMTI 
1 1 


16 


3 


Read EOF labels at 
CLOSE time 


2 1 


[DTFMTI 
1 1 


36 


1 


Do not write a user 
label 


3 1 


IDTFSDI 
1 1 


16 


2 


File is assigned IGN 
on the ASSGN 


1 1 1 


1 1 






control card 




IDTFSDI 
1 1 


16 


5 


Read trailer labels 
at CLOSE time 


1 2 1 


IDTFSDI 
1 1 


16 


1 7 


[COBOL End-of-Extent 
option 


4 1 



Figure 24 • COBOL bit settings 



WRITING DATA A-TEXT AND PI-TEXT 

Phase 21 produces buffers, FIBs, and 
DTFs as a series of Data A-text elements 
(see "Section 5. Data Areas" for the 
format) . Each element created is one of 
the following: 

• DTF address element 

• Secondary DTF address element 

• Constant definition element 

• Block address element 

• FIB address element 

• BL reference element 

• BLL reference element 



Notes; 



The bit was set to 1 by the DOS system 
OPEN transient routine if the file was 
assigned IGN. In that case, a branch 
is taken to the AT END address instead 
of executing a READ. This test is 
generated by phase 51 before all READ 
statements. 



For each DTF, the DTF generator creates 
an address element consisting of the 
location from field LOCCTR in COMMON and 
the DTF number. For each additional DTF 
for the same file, a secondary DTF address 
element, consisting of the location from 
field LOCCTR in COMMON and the secondary 
DTF number, is issued. 



2. COBOL always requires that user EOF 
labels be read at CLOSE time. Since 
the DOS system LIOCS routine normally 
reads these labels at EOF time, phase 
21 sets this bit to 1 to indicate that 
the COBOL procedure must be followed 
if the file is labeled. 



3. COBOL requires that user labels be 
written selectively (header labels, 
but no trailer labels, for example) . 
Since the DOS/VS system LIOCS routine 
normally writes at least one user 
label when user labels are specified, 
this bit is used to indicate that the 
COBOL procedure is to be followed. 
The bit is set to 1 by the COBOL 
library subroutine, ILBDUSLO, if there 
is no user label to be written . 



Constant definition elements record the 
values of constants to be filled into 
fields of the DTF. 



As phase 21 creates buffers (see "Buffer 
Generation") , a block address element is 
also created for each FD. The element 
contains the location of the first byte of 
data information in the buffer and the size 
of the data element in words. 

Phase 21 creates an FIB address element 
for each FD entry that describes a VSAM 
file. 



In addition to the Data A-text elements, 
phase 21 writes a virtual definition 
element of POrtext on SYS002 for each VCON 
needed. Phase 51 later writes it on SYS003 
as Optimization A-text input for phase 00. 



Phase 51 generates code to set this 
bit to 1 for all output files. When 
it is so set, the DOS system LIOCS 
routine transfers control to the 
end-of-extent address (INVALID KEY 
address) in the DTF when there are no 
more available extents. 



DTFs For Associated Files 



When a 5425, 3525 or 2560 unit record 
device with optional read and print 
features has been specified as an 
associated file, phase 21 generates a 
unique DTF for each function to be 
processed by the device. Routine GENDTFCD 
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and GENDTPPR read the Data IC-text elements 
created by phase 10 for each associated 
file and build the ASCTAB table. After all 
of Data IC-text has been read, routine 
GENASC uses the table to generate the Data 
A-text elements used to create the DTF's. 
Figure 25 shows the way in which these DTFs 
are chained together. 



Figure 25. 



I I 1 

» >| READ DTF h 



I I 1 

i >| PUNCH DTP h 



I I 1 

I >| PRINT DTF h 



DTF Chaining for an Associated 
File with Three Functions 



File Information Block (FIB) 



BUFGEN selects a buffer to be generated 
from the BUFTAB table established by the 
DTF generators. This routine allocates a 
buffer area according to the maximum size 
given in the table. (The size of each 
buffer includes any control fields reguired 
for a particular access method , for 
example, COUNT and KEY fields for direct 
access.) BUFGEN then determines the 
beginning of the buffer area so the data 
portion of each record is aligned on a 
double word boundary. After the buffer 
space has been allocated, the addresses of 
the TOAREAs are filled into the DTF, and 
buffer area addresses are issued as Data 
A-text block address elements. 



Entries in the BUFTAB table indicate 
which files are associated by SAME AREA or 
SAME RECORD AREA clauses. For SAME RECORD 
AREA, lOAREAs are assigned in the above 
manner, and an additional work area is also 
assigned. The size of this work area is 
the size of the largest record area plus 
the size of the largest pre-record area of 
any of the files specified in one SAME 
RECORD AREA clause. The SRA generator 
routine builds the SRATBL, SRAM AX, and 
SDSRATBL tables to calculate the length and 
location of the SAME RECORD AREA work area 
in the object module. All files with a 
SAME AREA clause will share the same buffer 
area. 



Phase 21 creates the File Information 
Block (FIB) for VSAM files. The FIB work 
area is generated by means of the GENFIB 
macro. The AMTXT routine fills in fields 
of the FIB, and the BEGIN routine writes 
the FIB as Data A-text. 



Using the BLTABL table formed by the DTF 
generators, routine PUTBL determines how to 
initialize the.>base locator or locators for 
the file. 



BUFFER GENERATION 



Buffer areas are determined after all 
the text processing is completed. Routine 



Processing continues in this manner 
until the BUFTAB table is exhausted. After 
all input/output areas are generated, the 
tables are released, and control passes to 
phase 00. 
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PHASE 25 



Phase 25 is loaded only if the SYMDMP 
option has been specified on the CEL card. 

The major functions of phase 25 are: 

• Building the OBODOTAB table and writing 
it on the debug file (SYS005) if the 
program contains any OCCURS .. .DEPENDING 
ON clauses 

• Building the DATATAB table and writing 
it on the debug file (SYS005) . 

The operations of phase 25 are described 
in Diagram 3. 



PHASE 25 PROCESSING FOR THE DEBUG FILE 



To build the OBODOTAB and DATATAB 
tables, phase 25 uses the following tables 
passed from phase 22: 

• The DICOT table which contains 
information about the COBOL dictionary 

• The QITBL table which contains a COBOL 
dictionary pointer for every object of 
an OCCURS. . .DEPENDING ON clause 



The OBODOTAB and DATATAB tables list the 
characteristics of data items in the Data 
Division. (See "Section 5. Data Areas" 
for the format of the OBODOTAB and DATATAB 
tables.) 

Entries for either the OBODOTAB or 
DATATAB table are built in a work area 
(WRKAREA) in phase 25. Each entry in the 
OBODOTAB and DATATAB tables is moved 
directly into the debug file buffer as soon 
as it is completed. OBODOTAB table entries 
are entered in the debug file on fullword 
boundaries. DATATAB table entries are not 
aligned. 

Certain of the DATATAB entries contain 
pointers to OBODOTAB entries. Each DATATAB 
entry for the subject of an 
OCCURS. . .DEPENDING ON CLAUSE contains a 
pointer to the OBODOTAB entry for its 
corresponding object. The pointer consists 
of the relative block number within the 
OBODOTAB table and the displacement into 
the block (in fullwords) . Each DATATAB 
entry for a data-name subordinate to the 
subject of an OCCURS .. .DEPENDING ON clause 
also contains a pointer to the OBODOTAB 
entry for the object of that 
OCCURS.. .DEPENDING ON clause. 



• The QRTN table which contains a COBOL 
dictionary pointer for every subject of 
an OCCURS. . .DEPENDING ON clause 

• The RENAMTB table which associates 
renamed data-names with their renamers 

• The OCCTBL table which contains 
information about each subject of an 
OCCURS clause 

• The MASTODO table which identifies all 
data-names which do not contain an 
OCCURS... DEPENDING ON clause 
themselves, but one of whose 
subordinate items at the next level 
does 

• The VARLTBL table which contains an 
entry for each variable-length item. 

There is a DATATAB table entry for each 
data item in the Data Division. There is 
also a DATATAB table entry for some of the 
compiler-generated names associated with 
the Report Writer feature. There is an 
OBODOTAB table entry for each unique object 
of an OCCURS... DEPENDING ON clause. 



Building the OBODOTAB Table 



The OBODOTAB table lists the 
characteristics of each unique object of an 
OCCURS.. .DEPENDING ON clause. For details 
on how the OBODOTAB table is built, see 
Diagram 4. 



Building the DATATAB Table 



The BEGPASS routine controls building of 
the DATATAB table entries, using the 
SYMDICT DSECT. It performs the following 
functions: 

• Calls LOCNXT to read dictionary 
entries. 

• Calls GETDEF to get generated card 
number for data-name from DEF-text. 
RENAMES items are ignored. 

• Calls BLDRD to process RD level 
entries. 
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Calls SETNAM to build fixed portion of 
entry. SETNAM calls PROCESLD to build 
variable portion of entry for LD under 
FD, SD, Working-Storage, Linkage 
Section. 



Branches to TESTSDBS to determine 
subscripted items. TESTSUBS uses the 
OCCTBL table for subscripting 
information, and calls ENTRDATA as 
above. 



• Calls PEOCRENM to process RENAMES items 
for data-name. PROCRENM calls ENTRDATA 
to move completed entry in output 

buffer. 



ENTRDATA routine calls WRITES to write 
buffer on SYS005 at end of buffer. PEASEND 
routine releases tables and repositions 
SYS004 when the dictionary processing is 
complete. 



70 Section 2. Method of Operation 



Licensed Material - Property of IBM 



PHASE 30 



By the time Phase 30 (ILACBL30) is 
loaded into storage , almost all information 
on source program-names in the PO-text has 
been concentrated in the attributes of the 
dictionary entries. Supplementary 
information is stored in the OVAR^ QFILE, 
INDKEY, and VALTRU tables. Phase 30 can 
now replace each name with its attributes, 
as well as add information to verb strings 
such as SEARCH and OPEN. 



Phase 30 also performs any other 
processing that requires the dictionary. 
In this manner, storage space for the 
dictionary and for dictionary ACCESS 
routines is freed for later phases. 



There are four main categories of phase 
30 processing, all dependent upon the 
dictionary: 



• Building a Data Division glossary of 
all source program data-names. 

• Replacing source program-names with 
their attributes. 



PHASE 30 METHOD OF OPERATIONS 



Diagram 5 shows the overall flow of 
phase 30 operations. Phase 30 input 
consists of PO-text and E-text on SYS002, 
the dictionary, and the QFILE, QVAR , 
INDKEY, and VALTPU tables in storage. Its 
output consists of Pl-text and E-text on 
SYS003, DEF-text on SYSOO^, and the 
glossary on SYSLST (or SYS006 for LVL 
option) . 



After the PHINIT routine receives 
control from phase 00 and performs 
initialization for the phase, operations 
occur in two stages: glossary building 
under the control of the GLOSRY routine and 
translation of PO-text into Pi-text under 
the control of the PHCTRL routine. During 
translation, special processing is 
performed on READ verb strings; OPEN verb 
strings; ADD, SUBTRACT, and MOVE verb 
strings with the CORRESPONDING option; 
SEARCH verb strings; source program-names 
and special registers; and syntax errors. 



• Performing special processing on 
procedure names in segmented programs, 
READ and SEARCH verb strings, and verb 
strings with CORRESPONDING options. 

• Performing any syntax analysis that 
requires the dictionary. 

Code in the phase 30 load module is 
organized as follows: 

• EQUATE statements for COMMON, 
registers, ACCESS routines, TAMER 
routines, and miscellaneous values. 

• Phase initialization headed by the 
PHINIT routine and including the 
dictionary ACCESS routines. 

• Phase control for the translation stage 
(PHCTRL routine) . 

• Main processing routines, including 
utility routines for acquisition and 
movement of data. 



GLOSSARY BUILDING 



The PHINIT routine determines from the 
SYM bit of the PHZSWl switch in COMMON 
whether a glossary has been requested. If 
it has not, the PHINIT routine branches to 
the TSTWRO routine. For each file 
definition entry in the dictionary in which 
the WRITE-ONLY switch is on, the TSTWRO 
routine sets the major code to 7 in all the 
data-name entries associated with the file. 
When all the WRITE-ONLY files have been 
processed, the TSTWRO routine branches to 
the GIORET routine, which initializes the 
translation stage of processing, reads in 
the first block of PO-text, and branches to 
the PHCTRL routine. 



• Glossary-building routines, headed by 
the GLOSRY routine and including 
utility routines for placing elements 
in a print buffer. 

• Constants. 



If a glossary has been requested, the 
PHINIT routine branches to the GLOSRY 
routine, which prints out the glossary on 
SYSLST (SYS006 for LVL option) and 
simultaneously takes the same course of 
action as the TSTWRO routine. 
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The GLOSRY routine scans the dictionary 
with the use of the DICND1 field in COMMON 
(pointing to the last Procedure Division 
entry placed by phase 11) and the DICND2 
field (pointing to the last Data Division 
entry placed by phase 22) . As each 
data-name is encountered in the dictionary, 
it is placed in location PRUNE along with 
pertinent information from its attributes. 
Phase 00 is then called to print the 
contents of PRUNE . When necessary, the 
GLOSRY routine converts numbers in the 
attributes from one mode to another. 



If the element is a file-name in an OPEN 
verb string, the GENOP routine adds 
information for label and error processing 
to the strina. 

If the element is a VSAM file-name, the 
FILENM routine initializes the KEY CLAUSE 
work area. This information is used by the 
PHCTRL routine to determine that the file 
specified in the KEY clause is a VSAM file 
and by the DATANM routine to determine that 
the data-name specified in the KEY clause 
was specified as a RECORD KEY data-name. 



TRANSLATION FROM PO-TEXT TO Pl-TEXT: 
PHCTRL ROUTINE 



Before the GLORET routine branches to 
the PHCTRL routine for the translation 
stage of phase 30 operations, it stores the 
address of the first PO-text element in 
location PNTIN. The GETNXT routine moves 
the identification code of the element (the 
first half word) into location GOTTEN. The 
PHCTRL routine then tests GOTTEN to 
determine the processing that should be 
performed. 

If the element is a READ or RETURN verb, 
the PHCTRL routine calls the READFN routine 
to insert the appropriate record-name after 
the file-name. 

If the elelnent is a MERGE or SORT verb, 
the PHCTRL routine calls the SMERGE routine 
to process these verbs. 

If the element is an ADD, SUBTRACT, or 
MOVE verb followed by an element for 
CORRESPONDING, the PHCTRL routine copies 
out the entire statement as Pi -text, using 
the SEARCH routine to determine the 
unigueness of the operands . It then 
branches to the CORRTN routine to break 
down the statement into simple statements, 
each using one of the matching pairs of 
elementary items • 

If the element is a source program name, 
the PHCTRL routine calls the SEARCH routine 
to determine whether it is unique and then 
calls the GENOP routine to replace the name 
with its dictionary attributes and write it 
out as P1-text. If the name is a special 
register, however, the SEARCH routine 
generates the appropriate Pi-text element. 

If the PHCTRL routine encounters a 
SEARCH verb, it calls the STSRCH routine. 
If the element is a source card number, the 
PHCTRL routine places the number in CURCRD 
and then writes the element unchanged on 
SYS003. All remaining elements are also 
written on SYSOOB unchanged. 



The READFN, CORRTN, and STSRCH routines 
each process the entire string associated 
with its special condition. They use the 
SEARCH routine to determine whether the 
names in their verb strings are unique. 

All these routines use the GENOP routine 
to replace the names with their dictionary 
attributes and write them as Pi -text 
elements. The GENOP routine also generates 
DEF-text for procedure-names. 

The processing routines perform any 
diagnostic analysis that requires the 
dictionary. When a routine detects an 
error that requires action parameters which 
only a subsequent phase can determine, it 
substitutes an error symbol for the element 
in error. 

When it detects an error condition for 
which it can provide an entire message, it 
calls the ERROR routine with appropriate 
error parameters before returning to the 
PHCTRL routine. 

When the PHCTRL routine detects an 
end-of-file condition, it branches to the 
EOF routine, which releases tables and 
returns to phase 00. 



READ Verb Strings; READFN Routine 



The READFN routine checks the next 
PO-text element in the input buffer after a 
READ or RETURN verb to see if it is a 
file-name. If not, the READFN routine 
writes the verb element unchanged on SYSOOB 
and returns to the PHCTRL routine. Phase 
^0 can detect the error without the 
dictionary • 

If a file-name does follow the READ verb 
element, the next dictionary entry after 
the file-name entry is checked to see if it 
is a record name. If it is, the GENOP 
routine is used to build a P1-text 
data-name reference element for the record 
and write it out after the file-name. In 
the case of multiple records, the 
attributes of the longest record in the 



72 Section 2. Method of Operation 



Licensed Material - Property of IBM 



file are used. An error symbol is 
substituted for the record name attributes 
if the dictionary entry following the 
file-name is not a record name. 



MERGE/SOET Verb Strings; SMERGE Routine 



literal} , the CORBTN routine substitutes 
an error symbol for the operand in 
Pl-text, calls the ERROR routine to put 
out error text^ and reads in the next 
PO-text element. When phase 40 finds 
this error, the error symbol tells it 
that phase 30 has already produced an 
error messaae . 



The SMERGE routine enters file-names 
specified in the USING clause into the 
USNGTBL table. At the end of USING clause 
processing, the routine produces OPEN INPUT 
strings for each file-name. In the case of 
file-names being repeated, the SMERGE 
routine produces an error message. 



Statements with CORRESPONDING Options; 
CORRTN Routine 



If operand-1 is not a group item, error 
text is generated, an error symbol is 
substituted for the operand, and the 
next PO-text element is read. Phase 40 
does not find this error. 



If operand-1 is valid and operand-2 is 
neither an EBCDIC name nor a data 
operand, an error symbol is substituted 
for operand'-2 and a Pl-text string is 
produced as follows; 



The CORRTN routine checks to determine 
whether the operands in the source 
statement are valid. It then matches the 
subordinate, lower-level data-names defined 
within the source statement hierarchies, 
and writes a Pi-text statement for each 
matching pair. This, in effect, breaks 
down the CORRESPONDING option source 
statements into a series of similar 
statements, all of which together 
explicitly represent the operations implied 
by the source statement. 

Two sample CORRESPONDING PO-text 
statements are given in Figures 26 and 27 
along with the resulting Pi-text. The step 
numbers given on the left in these figures 
refer to the procedure sequence discussed 
below; 



verb, attributes, preposition, 
error symbol 



The word CORRESPONDING is written after 
the string, and then the next PO-text 
element is read. The string tells phase 
40 that no matching pairs were put out 
because of an invalid operand-2. 



If operand-1 is valid and operand-2 is 
not a group item, then error text, a 
Pl-text string containing an error 
symbol, and the word CORRESPONDING are 
all written out, and the next PO-text 
element is read in. 



Step 1 ; If the source statement is a MOVE, 
the PHCTRL routine writes out only the 
first object hierarchy operand as Pl-text. 
If there are others, the CORRTN routine 
processes them separately after the 
subject-object pairs. The source 
statements are put out so that phase 40 can 
perform a syntax check on them. 

Step 2 ; Operand-1 and operand-2 are 
checked to make sure that they are both 
group items and valid data-names. Various 
procedures are followed, depending on what 
the checks reveal; 

If operand-1 is not an EBCDIC name or 
data operand, no more processing is done 
on the statement, and the next PO-text 
element is read in. Phase 40 finds this 
type of error. 

If operand-1 is not an EBCDIC name but 
is a data operand (for example, a 



Step 3 ; Assuming that both operands are 
valid, the subject (operand-1) hierarchy in 
the dictionary is scanned for corresponding 
items at the same relative level in the 
object (operand-2) hierarchy. 



Since the source statement operands have 
already been checked by the dictionary 
handling routines, the CORRTN routine knows 
which operand has the highest level 
dictionary pointer. Before initiating the 
object hierarchy search, it makes sure that 
the subject hierarchy pointer is at a lower 
level than that of the object hierarchy. 
If this is not the case, the operand-2 
group becomes the subject hierarchy. This 
is done to optimize the scan, since the 
dictionary handling routines look for the 
latest entry first using the HASH table 
(see the "Appendix A. Table and Dictionary 
Handling" 
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I PO-text ; ADD COERESPONDTNG R TO K 



I 



t P1"text : 

I Step 1: ADD CORRESPONDING R TO K 

I 

I Step 5: ADD R TO K 

I 

[Step 5: ADD Rl TO K1 

I 

IStep 5: ADD R2 TO K2 

I 

{Step 5: 

I 

IStep 5: 

I 

IStep 5: 

I 

IStep 5: 

I 

IStep 6: 



ADD Rn TO Kn 
CORRESPONDING 



Figure 26. P1-text Resulting from an ADD 
CORRESPONDING Option 



If a group item in the subject hierarchy 
does not have a matching name at the same 
level in the object hierarchy, the rest of 
the items in the group are skipped. This 
is done because there is no possibility of 
finding a match for any of the items in the 
group. 



Step 4 ; The subordinate items in the 
hierarchies are checked for conformity to 
the source language regulations. (For 
example y does the item contain a REDEFINES 
clause or an OCCURS clause with a DEPENDING 
ON option? If it does, ignore the item.) 
No error symbols or messages are generated 
if a match is found for any of the subject 
hierarchy items. If no match is found, a 
Pi -text string (verb, error symbol, 
preposition, error symbol) is written to 
tell phase 40 that there were no matching 
items. 

Step 5 ; When a correspondence is found, 
assuming both items are valid, P1-text 
statements similar to the source statement 
are generated. 

Step 6 ; If there are no more corresponding 
items, a P1-text element for CORRESPONDING 
is written, and the next PO-text element is 
gotten. The word CORRESPONDING tells phase 
40 that the previous element was the last 
of a complete CORRESPONDING statement. 

Step 7 ; If the source verb is MOVE and the 
next PO-text element is another operand, 
the procedure is started over again . For 
Step 1, SAME is used for operand-1, the 
current PO-text element is used for 
operand-2, and CORRESPONDING is omitted. 



I PO-text ; 

I 

I 

f Pl-text ; 

{Step 1; 

{Step 5; 

I 

{Step 5; 

I 

I Step 5; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 6; 

I 

ISteps 7&1: 

I 
I 
IStep 2; 

I 
I 

IStep 6; 

I 

IStep 7; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 5; 

I 

IStep 6; 



MOVE CORRESPONDING A (1) TO 
B, undefined (x) , D. 



MOVE CORRESPONDING A (1) TO B 
MOVE A (1)+ TO B+ 

MOVE A (1) ( TO BC 



MOVE A (1)0 TO BO 

CORRESPONDING 

MOVE SAME TO error 
symbol (x) 

MOVE error symbol TO 
error symbol 

CORRESPONDING 

MOVE SAME TO D 

MOVE A (1)+ TO D+ 

MOVE A (1) < TO DC 



MOVE A (1) TO DO 
CORRESPONDING 



I 

I Note; The term "undefined** means the 
I operand is not an EBCDIC name or data 
I element; the term "error symbol" is a 
{code signaling an error. 
I 

Figure 27. Pi-text Resultina from a MOVE 
CORRESPONDING Option 



SEARCH Verb Strings; STSRCH Routine 



For each table to be searched, there is 
an entry in the INDKEY table containing 
literals expressing such information as the 
length of the table, as well as pointers to 
attributes in the dictionary for all the 
data items associated with the table. The 
STSRCH routine adds some of these literals 
and attributes to the SEARCH verb string. 

The STSRCH routine first writes the verb 
element on SYS003 and then examines the 
element that follows. This element should 
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be the EBCDIC name for the table that is to 
be searched. If it is not, the STSRCH 
routine abandons processing the text as a 
SEARCH string and returns to the PHCTRL 
routine to process it in the normal manner. 
No error text is put out, since phase 40 
detects the error later on. 



If the element is an EBCDIC name, the 
STSRCH routine uses the SEARCH routine to 
determine that the name is unique. During 
its processing, the SEARCH routine places 
the pointer to the dictionary entry for the 
name in location ID1PTR. The STSRCH 
routine uses this pointer as an argument to 
find an entry in the INDKEY table that 
contains the same pointer. This entry in 
turn contains pointers to entries in the 
dictionary for all the index-names, keys, 
and OCCURS... DEPENDING ON objects 
associated with this SEARCH verb string. 
Figure 28 shows the Pi-text output for a 
verb string of format 1 of the SEARCH 
statement with the VARYING option. Figure 
29 shows the output for a verb string of 
format 2 of the SEARCH statement. 



Note that, although in the source 
program the SEARCH statement may continue 
beyond the AT END through a number of 
conditional and imperative statements, the 
STSRCF routine stops processing before the 
AT END and re4uirns control to the PHCTRL 
routine to handle tlve rest of the 
statement. 



Determining the Uniqueness of a Name; 
SEARCH Routine 



The SEARCH routine moves the source 
program-name it is to analyze from the 
input buffer to the location WKAREA. It 
determines if the name is unique. If it 
is, the SEARCH routine returns to the 
PHCTRL routine to replace the name with its 
dictionary attributes and put the result 
out as Pi-text. 



Special Registers ; If the name is not in 
the dictionary, the SEARCH routine looks 
for it in the SPCREG area, which contains 
the names of the special registers. 
Associated with each name is a pointer to 
dummy attributes in the REGATT area. The 
SEARCH routine replaces the special 
register name with its dummy attributes and 
calls the GENDAT routine to have them 
written as Pi-text. 

Qualified Name s; In PO-text, a name and 
its qualifiers are in reverse order of 
their appearance in the source program. 
When the SEARCH routine finds that a name 
is a gualifying name, it calls the QUALIF 
routine. The QUALIF routine searches the 
dictionary for each name in the string of 
qualifying and qualified names. If the 
qualified name is truly unique, it is 
returned through the SEARCH routine to the 
PHCTRL routine. Its qualifiers are 
discarded. 



Phase 11 Output Phase 30 Output Meanintr of Element 

I 1 1 Verb, SEAltQH format -1 



|44|5E| 
» » » 



I44|5EI 
I I I 



I 1 1 I 1 1 Data-name, identifier-^1 

123|EBCDIC Name I 1 30 | Attributes | (table to be searched) 



I 1 1 

I 5a I 88 I 



Data-name, object of 



I 30 1 Attributes I OCCURS. . .DEPENDING ON 



OR 



Represents maximum 



I 1 1 

1 32 1 Literal | number of occurrences 



|5a|88| 
t » « 



VARYING 



Processing by Phase 30 
Copied out unchanged 



Name replaced by its dic- 
tionary attributes 



Attributes taken from dic- 
tionary, usi^iig pointer in 
INDKEY table entry that 
contains pointer to 
identifier-1 dictiona>ry 
entry 

Literal taken from INDKEY 
table entry that contains 
pointer to identifier^l 
dictionary entry 

Copied out unchanged 



Figure 28. Pi-Text for SEARCH Format-1 (Part 1 of 2) 
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Phase 11 Output Phase 30 Output Meaning of Element 



I 23 I EBCDIC Name I | 36 attributes | 
i ■ I I I I I 



OR 



I 1 1 

I 23 I EBCDIC Name I 



I 1 1 

I 36 I Attributes I 
t I I 



|54|88| 



I 1 » 

I 36 I Attributes I 
I I I 



Data-name for 
index-name-1 that 
belongs to table 



Data-name for 
index-name-1 that does 
not belong to table , 
if specified 

Data-name for 
index-name-1 that 
belongs to table 



VARYING 



Data-name for 
index-name-1 that does 
not belong to table, 
if specified 



OR 



t 1 1 

1 23 1 EBCDIC Namel 
1 1 1 




Data-name for 
identifier-2 not 
belonging to table, if 
specified 

Data-name for 
index-name-1 that 
belongs to table 

VARYING 






1 361 Attributes! 
1 1 1 








|54|88| 






Data-name for 
identifier-2 not 
belonging to table 
if specified 

AT 




1301 Attributes! 
• 1 » 






|54|70| 


1541701 






END 


|54|A1| 
t 1 I 


I541A1! 
1 1 1 



Processing by Phase 30 

Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry for 
identif ier-1 



Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry for 
identifier-1 

Added for phase 4 con- 
venience 



Name replaced by attributes 
found in dictionary 



Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry for 
identifier-1 

Added for phase 40 
convenience 



Name replaced by attributes 
found in dictionary 



Copied out unchanged by 

PHCTRL 

Copied out unchanged by 
PHCTRL 



Figure 28. Pi -Text for SEARCH Pormat-1 (Part 2 of 2) 
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Phase 11 Output Phase 30 Output Meanincr of Element 
I 1 1 I 1 1 Verb, SEARCK format-2 



|44|5F| 



|44|5F| 
I I I 



I 23 I EBCDIC Name I | 30 | Attributes 
I I I I I 



I 1 1 

I 54 I 70 I 



I 1 1 

I54|A1| 
I I I 



IBB I Literal 



1 30 I Attributes 



Data-name r 
identifier- 1 (table 
to be searched) 

Literal representing 
number of keys 



Attributes of first 
key 



I 1 1 

I 30 I Attributes I 



Attributes of last 
kfey 



First index-name 



I 36 I Attributes! attached to table 



I 1 1 Data-name, object of 

I 30 I Attributes I OCCURS .. .DEPENDING ON 



OR 



Literal representing 



I 1 1 

I 32 I Attributes! maximum number of 
• « » occurrences 



I 1 1 

! 54 1 70! 
I I I 



|54|A1! 
» « ■ 



AT 



END 



Processing by Phase 30 
Copied out unchanged 



Name replaced by its dic- 
tionary attributes 



Literal taken from INDKEY 
entry that contains pointer 
to identifier-1 dictionary 
entry 

Name replaced with dic- 
tionary attributes pointed 
to in entry containing 
pointer to identifier~1 
dictionary entry 



Name replaced with 
dictionary attributes 
pointed to in entry 
containing pointer to 
identifier-1 dictionary 
attribute 

Name replaced with dic- 
tionary attributes pointed 
to in entry containing 
pointer to identifier-1 
dictionary attribute 

Attributes taken from 
dictionary using pointer in 
INDKEY table entry that 
contains pointer to 
identifier-1 dictionary 
entry 



Literal taken from INDKEY 
table entry that contains 
pointer to identifier-1 
dictionary entry. 
Copied out unchanged by 
PHCTRL 



Copied out unchanged by 
PHCTRL 



Figure 29. P1-Text for SEARCH Format-2 
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Replacing Names with Dictionary Attributes; 
6EN0P Routine 



The PHCTRL routine calls the GENOP 
routine to replace a name with its 
dictionary attributes and then write the 
result in Pi-text format through the GENDAT 
routine. 

Except for condition-names and special 
registers r the pointer to the dictionary 
entry itself is appended to these 
attributes. Although the dictionary does 
not exist after phase 30 operations^ Phases 
50 and 51 use the pointer as an argument in 
syntax analysis, and phase 60 uses it as an 
identification code. 

The GENOP routine determines from the 
attributes what kind of Pi -text elements 
should be generated. Special processing 
for particular types of names is described 
below. 

Data-names ; Data-name reference elements 
are generated for data-names. If the 
Q-routine bit in the attributes is on, the 
OVAR table pointer is used to find the GN 
number to be added to the attributes. In 
the case of an elementary item, the GN 
number in the entry pointed to is used. In 
the case of a group item, the GN number in 
the entry for the next subordinate item is 
used. 

File-^names ; File-name reference items are 
generated for file-names. If the Q-routine 
bit in the attributes is on, the QFILE 
table is searched, using the pointer in the 
attributes for a GN number to be added to 
the attributes. 

If the verb is an OPEN verb, the GENOP 
routine looks for the GN numbers following 
the file-name element for label and error 
processing. These numbers are inserted 
between the attributes and the dictionary 
pointer in the resulting Pi-text element 
for the file-name. 

If the file is a VSAM file, a VSAM 
file-name reference element is generated. 

Procedures-names ; When the name is a 
procedure-name definition in a segmented 
program , the GENOP routine inserts a 



segmentation control break after the 
generated PI -text element each time it 
encounters a section-name with a different 
priority . 



When the name is a procedure name 
reference, the GENOP routine searches the 
dictionary for the section in which the 
name is defined. It then adds the priority 
number of the section to the attributes of 
the procedure^name reference. 



Condition-names ; When the GENOP routine 
encounters a condition-name, it creates a 
Pi-text string that associates the 
elementary item with the values for which 
it is to be tested. It uses pointers in 
the dictionary attributes of the 
condition-name to find the dictionary 
attributes of the elementary item, as well 
as to find the test-values in the VALTRU 
table. Figure 30 shows the PO-text input 
and Pi-text output for a condition-string 
without a VALUE... THRU clause. Figure 31 
shows the PO-text and Pi-text for a 
condition-string with a VALUE. .".THRU 
clause. 



Error Processing; ERROR Routine 



The processing routines branch to the 
ERROR routine when E-text for a complete 
diagnostic message can be generated. The 
parameter list following each branch 
consists of the message number, the 
severity code, a count of the parameters if 
any, and the addresses of the parameters. 
The ERROR routine builds E-text for a 
message in location ERMSG, calls phase 00 
to write it on SYS003 along with P1-text, 
and then returns to the calling routine. 
The format of E-text and the manner in 
which diagnostic messages are later 
generated from it are described in the 
chapter on phase 70. 

If CSYNTAX is specified and an error is 
detectecL,_the syntax option bit in COMMON 
is forced on and conflicting options are 
forced off. 



78 Section 2. Method of Operation 



Licensed Material - Property of IBM 



Phase 11 Output Phase 30 Output Meaning of Element 

IP 



|54|07| 
I I I 



I 1 1 

1541071 



I 23 I** I EBCDIC Name I 
I i I I 



30|**|Attri- I 

I Ibutes I 

I I I 



Condition-name 



1 Conditional variable 



50|06| 
I I 



EQUALS 



First value to be 



* I** I Literal I tested for 
I I I 



54|5E| 



50|06| 
I I 



OR 



EQUALS 



— I 1 1 Last value to be 

* I** I Literal I tested 



Imperative 
statement 



Imperative 
statement 



Processing by Phase 30 
Copied unchanged by PHCTRL 



Uses pointer in dictionary 
entry for conditior-name to 
find entry for elementary 
item 

Writes conditional variable 
attributes from its diction- 
ary entry replacing its 
dictionary pointer with that 
of the condition-name 

Generated by GENDAT 



Taken from VALTRU table 
entry pointed to in con- 
dition-name attributes 

Generated by GENDAT 



Generated by GENDAT 



Taken from VALTRU entry 
pointed to in condition- 
name attributes 

GENOP returns to PHCTRL to 
handle remaining processing 



*Code indicating type of literal , as follows: 



Code 


Type of Literal 


32 


Numeric 


33 


Floating-point 


3a 


Alphanumeric 


39 


ALL constant 



**Count indicating number of bytes in following field 



Figure 30. Pi-text Written for Condition-String Without VALUE.. .THRU Clause 
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Phase 11 Output Phase 30 Output Meaning of Element 



I 1 1 

15^1071 
I I I 



I I 1 

|54|07| 



I 1 1 » 

|23|**|EBCDIC Name I 
» ■ ■ I 



|30|**|Attri- I 
I I Ibutes I 



I52|00| 
' 1 * 




I54I5CI 




|50|0A| 




1 * 1**1 Literal 1 




|54|5D| 




|54|5C| 




1501081 




1 BE 1**1 Literal 1 




|52|01| 



IF 
Condition-name 

Conditonal variable 

Left parenthesis 
NOT 

LESS THAN 

First value in 
series 

AND 

NOT 

GREATER THAN 

Last value in series 

Right parenthesis 



Imperative 
statement 



Imperative 
statement 



Processing by Phase 30 
Copied unchanged by PHCTRL 



Uses pointer in dictionary 
entry for condition-^name to 
find entry for elementary 
item 

Writes conditional variable 
attributes from its diction- 
ary entry replacing its 
dictionary pointer with that 
of the condition-name 

Generated by GENDAT 



Generated by GENDAT 



Generated by GENDAT 



Taken from VALTRU entry 
pointed to in condition- 
name attributes 

Generated by GENDAT 



Generated by GENDAT 



Generated by GENDAT 



Taken from VALTRU table 
entry pointed to in 
condition-name attributes 

Generated by GENDAT 



GENOP returns to PHCTRL to 
handle remaining processing 



*Code indicating type of literal, as follows: 



Code 
32 
33 
34 
39 



Type of Literal 
Numeric 
Floating-Point 
Alphanumeric 
ALL constant 



**Count indicating number of bytes in following field. 



Figure 31. Pi-text Written for Condition-String with VALUE... THRU Clause 
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PHASE 40 



Phase 40 (ILACBLaO) continues the 
transformation of a source program 
Procedure Division into machine-language 
instructions. Its main functions are: 

• Transforms Pl-text into P2-text. 

• Analyzes syntax and checks for errors 
in the Pl-text statements. 

o If COUNT is in effect, converts all 
verbs and procedure-names to Data 
A-text and defines verb-block nodes 
with a counter in both the COUNT table 
(Data A-text) and P2-text. 

During phase 40, the compiler-generated 
card number of the statement currently 
being processed is kept in a halfword 
labeled CARDNO. 



statement) is put at the beginning of 
the string as an aid to phase 50 or 51- 



A string of P2-text is put out with a 
maximum of five operands. If more than 
five operands are required by a single 
verb, a continuation string is put out. 
See the discussion of the DISPLAY statement 
in the chapter on phase 51 for an example 
of a continuation string. 



The following sections give examples of 
phase 4 processing for several types of 
verbs. These examples show the general 
pattern of analysis for all the verbs and 
use all of the phase 4 tables except the 
SETTBL table. The SETTBL table is used to 
accumulate index-names or identifiers which 
may precede the COBOL words TO, UP, or DOWN 
in the SET statement. 



TRANSLATION OF Pl-TEXT TO P2-TEXT 



PROCEDURE-NAMES 



Pl-text is read by routine IDENT. If 
IDENT determines that an element is a 
procedure-name definition, it calls routine 
IDLHN to process the element. 



EXAMPLES 



MOVE Statement — Subscripting 



VERB STRINGS 



If the element encountered is a verb, a 
verb analyzer is called. There is a 
separate verb analyzer routine for each 
COBOL verb. 

The verb analyzer routines use a number 
of tables while building a verb string. 

The STRING table is used by all verb 
analyzers that produce output. It holds an 
output string while it is being built. The 
string is held in the table, rather than 
being put out in parts as it is built^, for 
the following reasons: 

• A string is not issued unless it is 
free of errors. This cannot be 
determined until the entire string is 
produced. 

• Sometimes the information which appears 
at the end of a Pl-text statement (for 
example, UPON CONSOLE in a DISPLAY 



Phase 4 processing for the MOVE 
statement consists simply of putting out a 
MOVE string which gives the number of 
operands and names the operands. For the 
input elements: 

MOVE A TO B 

Phase 4 generates the string: 

MOVE (2) A B 

The operands of a MOVE statement may be 
subscripted. When subscripted operands are 
encountered in any statement, the 
generating routine first issues a SUBSCRIPT 
string for each subscripted operand and 
then issues the string for the verb. The 
following MOVE statement exem.pl if ies the 
building of SUBSCRIPT strings: 

MOVE A(6) TO B(C,D,E). 

Processing for this statement is 
illustrated by Figure 32, which shows the 
contents of tables built for the statement 
and the P2-text strings produced. 
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r — 

1 STRING 
1 Table 
h 

1 MOVE (2) 


T T 

1 

IDEFS3S Table Output 
_| 1 

JSUBSCRIPTO) SUBSCRIPT(3)A 6 
1 SSIDl 


1 SSIDl 


1 

JA SUBSCRIPT (5) 

j B C D iC SSID2 
1 


ISSID2 


1 

|6 MOVE (2) 

1 SSIDl SSID2 
1 




1 

1 SSIDl 

1 




1 

1 SUBSCRIPT (5) 

1 




1 

|3 
i 




1 

ic 

1 




1 

ID 
I 




I 

IE 
1 




1 

ISSID2 



L X 



J. J 



Figure 32. Tables and Output for a MOVE 
Statement ~ ' 



EXPLANATION : The MOVE verb, with 2 to 
indicate the number of operands, is placed 
in the STRING table. Then the first 
subscripted operand is processed. For this 
operand, a SUBSCRIPT string is built in 
table DEFSBS. (SUBSCRIPT is a special 
COBOL verb us-ed only within the compiler; 
table DEFSBS is similar to the STRING " ' 
table, but it is used only to hold 
subscript information. ) 



The SUBSCRIPT string is used by phase 50 
to resolve the subscripted reference. The 
first SUBSCRIPT string shown in Figure 32 
means: "Compute the address of the sixth 
occurrence of A; place that address into a 
temporary cell called SSIDl." At execution 
time, the address of the data item to be 
moved is held in SSIDl; therefore SSIDl 
becomes the operand of the WOVE verb. The 
same applies to the second operand. 



When the period ending the statement is 
encountered, all three strings are written 
on SYSOOl. 



DEBUG Card 



If a procedure-name is referred to on a 
DEBUG card, phase 40 produces a CALL 
string. 

The output generated for debugging 
procedures is illustrated in Figure 33,. 

When routine IDLHN analyzes a PN 
definition, it determines from the 
attributes that this PN is referred to on a 
DEBUG card. Routine IDLHN first issues a 
PN definition element- Then it obtains a 
GN number from GNCTR in COMMON and issues a 
CALL string with this GN as its operand. 
The PN number and the GN number are saved 
together in table DBGTBL. 

When a DEBUG card is encountered, the 
DBGTBL table is searched for a PN number 
that matches the one on the DEBUG card. In 
the table, this PN number has a 
corresponding GN number, and a GN 
definition element is issued for this GN. 
Therefore, the GN defines the location of 
the debugging procedure. 



ALTER Statement 



For each ALTER statement in a program, 
two statements require ALTER processing: 
the ALTER itself, and the GO TO statement 
named in the ALTER. Either of these 
statements may be encountered first. When 
one statement of an ALTER/GO TO pair is 
encountered, a VN number is assigned, and a 
string of P2-text is written using this VN 
number. A VNTBL entry is made, giving the 
VN number and the PN number to which it 
corresponds. When the second statement of 
the pair is encountered, this VNTBL entry 
supplies the VN number for this statement's 
P2-text output. 



I Input Statement 
|. 



DBGTBL Table 



Output 

PNl. CALL GNl ADD... 

PN2. CALL GN2 MOVE... 
GN2. DEBUG PN2 
GNl. DEBUG PNl 



1 PNl. 


ADD... 


1 PN2. 


MOVE. . 


1 DEBUG 


PN2 


1 DEBUG 


PNl 



PNl 
PN2 



GNl 
GN2 



Figure 33. DBGTBL Entries and P2-text for DEBUG 
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r ' ■ ■ - ■' '" — '1 

1 Input Statement | VNTBL 


T"- ■ ■ 


Output 1 

1 


|(T)PN1. 


GOTO PN3. 1(4) PN1 


VN1 10 

® 


PN1. 


GO VN1. 1 
EQUATE VN1 PN3 | 


1© 


ALTER PN4 TO PROCEED TO PN6.|(5) PN4 


VN2 1 




MOVE PN6 VN2 | 


1 PN2. 






PN2. . 






GO TO PN1. 1 




GO TO PN1. I 


1 PN3. 




© 


PN3. . 




1© 


ALTER PN1 TO PROCEED TO PN2. | 




MOVE PN2 TO VN1 | 


1 PNU. 


GO TO PN5. 1 




PN4. 


GO VN2. 1 
EQUATE VN2 PN5 | 


1 PN5. 






PN5.. 
PN6.. 




1 PN6. 







Figure 34. Table Entries and Output for ALTER Statements 



At execution time, each PN is assigned a 
cell in the PGT (Program Global Table) . In 
this cell, the address of the first 
instruction for the PN is permanently 
stored. Each VN is assigned a cell in the 
VN field of the TGT (Task Global Table) ; 
however, the contents of these cells are 
not permanent. When a GO TO instruction is 
modified by an ALTER statement (or a 
PERFORM statement, as described later in 
this chapter) , the address contained in the 
VN cell is changed. 

Figure 34 gives an example of phase 40 
processing for the ALTER statement. 

n) In this example, the first statement 
read is PN1. When routine IDLHN 
examines the definition of PN1, it 
determines from the attributes that 
this statement is a GO TO statement 
referred to by an ALTER statement 

(3) (The ALTER statement follows PN3) 

(V) Then the GO verb analyzer processes 
the statement. It obtains a VN 
number, which it stores with PN1 in 
the VNTBL table, and it puts out two 
strings. 



© 



© 



The GO VN1 striim means that, when 
this branch is ex^<:juted, the address 
to be branched to isxpbtained from a 
uniguely identified V^ cell in the 
TGT. 

EQUATE VN1 PN3 means that, at 
execution time, the initial content 



of this VN-I cell is the address of 
PN3. Until the value is changed by 
an ALTER statement, the cell is 
unchanged, and any execution of PN1 
branches to PN3. The eguated address 
is also placed in a VN cell in the 
PGT. 

(In a segmented program, the VN is given 
the same priority as the PN to which it is 
equated.) 

(3) When the ALTER PNl statement is read, 
the VNTBL table is searched for PNl. 
Since an entry is found, the 
corresponding VN number (VN1) is used 
as the receiving field of the MOVE. 

(&) At execution time, this MOVE takes 
the address of PN2, stored in a PN 
cell in the PGT, and places it in the 
VN cell for VN1. 

The execution-time operation of this 
ALTER/GO TO pair is illustrated in Figure 
35. The flow of control resulting from 
this ALTER is shown in Figure 3 6. 

Figure 34 illustrates a second ALTER/GO 
TO pair. 

Cg/ In this case, the ALTER statement 
(ALTER PN4) is read first. 

Q A search of the VNTBL table reveals 
that no entry for PN4 has been made, 
so the ALTER analyzer obtains a VN 
number and enters that VN number with 
PN4 in the table. 
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1 COBOL Source 


Simplified Assembler 


code 


1 


1 PN1. GO TO PN3. 


L 
BR 

L 
ST 


REG,VN 
REG 

• 
• 
• 
• 
0^PN2 

• 
• 
• 




PN (cells of PGT) 1 


1 • 


1 a(PN1) 1 1 




1 n frw?i 1 1 






1 ALTER PN1 TO PRO- 
1 CEED TO PN2. 
1 • 
1 • 
1 • 

1 


1 a(PN3) 1 1 1 


YN (cells of TGT) 1 1 




1 a(PN3) 1 1 1 




A 1 1 

i 1 1 

1 1 1 



Figure 35. Execution of an ALTER Statement 



I Beginning 
I of 
I program 




Special Processing for Optimization : 
When OPT has been specified , most PN cells 
are eliminated from the Program Global 
Table (PGT) . Phases 62, 63, and 64 develop 
a different method for addressing these 
PNSr using Procedure Block base locators 
for this purpose. Some GN and PN cells 
remain unchanged by the optimizer phases. 
Phase 40 generates P2-text Optimization 
Information elements (changed to 
Optimization A-text elements by phase 50) 
to identify what type of element follows. 



PERFORM Statement 



The processing of a PERFORM statement 
resembles that of an ALTER statement.. 



The return from a performed procedure is 
a GO string with a VN as its object. This 
GO string is placed at the end of the 
performed procedure; that is, just before 
its delimiter. 



Figure 36. Plow of Control for Statements 
in Figure 35 

Note: Assuming that no other ALTER or GO 
TO statements occur in this program, the 
flow of control follows the single-line 
path the first time through and the 
double-line path every time after. 



Phase 40 uses the VNTBL and PFMTBL 
tables to keep track of the VNs . Figure 37 
gives an example of the use of these 
tables. 
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1 ■■ 

1 Procedure Statement 


1 

1 VNTBL Table 




PFMTBL Table 


■ ■ — - 1 

Output 1 

1 


1 SN1 SECTION. ... 






SN1. 


... 1 


|(T) SN2 SECTION. ... 


1 (2) SN2 VN1 


(3)SN4 VN1 


SN2. 


... 1 


1 PN3. ... 






PN3^ 


1 GO VN 1 1 
1 EQUATE VN1 SN^ | 


|(a) SN4 SECTION. ... 






0SN4. 


.... 1 


\(q) PN5. PERFORM SNI THRU 
1 SN2. 






0PN5. 


MOVE VN1 PFMSAV1I 

MOVE GN1 VN1 1 
GO SNI 1 






GN1. 


MOVE PFMSAV1 VN1 | 


1 PN6. ADD... 






PN6. 


ADD... 1 



Figure 37. Effect of a PERFORM Statement 



© 



(D 

® 




© 

© 
© 
© 



The dictionary attributes of 
section-name SN2 indicate that it is 
the object of the THRU option of a 
PERFORM statement. 

Routine IDLHN obtains a VN number 
from cell VNCTR in COMMON and enters 
VN1 and SN2 in table VNTBL. 

In table PFMTBL, it enters VN1 and 
the delimiter of SN2, which is SN4 . 

When section name SN4 is encountered, 
routine IDLHN knows it is the 
delimiter of the performed procedure 
because it is in table PFMTBL. 
Therefore, before the procedure-name 
definition element for SN4 is issued, 
routine IDLHN sets up the return from 
the performed procedure. 

It obtains the VN number from the 
PFMTBL entry and issues a GO string 
to go to VN1 . 

It issues an EQUATE string to equate 
VN1 to SN4. 

It then issues the procedure-name 
definition for SN4. 

When the PERFORM statement identified 
by PN5 is encountered, verb analyzer 



© 



routine PERFORM sets up the return 
from the performed procedure before 
it issues a GO string to go to it. 



It obtains a PFMSAV number from cell 
PSVCTR in COMMON and issues a MOVE 
string to save VNI by moving it to 
PFMSAV1. (There are PFMSAV cells in 
the TGT to hold these values at 
execution time.) Then it obtains a 
generated procedure-name (GN) number 
from cell GNCTR in COMMON and issues 
a MOVE string to alter VNI with GN1. 
This GN is issued as a GN definition 
for a MOVE statement to restore VN1 
after the performed procedure is 
executed. 



At execution time, the performed 
procedure is executed first in-line; that 
is, the return from it is the next 
sequential statement SNU. Then, when PN5 
is encountered, the performed procedure is 
executed again. This time the return from 
it is GNI (where the normal return of SN^* 
is restored) . Then the 'next statement 
(that is, PN6) is executed. 

Figure 38 gives an example of how a 
PERFORM statement operates at execution 
time. Figure 39 illustrates the flow of 
control for the program shown in Figure 36. 
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Source statement (COBOL) : 

PEPFOPM SEC2 THBO SEC3. 



SEC1 SECTION. 



SEC2 SECTION. 



SEC3 SECTION. 



SEC4 SECTION. 

GO TO SEC1. 



Resulting code (Simplified Assembler Language) 



GN 



SEC1 



SEC2 



SEC3 



SEC^t 



L 


O^VN 


ST 


O^PFMSAV 


L 


OrGN 


ST 


0,VN 


L 


REG,PN+4 


B 


REG 


L 


0,PFMSAV 


ST 


0,VN 



Save initial value of VN=A(SECa) 
Set up value of VN=A(GN1) 
Branch to SEC2 

Re-initialize cells in TGT 



L REG,VN 

B REG 

L REG^PN 

B REG 



LOAD A (SEC4) 

Branch 

LOAD A (SEC1) 

Branch 



Resulting code if OPT is specified (Simplified Assembler Language) 



&N1 

SEC1 
SEC2 
SEC3 

SEC4 



L 

ST 

LA 

ST 

B 

L 
ST 



0,VN 
OrPFMSAV 
0,DISP (11) 
0,VN 
DISP (11) 

OrPFMSAV 
0,VN 



Save initial value of VN=A (SEC4) 
Set up value of VN=A(GN1) 
Branch to SEC2 
Re-initialize cells in TGT 



L 
B 
B 



Reg^VN 
Reg 
DISP (11) 



Load A (SECA) 

Branch 

SEC1 



Note; PN and GN are cells in the Program Global Table (PGT) ; VN and PPMSAV are cells 
in the Task Global Table (TGT) . The TGT and PGT are discussed in "Appendix B. Object 
Module." 



L 



Figure 38. Execution of a PERFORM Statement 
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I PERFORM 



SEC1 



1 
->l 


SEC2 I 
SEC3 1 
1 — 1 ' 



A A. 



V V 



ire- I 
I initialize I <- 
I I 



i_ 



-J 




V V 



SEC4 



Figure 39. 



Flow of Control for Statements 
in Figure 38 



Note: Assuming that no other procedure 
branching statements occur in this program, 
the flow of control follows the single-line 
path the first time through and the 
double-line path every time after the 
first. 



COMPUTE Statement 



Verb analyzer routine COMPUT, in 
conjunction with its major subroutine 
FORMLA, breaks down the arithmetic 
expression of a COMPUTE statement into a 
series of simple arithmetic strings. It 
uses two tables, PNOUNT and PSIGNT, in the 
processing. PNOUNT contains the nouns 
(that isr operands) of the arithmetic 
expression. PSIGNT contains the signs 



(that is, operators and parentheses) of the 
expression. , 



These two tables are needed because the 
hierarchy of arithmetic operators may 
necessitate a rearrangement of the 
expression. The operators, in order of 
first-performed to last-performed 
operations, are: 

unary + and - 

* and / 
+ and - 

For example, the statement COMPUTE 
X=A-B*C reguires arithmetic strings in the 
order: 

MULT C B IR1 
SUB IR1 A IR2 
STORE IR2 X 

where IR1 and IR2 are intermediate results. 

Figure 40 gives an example of the use of 
tables PNOUNT and PSIGNT in evaluating the 
following statement: 

COMPUTE X=A+ (C-D/E)*F-G. 

It shows which elements are added to or 
deleted from these tables as a result of 
reading a new input element, and which 
strings are placed in table STRING as a 
result of encountering this element. Each 
row in the figure shows table contents 
after processing the input element to the 
left 

Phase 40 builds a single arithmetic 
string when the signs in table PSIGNT 
indicate that the arithmetic hierarchy of 
operators reguires a string. To build a 
string, the last operator in table PSIGNT 
is made into a verb, the last two nouns in 
table PNOUNT are used as operands, and an 
intermediate result is appended^ as the 
temporary result. (The intermediate result 
is placed in table PNOUNT as an operand.) 
The following paragraphs give the rules for 
building a string. The numbers of the 
explanatory items correspond to the circled 
numbers in Figure 40. 

1. If a right parenthesis is encountered, 
all strings up to the left parenthesis 
are built. 

2. If an operator is encountered that (in 
the hierarchy of arithmetic operators) 
is lower than or egual to the last 
sign in -PSIGNT, a string is built. 

3. If there are no more input elements, 
all remaining strings are built. 
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1 1 — T 1 1 

1 1 Table 1 Table | | 
1 Input IPNOUNT IPSIGNT | Strings Stored | 
1 Element 1 Contents! Contents! in Table STRING! 


1 A 1 A 1 1 1 


1 + 1 A 1 + I 1 


1 ( 1 A 1 + ! ! 
1 i 1(1 1 


I C ! A 1 + ! ! 
1 1 C 1 ( 1 ! 


1 - 1 A 1 + ! ! 
1 1 c 1 ( ! ! 


! D 1 A 1 + 1 ! 
1 1 c 1 ( 1 ! 
1 1 D 1 - ! ! 


1 / 1 A 1 + ! 1 
1 1 C ! ( 1 ! 

I 1 l> 1 - 1 ! 

II 1 / f 1 


1 E 1 A I -1- 1 1 
1 1 C I ( 1 1 
1 ! D 1 - 1 1 
1 1 E 1 / 1 I 


1 ) ^^ 1 A 1 + |DIV E D TR1 ! 
1 ©1 C 1 ( I 1 
1 1 IR1 1 - 1 1 


1 1 A 1 + jSUB IR1 C IR2 I 
I i IR2 1 1 1 


1 * 1 A ! + 1 1 
1 1 IR2 1 * 1 ! 


1 F 1 A 1 + 1 1 
1 1 IR2 1 * 1 ! 
1 1 F 1 I 1 


I -^^ 1 A 1 + IMULT F IP2 IR3 I 
1 VE; 1 IR3 I 1 1 


1 1 IR4 1 - lADD IR3 A IR4 | 


1 G 1 IR4 1 - I 1 
1 1 G I 1 1 


1 .^^ 1 1 |SUB G IPa IRS 1 

1 Cf) 1 1 {STORE IRS X 1 
1 t ■ 1 I 


INote: The circled numbers in the figure 1 


1 refer to explanations in the text.f 



Figure 41 gives the final output from 
the statement. 



EVAL DMAX DCURREKT X. 
DIV F D IR1 (-C) 
SUB IR1 C IR2 (*F) 
MULT F IR2 IR3 (+A) 
ADD IR3 A IRa (-G) 
SUB G IR4 IRS (ST X) 
STORE IRS X 



Figure 41. Strings Resulting from a 
COMPUTE Statement 



As an aid to phase SO, an EVAL string is 
issued preceding the arithmetic strings. 
The EVAL string contains information such 
as the maximum number of decimal places in 
an operand r the number of decimal places in 
the result, and the presence of ROUNDED 
and/or ON SIZE ERROR clauses. Appended to 
any string containing an intermediate 
result is an indication of the use of that 
intermediate result.' For example, IR1 is 
used in a subtraction with C. 



IF Statement 



The IF verb analyzer, assisted by its 
major subroutine PFINDL, evaluates IF 
statements. It issues strings consisting 
of a relational verb, two operands to be 
compared, and a third operand. This last 
operand is a generated procedure-name (GN) 
to which a branch is to be made if the next 
statement, or the next test in a compound 
IF statement, is to be bypassed. The 
following list shows the verb string issued 
from a simple IF statement. 



Statements Strings 

IF A=B DISPLAY C. IF-NOTEQ A B GNI 



ADD... 



DISPLAY C 
GN1. ADD... 



Figure 40, 



Evaluation of a COMPUTE 
Statement 



Note that the condition is reversed in the 
string to minimize the number of branches 
required . 

The tables PNOUNT and PSIGNT are used in 
evaluating arithmetic expressions in IF 



88 Section 2. Method of Operation 



Licensed Material - Property of IBM 




1 '■■" ■ 1 1 1 

1 Procedure | Status of | | 
1 Statement |PSHTBL Table | Output String | 


1 IP A=B 1 GN1 1 IF-NOTEQ A B GN1 | 


1 IP C=D 1 GN1 1 IP NOTEQ C D GN2 | 
I 1 6N2 1 1 


1 IP E=P 1 GN1 1 IP-NOTEQ E P GN3 | 
1 1 GN2 1 1 
1 1 6N3 1 1 


I STOP ^O" 1 GN1 1 STOP »0» | 
1 1 GN2 1 GO GN4 | 
1 i GN3 1 t 


1 ELSE STOP •3» 1 GN1 | GN3. STOP ■3» | 
1 1 GN2 1 GO GN£^. | 


1 ELSE STOP ■2» 1 GN1 | GN2. STOP ■2" I 
1 1 1 GO GNU 1 


1 ELSE STOP M» 1 1 GN1, STOP M' | 


1 ADD ... 1 1 GNa. ADD ... | 

1 — - ,L 1 . . 1 



Pigure 42. Evaluation of a Nested IP Statement 



statements. The strings produced are the 
same as for COMPUTE statements except that 
the last string is a relational string (for 
example, IP-EQ or IP-NOTGT) instead of a 
STORE string. 

In addition r tables PSHTBL and PTRPLS 
are used in evaluating IP statements. 
Table PSHTBL collects branches to ELSE 
statements in nested IF statements. Table 
PTRPLS collects branches within compound IP 
statements. 

Nested IP Statement ; Figure 42 shows how 
table PSHTBL is used in evaluating the 
following statements: 



IF A=B THEN IP C=D THEN IF E=P STOP ■0« 

ELSE STOP •3» ELSE STOP ■2" ELSE STOP 
ADD.. . . 



'1». 



Library r Program Logic , Order 
No. Ly28-6424.) Therefore, phase 40 does 
not generate statements to perform the 
search. Instead, it produces a parameter 
list for the object-time subroutine (the 
actual call to the subroutine is generated 
by phase 50) , and it creates verb strings 
for the imperative statements following AT 
END and WHEN clauses. 

Figure 43 gives an example of phase 40 
output for SEARCH ALL. The example shows 
the P*2 text that would be produced for the 
following statement: 

SEARCH ALL TABLE-K AT END GO TO NOT-FOUND 
WHEN KEY-1 (INDEX-K) = 5 AND KEY-2 

(INDEX-K) = 10 AND 

KEY-3 (INDEX-K) = DATANAME-K3 
MOVE TABLE-K (INDEX-K) TO ENTRY-FOUND. 



IF and ELSE statements are paired from the 
inside outward. Table PSHTBL saves the 
procedure-names generated for branching to 
the ELSE statements. When an ELSE is 
encountered, the last generated name in the 
table is issued as its procedure-rname 
definition. 



SEARCH ALL Statement 



(T) The SEARCHALL verb analyzer first 
receives TABLE-K and the maximum 
number of occurrences as Pl-^text 
inpiit and saves them. 

\2) Then it receives a count of the 

number of keys, followed by the keys 
themselves. The dictionary pointer 
for each key is entered into table 
KEYTBL with a flag byte of 00. 



The SEARCH ALL statement is executed by 
an object -time subroutine. (For a 
description of the subroutine see the 
publication IBM DOS/VS COBOL Subroutine 



If any of the keys are found to be 
sterling or floating-point, a C-level 
E-text element is generated, and the 
statement is processed as if it were a 
format 1 of the SEARCH statement. At the 
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same time, WHEN conditions are processed by 
the IF analyzer and no special WHEN 
statements are generated. 



After the table has been built, the 
SEAFCHALL analyzer transfers control to the 
SEARCH analyzer to scan the WHEN and AT END 
clauses. 



To generate verb strings for the 
imperative statements following AT END and 
WHEN clauses, the SEARCH verb analyzer 
calls other verb analyzers. However, the 
IF analyzer is not called to generate 
conditional statements. Instead, SEARCH 
returns control to SEARCRALL to do special 
WHEN processing. If the AT END and WHEN 
imperative statements do not provide exits 
from the search, phase 40 generates a GO TO 
NEXT SENTENCE statement. 



® 



In the example, this is accomplished 
via the GO GN4 statement. 



Figure 4** is a generalized diagram 
showing the flow of execution into and out 
of the SEARCH ALL subroutine. 



Phase 40 checks WHEN conditions for 
conformity to language rules by using the 
KEYTBL table. 



When the first part of the WHEN 
condition is processed, the dictionary 
pointer for the key named in the condition 
is compared to that of the first key in the 
KEYTBL table. If it matches, the flag byte 
is set to 01 and the condition is valid. 
The second part of the condition should 
name a key matching the second entry in the 
KEYTBL table, and its flag byte will be 
set. 



If keys in the WHEN clause are specified 
in any order other than the order of 
KEYTBL, E-text for a conditional error 
message is issued, and the SEARCH routine 
is given control to produce a SEARCH 
format-1 statement instead of SEARCH ALL. 



If, in any part of the WHEN condition, 
none of the operands named is a key, or if 
any other error condition is detected^ 
E-text is issued, and no P2-text is 
produced. 



GO GN1 . 

GO PN50. (PN50 is the PN number 
of NOT-FOUND) 

WHEN (3) * 

TABLE-K 

num-occur** 

GN2 

EVAL DKAX DCURRENT 

KEY-1. 

EOOATE 5 KEY-1. 



GN2, 
GN3. 



© 



Information 
used for pa- 
rameter list 



© 



GN1. 



EVAL DMAX DCURRENT 
KEY-2. 

EQUATE 10 KEy-2. 

EVAL DMAX DCURRENT 
KEY-3. 

EQUATE DATANAME-K3 
KEY-3. 

ENDWHEN. 



SUBSCRIPT (3) TABLE-K INDEX-K 
SSID1. 

MOVE (2) SSID1 ENTRY-FOUND. 

GO GN4. 

GO GN3. 



GN4.| Next sentence. 
i 



*If KEY-1 reguired two levels of 
subscripts or indexes, the first 
subscript would be put out as the 
fourth operand of the WHEN verb. If 
three levels were reguired, the first 
two subscripts would be operands 4 and 
5 of WHEN. All keys must be 
subscripted or indexed when used in 
WHEN conditions, but phase 4 does not 
produce SUBSCRIPT strings or SSIDs for 
them. 
**num-occur: If TABLE-K has a fixed 
number of entries, num-occur is a 
literal specifying the number (the 
value following the OCCURS clause in 
the data description for TABLF-K) . If 
the table has a variable number of 
entries, num-occur is the name of the 
data item which follows the OCCURS 
clause with the DEPENDING ON option. 



Figure 43. Output for a SEARCH ALL 
Statement 
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SYNTAX ANALYSIS AND VERB CHECKING 



conditional statement that has no 
conclusion. 



Phase 40, in subroutine ERROR, issues 
E-text when an error is detected. 

Primarily, phase 4 checks to see 
whether required COBOL words are present 
and in the correct order and whether 
operands are compatible with each other 
and in permissible format for the 
statement in which they are used. 

In addition, it performs a limited 
check of the relationship between 
statements. For example, it detects a 



It also checks miscellaneous special 
requirements, such as: subscripts must be 
integers, parentheses in logical and 
arithmetic expressions must be paired, and 
a maximum of twelve sort keys must not be 
exceeded. 

If CSYNTAX is specified and an error is 
detected, the SYNTAX option bit in COMMON 
is forced on and conflicting options are 
forced off. If SYNTAX or CSYMTAX is 
specified, all error text is written to 
file 4. 



GN3 

r 1 

I Call 1 
I subroutine] 

L ^ J 




G1SI2 

r 1 Exit from SEARCH 

I Imperative] via GO statement or 

-> 1 statement |- > 

I following | NEXT SENTENCE 

WHEN ] 



Return at a specified p t Exit from SEARCH 

number of bytes after | Imperative] via GO statement or 

> I statement |- > 

GN3 (first executable | following | NEXT SENTENCE 
instruction immediately JAT END (if] 
follows parameter list) j specified)] 

L J 



(Solid box indicates that control flows within the SEARCH ALL object-time subroutine; 
blocks not within the box are executed in-line.) 

Figure 44.. Flow of Execution for a SEARCH ALL Statement 
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METHOD OF DEFINING VERB BLOCKS 



The major routines used in defining verb 
blocks and the functions they perform are 
explained below. 



also turned on upon exit from processing 
the INPUT or OUTPUT procedure phrase. 



EOF Routine 



Phase 4 Initialization Routine 



This routine turns off the ENTRYSW, 
FNDPARNM, NNODEOS, NNODSW, NTIMSW, 
TIMFLOSW, UPPROC, and VBSKIP switches. 



If COUNT or TIMER is on, this routine 
indicates the end of the COUNT Table in 
Data A-Text and rounds the size of the 
COUNT Table to the next even number. 



IDS Routine 



GETNXT (GET13 and GET14) Routine 



Before branching to the verb analyzer 
routines, this routine calls TIMCNT. 



This routine saves Listing A-Text in 
order to maintain the last procedure-name 
for GENPAR. 



ISTRUV Routine 



This routine turns on NNODSW and 
NNODEOS. 



IDBRK Routine 



EXIT5 (EXIT PROGRAM) Routine 



Prior to generating this verb, this 
routine calls GENTIM, passing zero as the 
parameter to be generated. Afterwards, 
NTIMSW is turned on. 



If not a report writer declarative, this 
routine turns on NNODSW, ENTRYSW, UPPROC, 
NTIMSW, and turns off NNODEOS and VBSKIP. 
If it is a report writer start, IDBRK turns 
on VBSKIP; if it is a report writer end, it 
turns off VBSKIP. 



Branches to USE FOR DEBUGGING 



After generating the return point from 
any USE FOR DEBUGGING procedure (other than 
for Procedure-name definitions) , GENTIM is 
called. 



IDLH03 Routine 



GENNOD Routine 



Just before FLOW is tested, this routine 
turns on NNODSW, UPPROC, ENTRYSW, FNDPARNM, 
and turns off NNODEOS. Then, if FLOW is 
on, it turns on TIMFLOSW. Then GENTIM is 
called. In addition, if there is a DEBUG 
packet, at the end of IDLHIO, GENTIM is 
called again. Note: the test and code 
generation for USE FOR DEBUGGING 
paragraph-name precede the tests for FLOW. 



If COUNT is off, or if VBSKIP is on, 
GENNOD returns. Otherwise, if NNODSW is 
on, NODECTR is updated. In any case. Data 
A-Text is generated. In addition, if 
NNODSW is on, a COUNT verb with a counter 
is generated, and NNODSW is turned off. 



GENPAR Routine 



SORT, MERGE Routines 



Upon final exit from these routines, 
NNODSW is turned on if INPUT or OUTPUT 
procedures were specified. If INPUT or 
OUTPUT procedures are specified, NTIMSW is 



First GENPAR turns off UPPROC. Then, if 
COUNT is off GENPAR returns. In any case. 
Data A-Text for the paragraph, 
section-name, or missing paragraph- name is 
generated (using FNDPARNM), and FNDPARNM is 
turned off. 
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GENTIM Routine 



First GENTIM turns off NTI^^SW. If 
UPPROC is on, it calls GENPAR. In any 
case^ if ENTRYSW is off, GENTIM generates a 
TIMERA verb (with a zero or PROCCTR as the 
count, depending on input parameters) and 
then returns. GENTIM turns off ENTRYSW, 
and if TIMFLOSW is off, generates a TIMERB 
verb (with PROCCTR as the count) and 
returns- Otherwise it turns off TIMFLOSW 



and generates a TIMERC verb with PROCCTR as 
the first constant and with ISN or 
Card-nuitiber as the second constant. 



WRSYS4 Routine 



This routines puts the Data A-Text on 
SYS004. 
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PHASE 50 



Phase 50 CILACBL50) reads elements of 
P2-text written by phase 4 and, depending 
upon the type of each eleinent, either 
processes it or passes it to phase 51 for 
processing. Output from phase 50 includes 
P2-text passed unchanged. Intermediate 
A-text, and Intermediate E-text, all 
written on SYS002 for phase 51, and 
Optimization A-text written on SYS003 for 
phase 60 or 62. Intermediate E-text 
consists of E-text passed from phase 40 or 
generated by phase 50, to which is added a 
prefix to make it readily recognizable- 
Intermediate A-text consists of Procedure 
A-text or Optimization A-text, which is 
generated by phase 50 and to which has been 
added a prefix. 

Procedure A-text is generated by 
analyzing P2-text verb strings and 
generating elements that correspond to 
assembler language instructions. That is, 
the elements combine to form name, 
operation, and operand fields. 
Optimization A-text is generated for use by 
phase 60 or 62 in eliminating duplicate 
references- 
Input to phase 50 (a combination of 
P2-text and E-text) is read from file 
SYSOOl. Output is written on file SYS002, 
except for literal definitions written as 
Optimization A-text. These are written on 
file SYS003. (See the section "Literals 
and Virtuals" later in this chapter.) 

Routine PH5CTL calls routine GETNXT, 
which obtains ?2-text elements, determines 
what type they are, and calls the routines 
required to process them. The elements may 
be of the following types: 

• Program breaks 

• Verb strings 

• E-text 

• Segmentation control breaks 

• PN, GN, and VN definitions 

Of these, only program breaks and 
certain verb strings are processed by phase 
50. The others are passed to phase 51 for 
processing- Elements of E-text are 
prefixed with headers for identification by 
phase 51, and copied as output- 
Segmentation control breaks and PN, Gi^, and 
VN definitions are written with an 
Optimization A-text prefix. Before a PN, 
GN, or VN definition is copied, all entries 



in the XSCRPT table, used in calculating 
subscript values, are deleted. The section 
"Using and Optimizing Subscript References" 
explains why this is necessary. 



PROGRAM BREAKS 



Routine GETNXT uses program breaks to 
determine where to issue a START macro-type 
instruction. This indicates where in the 
object-time coding the first executable 
instruction is generated. The Procedure 
Division, Start Declaratives, and End 
Declaratives breaks are used for this. 

If no Start Declaratives break is 
encountered, routine GETNXT issues the 
Procedure A-text for START immediately 
after finding the Procedure Division break- 
If a Start Declaratives break is 
encountered, the START Procedure A-text is 
issued after the End Declaratives break has 
been found - 

Because the coding for a START macro is 
always the same, this A-text is generated 
from Constant A-text, which is described 
later in this chapter. 



VERB STRINGS 



The P2-text for a verb string consists 
of a verb followed by from one to five 
operands. Any operands beyond the fifth 
have been placed into one or more 
continuation strings by phase 40; the first 
operand of the first string is the COBOL 
word FIRST, and the last element of the 
last string is the COBOL word LAST. 

Once routine PH5CTL has established that 
an element of P2-text is a verb string, it 
moves the operands into work areas labeled 
DOPl through D0P5 (hereafter, a reference 
to a DOP is a reference to one of these 
work areas). The verb code for the verb 
currently being processed is moved into a 
cell called GANLNO, where it is kept until 
overlaid by the next verb code. 

The PH5CTL routine then calls routine 
XIS31, which determines whether any of the 
operands are subscripted or indexed 
data-names. If one is, the pointer to the 
desired occurrence has already been 
computed in phase 50 '(subscripts and 
indexes are resolved by processing 
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SUBSCRIPT verb strings, which always 
precede the verb string in which they are 
referenced; see the section "Resolving 
Subscripted and Indexed References" later 
in this chapter) . Routine XIS31 changes 
the idk field in the DOP from a subscripted 
or indexed reference to a data-name 
reference (idk represents addressing 
parameters; they are described fully in 
"Section 5. Data Areas" under the 
addressing parameters field of the LD 
dictionary entry) . 

Upon return, routine PH5CTL checks to 
see whether the verb string is one that is 
to be processed by phase 50. Verb strings 
processed by phase 50 include: 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

EXPONENTIATION 

Numeric IF 

Numeric HOVE 

SEARCH 

EVAL 

STORE 

SUBSCRIPT 

EQUATE, when in SEARCH ALL 

END OP, when in SEARCH ALL 



verb, but there are a few cases of overlap. 
For example, all arithmetic verbs use parts 
of a processor known as the arithmetic 
translator. 

The illustrations in this chapter show 
P2-text strings as a verb followed by 
data-names, and Procedure A-text elements 
as assembler language instructions. These 
are simplifications for the reader; the 
texts actually contain codes rather than 
verbs, and the P2-text for data-names 
contains the dictionary attributes of the 
item, rather than its name. The actual 
text formats, including the codes, are 
shown in "Section 5. Data Areas.". 

Note: When phases 50 and 51 use registers 
14 and 15 in their generated instructions. 
Procedure A-text DESTROY and RESERVE 
elements are passed to phase 60 or to 
phases 62, 6 3, and 64. The purpose of the 
DESTROY element is to indicate that the 
contents of the registers are not to be 
relied upon any longer. The purpose of the 
RESERVE element is to indicate that the 
register may not be used by phase 60 or by 
phases 62, 63, and 64 in the generated code 
until a FREE element for that register, 
issued by phase 50 or 51, is read. 



The last five are verb strings created 
by phase 40. If the verb is one of those 
listed, an appropriate verb processor is 
called. Otherwise, routine PH5BVB is 
called, which performs some checking of 
phase 51 verb strings before passing them 
as P2-text to phase 51. (See "Handling 
Phase 51 Verb Strings" in this chapter.) 

Note: The PH5CTL routine distinguishes 
between numeric and nonnumeric IF and MOVE 
verb strings as follows: the numeric IF 
verb has a different verb code from the 
nonnumeric IF. For all MOVE strings, 
control is given to the numeric MOVE 
analyzer; if this routine finds nonnumeric 
operands, it returns control to routine 
PH5CTL with an indication that such is the 
case. 



VERB PROCESSING 



From the verb code, routine PH5CTL 
determines which verb analyzer to call. If 
the SYMDMP or STATE option is in effect, 
phase 50 generates a call to the 
object-time COBOL library debugging 
subroutine ILBDDBG4 before the code to call 
any other object -time subroutine. For 
details on the object-time subroutines, see 
the publication, IBM DOS/VS COBOL 
Subroutine Library > Program Logic > Order 
No. LY28-6 424. In general, there is a 
specific routine to analyze each COBOL 



RESOLVING SUBSCRIPTED AND INDEXED 
REFERENCES 



This section describes the processing of 
the SUBSCRIPT verb string. It shows how 
subscripted addresses are calculated and 
how the XSSNT and XSCRPT tables are used to 
eliminate duplicate calculation . Then the 
handling of indexes (which are very similar 
to subscripts and use the same tables) is 
discussed. 



Calculating Subscripted Addresses 



To refer to a subscripted item, the 
object program must know the displacement 
in bytes of the desired occurrence from the 
beginning of the subscripted field. To 
calculate this displacement, the following 
must be known: 

• The number of bytes in the entire 
subscripted field. 

• The relative position in the field of 
the desired occurrence. 

The size of the field is known from the 
Data Division description of the field, 
including the PICTURE clause of the 
elementary item. The relative position is 
known from the value of the subscripts. 
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The examples which follow show three 
levels of subscripting. The same concepts 
(and the same formula) apply to one or two 
levels of subscripting. 



The formula used to calculate a 
subscripted address is: 



(subscript 1*length1) + (subscript2*length2) 
+ (subscript3*length3) 
- (length 1+length2-»-length^3) 



This formula is used whether the 
calculation is done in phase 50 or in the 
object program. 



The following discussions use examples 
based on this entry in the Data Division: 

02 FIELD OCCURS 10 TIMES. 

03 SUBFIELD OCCURS 10 TIMES. 

04 ITEM OCCURS 10 TIMES PICTURE XX. 



Literal Subscripts 



When all the subscripts in a reference 
are literals, the subscripted address can 
be calculated at compile time (the 
calculation is done by routine XSCOMP) . If 
a reference is made to ITEM (9, 8, 7) , the 
calculation is: 

(9*200) + (8*20) + (7*2) - (200+20+2) 

The value of the result is the displacement 
in bytes of ITEM (9, 8, 7) from the 
beginning of the subscripted field. 

When the SUBSCRIPT string was first 
encountered, an entry was made for it in 
the XSCRPT table (how and why this table is 
built is described more fully later in this 
section) . One field of the entry, called 
the idk field, contains a code, i, a 
displacement, d, and a base locator (BL) 
number, k. (For a description of BLs, see 
"Appendix B. Object Module") The value of 
d is the displacement away from the BL of 
the beginning of the subscripted field. 
After the formula has been calculated, the 
results are added to d. If this value is 
less than 4096, it becomes the new value of 
d. If it is 4096 or greater, it is 
decremented by 4096; this decremented value 
is then placed in the d field of the XSCRPT 
table entry, and the BL number is 
incremented by one. The table entry now 
points to the desired occurrence at 
execution time. 



Data-name Subscripts 



When the subscripts are data-names, 
their values vary at execution time. 
Therefore, code must be generated to 
perform the calculations in the object 
program. This is done in routine XSCOMP, 
using the A^text generator. 

Suppose that reference is made to ITEM 
(X, Y, Z) . Routine XSCOMP must first 
determine whether each subscript is binary. 
If not, code must be generated to pick the 
value of the subscript from the data area 
of the object program, move it into a work 
area, and convert the value in the work 
area to binary. It is then handled as a 
binary subscript, using the value in the 
work area rather than the data area. 

The generated code performs the 
following actions at execution time : 

1. The value of d in the XSCRPT table 

(the address of the subscripted field) 
is loaded into a register. 

2. The first subscript, in binary, (X in 
the example) is loaded into another 
register. This subscript denotes the 
desired occurrence number for FIELD, 
the highest level in the hierarchy. 
If FIELD is of constant length (that 
is, if it does not contain the 
DEPENDING ON option) , the value of X 
in the register is multiplied by a 
literal representing the length of 
FIELD (200 bytes) . If FIELD does 
contain the DEPENDING ON option, a 
value, instead of the literal, is 
picked up from a VLC (variable-length 
cell) where it was placed by a 
0-routine. This value represents the 
current length of FIELD. 

3. The result of this multiplication is 
added to the value of d in the first 
register, and this process is repeated 
for each subscript. 

4. Phase 50 has generated a literal 

(referred to in this discussion as 
LITX) whose value is: 

length of FIELD + length of 
SUBFIELD + length of ITEM 

5. When the multiplications have been 
finished and the final increment has 
been added to the address in the 
register, this literal is subtracted 
from the register and the result is 
the address of the desired occurrence. 

This computation is an exact duplicate 
at execution time of the formula applied to 
literal subscripts at compile time. 
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Mixed Literal and Data-name Subscripts 



When the subscripts are mixed literals 
and data-names, for example, ITEM (X, 4, 
Z) , part of the calculation can be done in 
phase 50 to save time in the object 
program. XSCOMP multiplies the literal 
subscript by the length of the field it 
refers to. In the example, this is 4*20 
(SDBFIELD is 20 bytes long) . This result 
is subtracted from LITX before A-text for 
LITX is generated. Then, at execution 
time, the multiplications and additions 
will be performed for X and Z and this new 
value of LITX will be subtracted. 



Note that, in order to arrive at a 
meaningful value, the entire formula must 
be evaluated. The intermediate results are 
meaningless in themselves. 



Usincr and Optimizing Subscript References 



Part of the use of the XSCRPT table is 
to avoid duplicate calculations for a 
subscripted reference. For example, 
consider the source statements: 

PARAGPAPH1. MOVE ITEM (X, Y, Z) TO D . 
ADD ITEM (X, Y, Z) TO E. 

It is unnecessary to calculate the address 
of ITEM (X, Y, Z) twice. Later, when the 
ADD statement is exrecuted, the correct 
address will already be in a register. 



The P2'-text for these statements would 



be: 



After the SUBSCRIPT string has been 
processed, the MOVE string is encountered. 
Routine XIS31 (also called XSUDB3) searches 
the XSSNT table for SSID1. It uses the 
pointer in the XSSNT table to pick up the 
idk field in the XSCRPT table. This field 
replaces SSID1 in the DOP, and when the 
verb is processed, the operand is treated 
as though it were a data-name. 

The XSSNT entry for SSID1 is now 
deleted, since it will never again be 
referenced. This is because phase 40 gave 
a unique number to each subscript 
identifier. 

When the second SUBSCRIPT string is 
encountered, the XSCRPT table is searched 
for a match. The search is made on total 
entry length (if this does not match, the 
entries cannot be identical) . When the 
match is found, an XSSNT entry is made for 
SSID2, with a pointer to the same XSCRPT 
entry as for SSID1. 

If there are not enough registers for 
the subscripted address to remain in a 
register for the second time it is 
referenced, code is generated before the 
register is used to store the address in a 
subscript save cell. An indication of 
this, along with cell number, is placed in 
the XSCRPT entry, so that the second time 
the address is needed, the contents of the 
cell can be loaded into another register. 
The section "Register and Storage 
Allocation" later in this chapter describes 
how values in registers are saved. 

Every time a PN, GN, or VN definition is 
encountered in the P2-text, the entire 
XSCRPT table must be deleted. The reason 
is shown by the following source program 
statements: 



PNl. SUBSCRIPT (5) ITEM X Y Z SSID1 
MOVE (2) SSID1 D 

SUBSCRIPT (5) ITEM X Y Z SSID2 
ADD (2) SSID2 E 

When the first SUBSCRIPT string is 
encountered, the XSCRPT table is searched 
for a matching entry. None is found, so an 
entry is made after the instructions for 
the subscript calculations have been 
generated. This entry includes the idk 
field described earlier and the dictionary 
pointers for ITEM and all the subscripts. 
(Note that the dictionary pointer is used 
only because it provides a unique 
identifier. The value of the pointer 
itself is meaningless.) There is also a 
field for the total length of the entry. 

An entry is also made in the XSSNT 
table. This entry includes the subscript 
number (SSID1) and a pointer to the XSCRPT 
entry. 



PARAGRAPE2. 



ON 2 AND EVERY 2 GO TO 

PARAGRAPH2. 

MOVE ITEM (X, Y, Z) TO D. 

ADD ITEM (X, Y, Z) TO E. 



In this example, if PARAGRAPH2 is 
entered through the branch in the ON 
statement, the subscript calculations 
generated for the MOVE will not have been 
executed, and the register will contain 
whatever value was left from the last time 
it was used. Therefore, the calculation 
must be performed in PARAGRAPH2. Deleting 
all the entries .in the XSCRPT table 
whenever a paragraph-name is encountered 
assures that the code will be generated. 

The XSCRPT table must also be deleted 
when any verb is encountered which can pass 
control to any point other than the next 
sequential instruction. An example of such 
a verb is a SORT verb or a VSAM verb. 
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INDEXED REFERENCES 



Indexed references are resolved by the 
same routines, applying the same logic, as 
subscripted references. The difference in 
their handling occurs because index-name 
values are never known at compile time, and 
because, at execution time, the index-name 
cells (each index-name is a one-word cell 
in the TGT) contain values expressing a 
displacement in bytes from the beginning of 
the indexed field. The value in the cell 
corresponds to the following formula: 



(occurrence number - 
elementary item 



1) * length of 



It is the responsibility of the source 
programmer to set the value in the 
index-name via a SET statement before an 
indexed reference is made. 

Indexing may be direct or indirect. 
Direct indexing uses only index-names. 
Indirect indexing uses literals as 
increments or decrements. Given the Data 
Division statements: 

02 FIELD OCCURS 10 TIMES INDEXED BY A. 
03 SUBFIELD OCCURS 10 TIMES INDEXED BY B. 
04 ITEM OCCURS 10 TIMES INDEXED BY C 
PICTURE XX. 

a reference to ITEM (A, B, C) would be 
direct indexing, and a reference to ITEM 
(A+4, B-5, C+6) would be indirect indexing. 

Direct Indexing : The P2-text contains a 
SUBSCRIPT verb string with a special code 
in the operands to indicate that they are 
index-names rather than subscripts. 
Entries in the XSCRPT and XSSNT tables are 
made and used in the same way as for 
subscripted references. Object code is 
generated to place the value of d from the 
idk field into a register and add the 
values of all the index-names to it. 

Indirect Indexing ; Routine SSCRPT 
determines that there are literals in the 
SUBSCRIPT string. These literals are 
placed in an information gathering work 
area. When the XSCRPT entry is made for 
the indexed reference, the dictionary 
pointers are not entered, in order to 
prevent a match from being found. This is 
necessary for possibilities such as the 
following: 

MOVE ITEM (A+4, B-5, C+6) TO D. 
MOVE ITEM (A, B, C) TO E. 

If a normal XSCRPT entry was made for the 
first statement, the dictionary pointers 
would be identical and the second statement 
would use the register set up by the first. 
Since the indexing does not point to the 



same place, the operation would be 
incorrect. 

After routine XSCOMP has generated the 
code to add the index-names (as described 
earlier under "Direct Indexing") , it tests 
the information gathering work area. When 
literals are present, it generates 
additional instructions. These 
instructions load the literal into a free 
register, multiply the register by the 
length in the VLC for that level (in the 
example, the literal 4 would be multiplied 
by 200) , and add this value to the register 
pointing to the indexed field (this 
register has already been incremented by 
the index-name values) . This process is 
repeated for every literal . The 
multiplication must be done because the 
literals, unlike the index-names, represent 
occurrence numbers, not displacements in 
bytes. 



JiRITHMETIC VERB STRINGS 



The Arithmetic Translator is a group of 
verb analyzers used to process arithmetic 
verb strings. It is also used for all MOVE 
statements and IF statements processed by 
phase 50 . 

Given the source program statement: 

COMPUTE X=A+ (C-D/E) *F-G 

the following P2-text would be generated by 
phase 40 : 

EVAL DMAX DCURRENT X . . . 
DIV E D IR1 (-C) 
SUB IR1 C IR2 (*F) 
MULT F IR2 IR3 (+A) 
ADD IR3 A IR4 (-G) 
SUB G IR4 IRS (ST X) 
STORE IR5 X 

For each verb string, the Arithmetic 
Translator routines do the following: 

1* Place information about each operand 
in a work area. 

2. Determine the sizes of intermediate 
and temporary fields, and check for 
possible overflow by performing 
com pile-time arithmetic. 

3. Determine the mode for the operation. 

4. Allocate registers and temporary 
storage for the operation. 

5. Call the A-text Generator (described 
later in this chapter) to produce the 
Procedure A-text. 
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Work Area 



For each operand in a string, a work 
area called an operand information buffer 
is set up. There are three types of 
operands: 

1. Data-name operands. In the example ^ 
all the operands named in the source 
program COMPUTE statement are 
data-name operands. 

2. Intermediate results. In the example, 
these include all the operands named 
with IR. Intermediate results are 
required because arithmetic machine 
instructions can handle only two 
operands at a time. The result of one 
arithmetic operation becomes an IR , 
which is then used as an operand of 
the next operation. 

3. Temporary results. These are used by 
series addition and subtraction with 
multiple receiving fields. For the 
source statement: 

ADD M, N, TO P ROUNDED, 

a temporary result is required to hold 
the sum of M, N, and 0. 



Each operand information buffer holds 
information similar to an entry in the 
table XINTR. This includes such attributes 
as the mode of the operand, the number of 
digits to the left and right of the decimal 
point, and the largest possible value of 
the operand. (The format of table XINTR is 
given in "Section 5. Data Areas".) For a 
data-name operand, these attributes are 
found in the P2-text element. For 
intermediate results or temporary results, 
the information is found in table XINTR, 
when the operand is used in the operation. 
It was placed in the table after processing 
of the string in which the intermediate or 
temporary result was created . The 
attributes for the intermediate result that 
is the result of the operation are filled 
in after the processing of the operands 
which form it (how the attributes are found 
is discussed in this section under 
"Compile-Time Arithmetic") . When the MULT 
string is processed, in the COMPUTE 
statement example above, IR2 is found in 
table XINTR.' The attributes of IR3 are 
determined during processing of the MULT 
string^ and IRS is then used as an operand 
of the ADD string which follows. 

If any of the operands are 
floating-point, the floating-point verb 
analyzer is called immediately to generate 
the Procedure A-text. Otherwise, 
compile-time arithmetic is performed. 



Note: The operand information buffers are 
defined on the same storage as the data 
area for the SUBSCRIPT analyzer. 



Compile-Time Arithmetic 



Compile-time arithmetic is performed 
with the maximum possible values of the 
operands (9 in every digit place) to find 
out if overflow is possible and to 
determine how many places are required to 
hold the intermediate or temporary result. 

For example, assume that for the string 
ADD IPS A IRU (-G) , the attributes of A 
show that it has a PICTURE of 9 9V9 and the 
attributes of IRS (from table XINTR) show 
that it has a PICTURE of 9(3)V9(2). The 
compile-time arithmetic for the maximum 
value of the scaled operands is: 

9990+99999=109989 

The result determines the attributes 
(including the maximum possible value) of 
IRU, which are placed in table XINTR at the 
end of the ADD processing. 

If the intermediate result (IR4 in this 
case) exceeds or is equal to 10**S0, 
overflow is possible. To avoid overflow, 
instructions are generated to truncate the 
intermediate result down to SO digits. 

That is, let DMAX be the maximum number 
of decimal places in any operand in the 
source statement, let DIR be the number of 
decimal places in the intermediate result, 
and let IIR be the number of integer places 
in the intermediate result. Then the rules 
for truncation are: 

1. If DIP exceeds DMAX and IIR+DMAX is 
less than or equal to SO, then 
low-order decimal places are truncated 
from DIR until IIR+DIR=SO. 

2. If DIR exceeds DMAX and IIR+DMAX is 
greater than 30, then low-order 
decimal places are truncated from DIR 
until it equals DMAX, and high-order 
integer places are truncated from IIR 
until DMAX+IIR=30. 



Mode of Operation 



The mode of the operands determines the 
mode of operation. In general, the mode of 
operation is predetermined (for example, if 
one of the operands is floating-point, all 
of the operands are converted to 
floating-point and the operation is in 
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floating-point) . However , for operations 
involving binary and internal decimal 
operands^ routine XHSMD is used to perform 
some tests to determine whether the 
operation is to be in binary or in internal 
decimal. 

if any of the operands is external 
decimal, it is converted to internal 
decimal unless it is in a MOVE statement. 
If an operand is sterling nonreport, it is 
converted to internal decimal unless it is 
the target field of a MOVE or STORE verb. 

If any conversions are required, they 
are handled by in-line conversion or calls 
to COBOL library subroutines, depending on 
the complexity of the conversion. See the 
publication IBM DOS/VS COBOL Subroutine 
Library^ Program Logic , Order 
No. LY28-642'I. 



Register and Storage Allocation 



To assign registers for an instruction, 
special register handling routines are 
used. These are: 

XRSASG to assign a single register 
XRDBIR to assign a register pair 
XRSASF to assign a floating-point 
register 

Phase 50 maintains an internal table for 
registers through 5, which are the 
arithmetic work registers of the object 
program. Each table entry contains a flag 
indicating whether the register is being 
used, how it is being used (for example, as 
one of a pair) , and what it contains (such 
as a subscript or index calculation, or an 
intermediate result) . 

If a register must be freed, routine 
XFREER is called. The calling routine 
passes the number of the register to be 
freed to XFREER in the XREGNO cell of the 
phase 50 data area. (XFREER is also used 
by phase 50 when it is analyzing Phase 51 
verbs; see "Handling Phase 51 Verb 
Strings.") If registers through 5 must 
be freed, routine DFREER is called. 

XFREER checks the register table entry 
for the specified register and, if it is in 
use, generates instructions to store it. 
It must then indicate that the value 
formerly in the register is no longer 
there. If the register was being used for 
an arithmetic operation, it updates the 
operand information buffer by filling in 
the number of the TS (execution-time 
arithmetic temporary storage) cell where 
the register contents are stored, and the 
displacement of the cell in bytes from the 



beginning of the TS area. If the value in 
the register was a subscript, XFREER 
changes the code of the idk (addressing 
parameter) field in the XSCRPT table entry 
(see "Using and Optimizing Subscript 
References" earlier in this chapter) to 
indicate that the value is in a subscript 
save cell, and provides the cell number. 
Subscript save cells are assigned in the 
SUBADR field of the Task Global Table (TGT) 
during program execution. 



Operations in binary are performed in 
registers, and the intermediate results are 
left there whenever possible . Decimal 
operations are performed in storage, and 
the intermediate results are placed in 
cells of the TS area. 



Space in the TS is always allotted in 
cells of eight bytes, regardless of how 
many bytes are actually required to hold 
the operand. <If more than eight bytes are 
needed, two cells are allotted.) To 
minimize total temporary storage area used 
by the program, each TS cell is made 
available as soon as the value in it is no 
longer. needed. 



TS cells for arithmetic operations are 
assigned by using the counter TSMAX in 
COMMON (for the format of COMMON, see 
"Section 5. Data Areas") . TSMAX contains 
the number of the highest numbered cell 
that has been assigned. When a new TS cell 
is assigned, this counter is incremented by 
one. As soon as the value in the TS cell 
is no longer needed, the cell number is 
placed in table XAVAL. The next time a TS 
cell is required, XAVAL is searched first; 
if it has any entries, the cell found there 
is used, and the XAVAL entry is deleted. 
Only if table XAVAL is empty is a new TS 
cell assigned from TSMAX. 



Intermediate results are handled in such 
a way that, as soon as possible after an 
intermediate result has been computed, it 
is used in the next computation and then no 
longer needed. In the COMPUTE statement 
shown earlier, for example, IR3 is the 
result of the MULT operation and then is 
immediately used as an operand of the ADD. 



Note that an intermediate result is also 
reguired after the last arithmetic 
operation (IR5 in the example) and that the 
value is moved into the data-name result 
(X) via the STORE verb. This is necessary 
because the value may have to be converted, 
truncated, or aligned to conform to the 
format for X. 
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A temporary result, on the other hand, 
must be saved until all operations 
requiring it are finished. In the 
statement: 

ADD M, N, O TO P ROUNDED, Q 

the temporary result (the sum of M, N, and 
O) is first added to P and then added to Q. 
All steps involving P (rounding, 
truncation, or conversion, if needed) are 
completed before the temporary result is 
added to Q. When the temporary result is 
added to P, its value is moved into another 
cell of the TS, and the operation is 
performed from that cell. 



Generating SRP Machine Instructions 



If, at any time during processing for 
arithmetic verbs, scaling becomes 
necessary, the SRP machine instruction is 
generated to do left scaling or right 
scaling when the number of places to be 
shifted is even. If rounding of a number 
is requested, the SRP machine instruction 
is generated. 



virtual and literal definitions. It is 
used frequently by the Arithmetic 
Translator and by other analyzers requiring 
the generation of A-text too variable to be 
stored as Constant or Direct A-text. 



To call the A-text Generator, the verb 
analyzer fills in the appropriate cells in 
the parameter area (Figure 45) and calls a 
particular generating routine. The 
generating routine usually has the same 
name as the instruction it produces (for 
example^ MVC, LOAD). The A-text Generator 
has no common entry point - 



Before returning to the caller, the 
generating routine sets the entire 
parameter area to zeros. 

From the parameter information, the 
generating routine determines exactly what 
type of instruction to write. For example, 
if the LOAD routine finds that the only 
operands specified are two registers, it 
writes an LR instruction. If a nonregister 
operand is two bytes long, the generating 
routine generates an LH. 



GENERATING A-TEXT 



LITERALS AND VIRTUALS 



A-text is generated from three sources: 
Constant A-text, Direct A-text, and the 
A-text Generator. The nature of the text 
required determines which source is used to 
generate a particular block of text. 

Constant A-text: This type of Procedure 
A-text resides in the phase 50 data area. 
It is stored in the form of DCs, ready to 
be written out when needed. It is used for 
standard, frequently occurring 
execution-time operations, such as START. 

Direct A-text: This is generally 
written as a block of instructions at a 
time. It is written out by routine GATXTV, 
which is called by the verb analyzers using 
two parameters: 

• Displacement of the desired block of 
text from the beginning of the text 
area 

• Length of text to be written 

The verb analyzer fills in the variable 
fields before calling GATXTV. 

A-text Generator: The A-text Generator 
is called by a verb analyzer to write one 
instruction of Procedure A-text at a time. 
It also generates Optimization A-text for 



The A-text Generator does not include 
literals and virtuals in the Procedure 
A-text. Rather, it writes the virtual with 
an Optimization A-text prefix on SYS002 and 
writes the literal as Optimization A-text 
on SYS003. At execution time, virtuals and 
literals are stored in the Program Global 
Table. By processing Optimization A-text, 
phase 6 or 62 can eliminate duplicate 
storage if the same virtual or literal is 
used more than once. 

For virtuals, the A-text Generator 
assigns an identifying number to the 
virtual and writes the number as Procedure 
A-text. The virtual itself is then written 
with an Optimization A-text prefix on 
SYS002, along with its identifying number. 

Virtual identifying numbers are assigned 
from the VIRCTR cell of COMMON. This 
counter is initialized to 1 in phase 00. 
It is incremented by 1 at phase 50 
initialization because virtual 1 (MNSO) is 
reserved. The counter is also incremented 
to indicate the number of virtuals required 
by the options that are in effect. Each 
virtual and the options for which it is 
required are listed below. Although more 
than one option may require the same 
virtual, the virtual appears only once. 
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Options that 


Virtual 


require the virtual 


DBGO 


COUNT, FLOW, STATE, SYMDMP 


DBG 5 


SYMDMP 


FLWO 


FLOW 


STNO 


STATE 


CTIO 


COUNT 



TCOO 



COUNT 



The total number of virtuals processed by 
phase 50 is equal to the number of virtuals 
required by the options in the above list 
plus one for MNSO. At the end of phase 50 
initialization^ the value in VIRCTR is one 
greater than the total number of virtuals 
processed by the phase. Within phase 50, 
whenever a new virtual is needed, the 
current value of VIRCTR is used as the 
virtual number,, and then the counter is 
incremented. At the end of phase 51, the 
counter is decremented by 1. (VIRCTR is 



the only counter in COMMON handled in this 
manner. For all other counters, the value 
of the counter is incremented before being 
used. ) 



When a literal reference is required, 
the Procedure A-text element contains a 
code and a counter. The literal itself is 
put out as Optimization A-text, and the 
LTLCTR counter of COMMON is incremented. 
An identifying number is assigned to the 
literal, so that phase 60 or 64 can 
determine which literal reference applies 
to a given literal. 

During phase 50 processing, the 
Optimization A-text for a literal 
definition is written on file SYS003; all 
other output from phase 50 is written on 
file SYS002. 



Parameter Cells for the A-text Generator 



"T" 



H 



Name 



Operand-1 Parameters 



Meaning 



Length 
(Bytes) 



Element 



Name 



Operand- 2 Parameters 

■T 

I Meaning 



OPl I Pointer to the DOP j 4 j Address 

(storage cell in the | [reference 

phase for a data-name 

operand 

XLl j Length of operand (used 
for SS instructions such 
as EX, MVC, AP) . The 
routine which generates 
the text decrements this 
value by 1 before using 
it, as required by these 
instructions. 

XWCl I For arithmetic operands, 
specifies the operand's 
position in the TEMPORARY 
STORAGE field of the TGT. 
TEMPORARY STORAGE is used 
for arithmetic operands 
only. 

Bytes 1 and 2: 
Displacement of the 
8-byte slot containing 
this operand from the 
beginning of the 
TEMPORARY STORAGE field. 

Byte 3: Number of bytes 
actually required by the 
operation. TEMPORARY 
STORAGE is always 
assigned in slots of 8 
bytes, but frequently an 
arithmetic operand is 
shorter^ using only a few| 
of the low-order bytes. 

L J. ± X 

Figure 45. Parameter Cells for the A-Text Generator 



OP 2 



XL2 



XWC2 



Same for second operand- 



Length of second 
operand (for SS in- 
structions with two 
lengths, such as AP, 
SP, ZAP). The 
generating routine 
decrements value by 1. 



Same for second operand. 



X 

(Part 1 



J. 

of 4) 
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Parameter Cells for the A-text Generator 



T r 

Length 



T- 



Operand-1 Parameters 



Name 



Meaning 



(Bytes) 



Element 



Operand-2 Parameters 



Name 



Meaning 



TALLY 1 
BDISP1 

RELAD1 



VIRTC1 



GVIRT1 



XC0N1 



First operand is TALLY. 

Base (specifies a 
register number) and 
displacement of operand. 
Operand is referenced by 
its relative location 
within a field. 

Byte 1 : Code indicating 
the type of cell being 
referenced (the codes are 
listed under "Relative 
Address Element" in the 
Procedure A-text formats , 
given in "Section 5. 
Data Areas") . 

Byte 2: Number of bytes 
needed to express the 
address constant. 

Bytes 3 and 4: 
Identifying number which 
pinpoints this cell 
within its field. 

Identifying number 
assigned from VIRCTR when 
the operand is a virtual. 
The number begins in byte 
3. 

Name of virtual (used 
with VIRTCR) . 

Used for two distinct 
types of information: 

A) Operand is a literal 

Bytes 1-16: value of 
literal^ right adjusted 

Byte 17: length of 
literal 

B) Operand is a DC-type 
constant other than an 
address constant 

Byte 1 : length of 
constant 

Bytes 2-17: value of 
constant, left adjusted 



17 



Base and 
displacement 

Relative 
address 



TALLY2 
BDISP2 

RELAD2 



Second operand is TALLY. 
Same for second operand. 

Unused. 



Virtual 
reference 



Literal 
reference 



VIRTC2 



GVIRT2 



XC0N2 



Unused. 



Unused. 



Same for second operand. 



Figure 45. Parameter Cells for the A-Text Generator (Part 2 of 4) 
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Parameter Cells for the A-text Generator 



1 r 

Length 



Operand-1 Parameters 



Name 



Meaning 



(Bytes) 



Element 



Operand-2 Parameters 



Name 



Meaning 



XGN1 



XPN1 



XCNTR1 



PLDS1 



XVN1 



BDEBG1 



BLREF1 



GN number when operand is 
a GN reference. 

Operand is a PN reference 

Byte 1: code 00 

Byte 2: priority number 
of PN 

Bytes 3 and U: PN number 

Operand is an item in one 
of the variably located 
fields of a global table. 
Byte 1 : type code (the 
codes are listed under 
"Global Table Other Area 
Reference" in the 
Procedure A-text formats , 
given in "Section 5. 
Data Areas") . 

Displacement from 
beginning of allocated 
storage of a 
right-adjusted operand. 

Operand is a VN reference 

Byte 1: code 00 

Byte 2: priority number 

Bytes 3 and 4 : VN number 

Operand is an item in a 
fixed-location field of 
a global table. 

Byte 1 : type code (the 
codes are listed under 
"Global Table Standard 
Area Reference" in the 
Procedure A-text formats, 
given in "Section 5. 
Data Areas") . 

Operand is a base locator 

Byte 1 : type of base 
locator; BL, BLL, SBL 
(•i» field of idk) 

Byte 2: BL number 



Generated pro- 
cedure-name 
reference 
Procedure-name 



XGN2 



XPN2 



Same for second operand. 



Same for second operand. 



Global table 
variably 
located area 
reference 



XCNTR2 



Same for second operand 



PLUS2 



Same for second operand 



Variable 

procedure-name 

reference 



Global table 
standard area 
reference 



GDEBG2 



Same for second operand. 



Base locator 



BLREF2 



Unused. 



Figure 45. Parameter Cells for the A-Text Generator (Part 3 of 4) 
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Parameter Cells for the A-text Generator 



T r 

Length 



Operand-1 Parameters 



Name | 



Meaning 



1 

XREG1 I Register number if first 
{operand is a register. 
I Note ; When this is used, 
I the second operand 
I (unless it is a register 
I also) is still considered 
I the first nonregister 
{operand and is placed in 
I the operand-1 cell. 

I 
IKM {Immediate field value for 
{an SI instruction. 

{ 

XXREG {Register number for index 
{register in an RX 
{instruction. 



(Bytes) 



Element 



Operand-2 Parameters 



lame 



Meaning 



XREG2 



Register number for 
second register, in an 
RR instruction. 



Figure 45. Parameter Cells for the A-Text Generator (Part 4 of 4) 



HANDLING PHASE 51 VERB STRINGS 



Once the PH5CTL routine has determined 
that a verb string is not one of those 
processed by phase 50^ it calls routine 
PH5EVB to handle the verb string. 

The PH5BVB routine first checks to see 
if the verb is one that will use registers 
through 5 at execution time. If it is, 
routine DFREER is called to free registers. 
(DFREER is described in "Register and 
Storage Allocation" earlier in this 
chapter.) 

Routine PH5BVB then writes the header 
and operands of the verb string in file 
SYS002 as P2-text. Then it determines 
whether the verb is MOVE, EXAMINE, or 
TRANSFER. If it is one of these, routine 
XSPRO is called. This routine checks to 
see whether there is an object of an OCCURS 
clause with the DEPENDING ON option in the 
data-name being moved into, examined, 
transferred, or read into, in which case it 
generates calls to Q-routines. 

Finally, routine PE5BVB determines 
whether the verb is one that requires 
deletion of all the entries in the XSCRPT 
table. These verbs include: 



If the verb is one of the above, routine 
KILSDB is called to delete the XSCRPT table 
entries. 



CALL 


READ 


LINK 


WRITE 


ENTRY 


REWRITE 


SORT 


RPTCAL 


OPEN 


RELEASE 


CLOSE 


ON 


ACCEPT 


STOP 


RETURN 





ADDITIONAL PROCESSING FOR THE OPTIMIZER 
OPTION (OPT) 



If OPT is specified on the CBL card, 
phase 50 performs the following additional 
functions: 



Converts phase 40 Optimization 
Information elements (43XX) to phase 50 
Optimization Information elements 
(COXX) . 



Primes and zeros out the BLUSTBL table 
for the number of BLs and BLLs present 
in the program. For each reference to 
a data-name, it adds 1 to the entry for 
that BL or BLL. This usage table is 
used by phase 62 to assign permanent 
base registers to the BLs and BLLs. 
Phase 51 also updates the BLUSTBL 
table. 



Writes GNUREF elements for Q-Routine 
calls. 
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PHASE 51 



Phase 51 (ILACBL51) functions in a 
manner similar to phase 50. Elements of 
text written by phase 50 are read from file 
SYS002. Phase 51 checks each element and 
performs whatever processing is required, 
based on the type of element read. After 
processing, it writes the element as 
Procedure A-text on file SYS001, as 
Optimization A-text on file SYS003, or as 
E-text on file SYS004. (Optimization 
A-text is written immediately after any 
Optimization A-text that was written on 
file SYS003 by phase 50.) 

Input to Phase 51 can be any of the 
following: 

Intermediate Procedure A-text 
Intermediate Optimization A-text 
Verb strings 
Intermediate E-text 



called ERRSEV. If any E-text was generated 
by Phases 10, 20, 22, or 21, ERRSEV was set 
by Phase 21. Otherwise, it contains a 
value of zero at the beginning of phase 51. 

Routine ERRPRO adds one to the severity 
code of the current E-text element and 
multiplies this value by four (the code 
must be incremented by one because certain 
errors produce a severity code of 0; adding 
one to the severity code distinguishes such 
an error from no errors at all) . 

ERRPRO then compares this value to the 
current value of ERRSEV and enters the code 
of the E-text into ERRSEV if it is higher. 
The E-text is then written on SYS004. Note 
that this is the first time that E-text is 
separated from the other output of a phase, 
rather than embedded in it. 



An element of Intermediate Procedure 
A-text may be a Q-routine control break, or 
it may be text generated by phase 50 and 
requiring no further processing. If it is 
a 6-routine control break, routine GETNXT 
generates the text element of 4440. 
Otherwise, the element is merely copied as 
Procedure A-text output without the 
identifying prefix of 28 and its count 
field. 

An element of Intermediate Optimization 
A-text, identified by a prefix of 27, can 
be a segmentation control break or a PN, 
GN, or VN definition. 

Verb strings written in P2-text require 
processing by one of the phase 51 verb 
analyzer routines. 



E-TEXT 



Whenever it encounters E-text in its 
input or generates an E-text element 
itself, phase 50 writes it on SYS002 with 
an identifying prefix. This text is 
referred to as Intermediate E-text. Phase 
51 recognizes it, discards the prefix, and 
writes the E-text on SYS004. 

Phase 51 must determine the highest 
severity level encountered in the program. 
When routine GETNXT encounters an element 
of E-text or when the phase 51 processing 
routines find an error situation requiring 
that E-text be written, routine ERRPRO is 
called. This routine uses a cell in COMMON 



SEGMENTATION CONTROL BREAKS 



Phase 51 writes Procedure A-text on the 
direct access device SYS001. When phase 60 
or phases 62 and 63 read this text, 
segments must be read and processed in 
order of priority, rather than in the order 
in which the source program wrote them. To 
facilitate this, routine SEGENTR builds a 
table (called SEGTBL) containing the 
relative disk address of the beginning of 
each segment. 

The relative disk addresses are obtained 
through phase 00 (note that phase 00 
handles all input/output requests for the 
other phases) . When phase 00 writes 
Procedure A-text for the first physical 
record of a segment, after the CHECK has 
been issued for that WRITE, it issues a 
NOTE macro instruction. The NOTE macro 
instruction returns the relative disk 
address of the record just written, which 
is saved in SEGSAVE, a cell internal to 
phase 00. ( 

The segmentation cpntrol break 
encountered by phase 51 signals the end of 
one segment and the beginning of a segment 
with a different priority. Routine GETNXT 
calls phase 00 with a request for the 
SEGNOTE function (for, a description of the 
calling sequence and parameters, see "Phase 
Input/Output Requests" in the chapter on 
phase 00) . To complete the output for the 
previous segment. Phase 00 writes whatever 
is left in the buffer, and passes back to 
phase 51 the value in SEGSAVE. Phase 51 
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stores this as an entry in SEGTBL^ along 
with the priority number of the previous 
segment, (For the SEGTBL table format, see 
"Section 5- Data Areas". 

The call to SEGNOTE also indicates to 
Phase 00 that the next time it writes on 
SYSOOlr it will be the beginning of a new 
segment and that another NOTE must be 
issued. 



PN, GN, AND VN DEFINITIONS 



When a PN, GN, or VN definition is 
encountered, routine PUTDEF is called. 
This routine changes the definition to 
Procedure A-text and writes it out. 

For PN definitions, the PN number and 
the priority number are saved before PUTDEF 
is called. For VN definitions, the SEGLMT 
cell in COMMON is tested to see if the 
program is segmented (a value other than 
hexadecimal FF in SEGLMT means the program 
is segmented) . If it is segmented, the VN 
definition is written as both Procedure 
A-text and Optimization A-text, 



Building the PNUTBL Table 



The source programmer may have coded 
some procedure-name definitions to which 
reference is never m.ade- The address cells 
for such procedure-names can be eliminated. 
To do this, routine PNUSED in phase 51 
builds the PNUTBL table for phase 6 or 
phase 62. 

This table contains one bit for every PN 
definition in the program. The size of the 
table is determined from the cell PNCTR in 
COMMON, which was incremented by phase 11 
every time a PN definition was created. 
All bits in the table are initialized to 
zero, and every time a PN is referenced 
throughout phase 51 processing, the bit in 
the table corresponding to the PN number is 
set to one. Phase 6 can thus eliminate 
any PN definitions whose bits are still 
zero. 

In phase 62, the PNUTBL table is used to 
determine if a PN has been referenced. If 
it has not been referenced, no special 
entry point processing is done at the point 
of definition. 



Building PN and GN EQUATE Strings 



VJSRB STRINGS 



It is possible that earlier phases have 
generated more than one GN to define a 
single verb within a procedure statement. 
When this occurs, several GN definition 
elements are encountered in a row without 
any intervening text. If the source 
program included a procedure-name at this 
point, a PN definition also occurs, 
preceded by one or more GN definitions. 
Since only one procedure-name is required 
to provide a branch-in point in the object 
program, the rest can be eliminated. All 
the GNs (and the PNs, if any) are collected 
in a Phase 51 work area called GNLIST, from 
which they are written in Optimization 
A-text as an EQUATE string. In Procedure 
A-text jj only the PN definition is written, 
or if there was none, the first GN 
definition (the one with the lowest number) 
is written. Phase 60 uses the EQUATE 
string to change all references throughout 
the program from the equated GNs to the one 
for which Procedure A-text was issued. 

If OPT has been specified on the CBL 
card, these PN and GN EQUATE strings are 
not written. All PNs and GNs are written 
in Procedure A-text regardless of their 
position. Since no cells in the PGT are 
allocated for their addresses, it is not 
necessary to equate their addresses. They 
are addressed instead by using a 
displacement from a base register. 



Phase 51 processes input/output verbs, 
other nonarithmetic verb strings (including 
some requiring calls to object-time 
subroutines) , and DISPLAY literals. As 
examples, the ON string is discussed below 
under "Other Nonarithmetic Verb Strings" 
and the DISPLAY verb under "Verbs Requiring 
Calls to Object-Time Subroutines," Samples 
of coding are included in those 
discussions- 

If the SYMDMP or the STATE option is in 
effect, a call to the COBOL library Save 
Register 14 routine (ILBDDBG4) ,. is 
generated for all verb analyzers (except 
FLOW and COUNT) which produce code 
branching outside the main line of the 
program. When routine PH5CTL encounters 
the READ, WRITE/REWRITE, OPEN/ CLOSE, 
RETURN, RELEASE, and START verbs, it calls 
routine DBGTEST to generate the call. The 
call is also generated before the code 
generated to call any COBOL object-time 
subroutine or any program which is the 
operand of a CALL statement, and before any 
branch to a Q-Routine, In addition, if the 
verb is a CALL, code is generated, after 
the BALR to the called program, to call the 
COBOL library debugging subroutine entry 
point ILBDDBG3, This is done so that the 
subroutine can update TGT pointers. The 
verb analyzers for GOBACK and STOP RUN 
generate a call to the COBOL library 
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debugging subroutine entry point TC20. For 
a description of the COBOL library 
subroutines see IBM DOS/VS COBOL Subroutine 
Library, Program Logic , Order 
No, LY28-6U24. 



Input/Output Verbs 



of the FEOV macro instruction. For DTFDA 
sequential input files, subroutine ILBDCRDO 
is called to implement volume switching. 
If relative track addressing is used for 
DTFDA sequential input files, subroutine 
ILBDRCRO switches volumes. Additions may 
be made depending on the device and access 
method used. If RERUN is specified, a call 
to ILBDCKPO subroutine is generated. 



Phase 51 generates the object code 
required for the nine input/output verbs 
discussed in this section. There is a \ 
separate verb analyzer routine for each 
verb. Each routine may share several 
subroutines with other analyzers. 

The coding generated is basically the 
required linkage to a LIOCS module, and 
therefore depends on the access method. 
Additionally, the following factors 
influence the coding: the organization of 
the data records, the blocking factor, the 
recording mode, double buffering, use of a 
SAME RECORD AREA clause, inclusion of a 
RERUN clause, use of label records and 
declaratives, and the type of device. For 
examples of the generated coding for the 
nine verbs discussed below, refer to 
Appendix D, 

By convention, the following register 
assignments are used at execution time: Rl 
contains a pointer to the DTF; R2 contains 
lOCS's pointer to the record; R3 contains 
the record size; R15 contains the address 
of the LIOCS module or of the COBOL library 
subroutine called. The nine verbs and 
their descriptions follow. 

OPEN ; The general form of the c6de is the 
expansion of the OPEN macro. Several 
additions may be made depending on the 
device and access method used. The input 
is two strings, the first of which is used 
to generate device-type code and the OPEN 
macro expansion. The second is used to 
generate the device- dependent code needed 
after the file is open. 

If the user has specified the STXIT 
option on the CBL card and has provided an 
error procedure for the unit record file, 
phase 51 includes linkage to COBOL library 
subroutine ILBDABXO in the object module. 
The user routine will then gain control in 
the event of an error on the unit-record 
file being opened, but only if the operator 
replies "cancel" to a system error message 
such as a data check- Phase 51 tests the 
PHZSW2 switch in COMMON to determine 
whether STXIT is in effect. 

CLOSE: The code generated is the expansion 
of the CLOSE macro. CLOSE REEL or CLOSE 
UNIT, for DTFSD files, causes an expansion 



READ ; This verb may cause either of two 
distinct sets of code; a GET macro 
expansion is generated for sequential 
files; a COBOL library subroutine linkage 
is generated for nonsequential files and in 
special cases. 



WRITE ; This verb may cause either of two 
distinct sets of code: a PUT macro 
instruction expansion is generated for 
sequential files; a COBOL library 
subroutine linkage is generated for 
nonsequential files and in special cases. 

Note: For the READ, WRITE, OPEN and CLOSE 
verbs. Procedure A-text BLCHNG elements are 
written. This indicates to phase 60 or to 
phase 6 2, 63, and 64 that if they have 
permanently or temporarily loaded that BL 
or BLL into a register, they must reload 
the register or flag the register as no 
longer containing that BL or BLL. 

SEEK : For direct-access files, the SEEK 
statement results in a CNTRL macro 
expansion. 

START: The START statement for ISAM files 
results in the macro expansion of a SETL 
macro instruction with the KEY parameter or 
GKEY parameter. 



DISPLAY ; The DISPLAY statement results in 
the generated code for a call to the 
DISPLAY subroutine. The calling sequence 
generated is shown in IBM DOS/VS COBOL 
Subroutine Library, Program Logic , Order 
No. LY28-6424. 



ACCEPT; The ACCEPT statement results in 
the generated code for a call to the ACCEPT 
subroutine. The calling sequence generated 
is shown in IBM DOS/VS COBOL Subroutine 
Library, Program Logic , Order 
No. LY28-6a24. 

USE; The USE verb,, on entry to the 
Declaratives Section, generates code which 
sets up fields (pointers) for the 
information requested, such as the address 
of a label or an error block. At the end 
of the section, the code needed to return 
to the object- time subroutine is generated. 
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Other Nonarithmetic Verb Strings 



This section discusses the ON string as 
an example of a nonarithmetic verb string. 



When routine PH5CTL encounters an ON 
string, it moves the operands into a work 
area and calls routine ON to process the 
string. 

The processing depends on the options 
given in the ON statement. In the simplest 
case (ON 1) , instructions are generated to 
test a switch to see if the statement 
completing the ON has been executed and, if 
it has, to branch around this statement. 

Figure 46 shows the Procedure A-text 
produced for an ON statement with an 
initial value, increment, and maximum 
value. The numbers of the following 
explanations refer to the. circled numbers 
in the figure. 

1. GN1 is the generated procedure -name 
assigned to the next sequential source 
program statement. A branch must be 
made to this statement when the ON 
condition is false, that is, in this 
example, when the ON instructions to 
test and increment the counter have 
been executed an odd number of times, 
or more than 16 times. 

2 . This instruction loads the contents of 
0NCTR1 into register 3. 0NCTR1 is the 
identifying number of an ON control 
cell. At execution time, this cell 
will be incremented by one each time 
the ON statement is executed and 
compared with the maximum value, as 
specified in the UNTIL option. 

Phase 51 assigns identifying numbers 
to ON control cells using the ONCTR 
cell in COMMON. At execution time, 
each ON control cell will occupy four 
bytes in the ONCTL field of the Task 
Global Table. 

Registers 1 and 2 are generally used 
in the object program for 
nonarithmetic operatiohs. When a 
nonarithmetic register is needed by a 
phase 51 verb, one will have been 
freed by phase 50 "s issuing of an 
instruction to store its contents in a 
subscript save cell, if necessary. 
(See ''Register and Storage Allocation" 
in the Phase 50 chapter for a fuller 
description of register saving.) 
Subscript save ceil numbers are 
obtained from the SUBCTR cell in 
COMMON. They correspond to SDBADR 
cells in the Task Global Table of the 
object program. The instructions to 



save the registers would precede the 
code generated for the statement. 

3. The literal 16 is not actually issued 
in the Procedure A-text. Rather, a 
literal definition element is issued 
and the literal itself is written as 
Optimization A-text. See "Literals 
and Virtuals" in the phase 50 chapter. 

4. This branch statement transfers 
control to GN1 (the next source 
program statement) when ONCTR 1 
contains a value greater than 16. 

5. This statement causes a branch to GNI 
when ONCTR 1 contains a value which is 
less than 2. 

6. XSASW1 identifies a cell that will 
control the increment (EVERY option) 
of the ON statement at execution time. 
The switch will be flipped each time 
the statement is executed and tested 
to determine whether the imperative 
statement should be branched around. 
It is used only if the increment is 2 
or in the ON 1 case. 

The identifying numbers are assigned 
from cell XSWCTR in COMMON. They 
correspond to cells in the XSASW field of 
the Task Global Table in the object 
program. 

Tf the increment is not 2, an ON control 
cell is used to control the increment. 
Like the cell described in item 2, it is 
assigned an identifying number from ONCTR 
in COMMON, and it is used in a similar 
manner. 



Source Statements 



ON 2 AND EVERY 2 UNTIL 16 MOVE 
A TO B. ADD C TO D. 

P2^text Strings 



GNI. 



ON 2 2 16 GNI. 
MOVE (2) A B. 
ADD (2) CD. 



Procedure A~text 



L 3,0NCTK1 


c- 


LJ 3,1(3) 




ST 3, ONCTR 1 


© 


C 3, = (16) 


L 2, A (GNI) 


o 


BCRN0TL0,2 



Q 



GNI. 



C 3,= (2)^ 

BCRL0,2 (3) 

XI XSASW1,X»01» 

CL1XSASW1,X»01» 

BCRN0TEQ,2 

instructions for MOVE 

instructions for ADD 



Figure ^6. Analysis of an ON Statement 
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Special Considerations for Nonarithmetic 
Verbs 



Nonarithmetic Conversions ; In a few 
instances, nonarithmetic data items must be 
expressed in binary form during execution 
of the object program. These instances are 
illustrated by the following source program 
statements: 

GO TO A B C DEPENDING ON X. 
PERFORM RTNA X TIMES. 



In both these cases, the value of X must 
be in binary when the statement is 
executed; however, the source programmer is 
not required to create X as a binary data 
item. This situation also arises in some 
Q-routines. 



segmented (a value other than hexadecimal 
FF) , a call to ILBDSEMO is generated. If, 
at execution time, the VN is within the 
same segment, the subroutine will execute a 
normal branch. 



If the GO TO statement contains a 
DEPENDING ON option, SEGLMT is tested to 
see whether the program is segmented. If 
it is, a call to the COBOL library 
subroutine, ILBDSEMO, is generated. If OPT 
is specified, a call to the COBOL library 
subroutine, ILBDGDOO, is generated. This 
subroutine passes control to the 
appropriate PN. If the program is 
segmented, the address of entry point 
ILBDSEM1 is passed in register 2 to 
subroutine ILBDGDOO. This subroutine then 
determines which PN to branch to and passes 
control to entry point ILBDSEM1 to do 
standard processing for segmentation. 



To handle this, the verb analyzer calls 
routine DNTORI. This routine determines 
whether the value is already in binary or 
must be converted. If conversion is 
needed, DNTORI. generates code which 
converts the value at execution time, and 
places the binary value in a work area 
(leaving the value in the data area 
unchanged) . The work area, rather than the 
data area, is then used when the value is 
referenced. 



Procedure Branching in a Segmented Program ; 
If a GO statement transfers control out of 
the current segment and the current segment 
is not the root segment, phase 10 passes a 
special verb code (see "Checking for 
Segmentation in Procedure Branching" in the 
phase 40 chapter) . When phase 51 
encounters this verb code, it generates a 
call to the COBOL library subroutine, 
ILBDSEMO or ILBDSEM1 if OPT is requested. 
The calling sequence is given in IBM DOS/VS 
COBOL Subroutine Library » Program Logic > 
Order No. LY28-6424. This subroutine 
checks to see whether the necessary segment 
(the one containing the object of the GO 
TO) is in storage already, brings it into 
storage if it is not already there, 
initializes the segment, and transfers 
control to the named procedure. 

If the operand is a PN or GN in a GO 
statement with the regular GO verb code, a 
normal branch is made whether or not the 
program is segmented. No test is made 
because phase 40 issues a regular verb code 
if the branch did not require segment 
initialization. If the operand is a VN, 
the SEGLMT cell in COMMON is tested. If 
the test indicates that the program is 



Verbs Reguiring Calls to Object -Time 
Subroutines 



In this section, the DISPLAY verb is 
discussed as an example of a verb which is 
executed by a COBOL library subroutine. 
The discussion is based on the DISPLAY 
statement shown in Figure 47. In this 
example. A, B, C, D, and E are data-names 
whose usage is DISPLAY and whose picture is 
XX. The numbers of the following 
explanations refer to the circled numbers 
in the figure. 



1. Phase 40 puts a maximum of five 
operands in a string. Since the 
number of operands in this DISPLAY 
statement requires a continuation 
string, the first operand generated by 
phase 40 is the COBOL word FIRST, and 
the last operand is the COBOL word 
LAST. This is the form of all 
continued strings. The second operand 
identifies the device and the third 
through next-to-last operands are the 
data items named in the source 
statement. (Note that the P2-text 
contains the attributes, not the 
names, of the data items.) 

2. ILBDDSPO is the name of the DISPLAY 
COBOL library subroutine. Since it is 
a virtual, it is not written as part 
of the Procedure A-text. Rather, its 
virtual number is written as Procedure 
A-text; the name of the virtual itself 
is put out as Optimization A-text. 
See "DISPLAY Literals" below and 
"Literals and Virtuals" in the phase 
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50 chapter for a discussion of how 
this text is produced. 



This parameter gives the device code, 
which is 02 for CONSOLE. The section 
on ILBDDSPO in the publication IBM 
DOS/VS COBOL Subroutine Library^ 
Program Logic , Order No. LY28-6424, 
contains a complete list of device 
codes. 



4 . This parameter and the three which 

follow it give operand information for 
data-name A. Each, operand is 
specified in a 10-byte field. The 
description of ILBDDSPO in the 
publication IBM DOS/VS COBOL 
Subroutine Library, Program Logic , 
Order No. LY28-642itr describes all the 
codes; the meanings of the codes used 
in this example are as follows : 



Source Statement 



DISPLAY A B C D F UPON CONSOLE. 

P2-text ^^ 

DISPLAY (5) FIRST CONSOLE ABC Ci) 

DISPLAY (3) D E LAST 



Procedure A-text 

L 15r=V (ILBDDSPO) 

BALE 1r15 ^^ 

DC XL2»02» v3Uv 
DC XLVOO* C^ 

DC XL3»000002» 
DC am (BC-DISP) 
DC XL2nF» 



DC XL2»FFFF» Q) 



© 



Figure 47. Analysis of a DISPLAY Verb 



Code 
00 



000002 



AL4 (BC-DISP) 



Meaning 

Specifies the type of 

the item. In this case, 

data-name A is 

nonnumeric, ready to 

display. 



Specifies the length of 
the item. Since the 
PICTURE for A is XX, the 
length is two bytes. 



Specifies a displacement 
of an item from the 
beginning of the table 
identified by a base 
code. 



DISPLAY Literals 



Generation of A-text, including literals 
and virtuals, is almost identical to that 
performed in phase 50. There is one 
exception, however. If a literal is in a 
DISPLAY statement that requires a call to a 
COBOL library subroutine, a separate 
DISPLAY literal Optimization A-text element 
is written. This element is of a different 
type than an internal literal. It is 
generated differently so that phase 60 or 
phase 62 can build separate tables for 
internal and DISPLAY literals and search 
these tables using different techniques. 



1F Specifies the 

displacement of A from 
the beginning of the 
area controlled by its 
base locator. 



5. Following the description of A are 

similar 10-byte fields describing each 
of the other operands. The code FFFF 
follows the last description. 



GENERATING SYSTEM/370 INSTRUCTIONS 



If a variable-length move or compare is 
required, the MVCL (for a move) or the CLCL 
(for a compare) machine instruction is 
generated. If a compare involves a field 
greater tjian 256 bytes long or if the 
receiving field for a move is greater than 
512 bytes long, the CLCL or MVCL machine 
instruction, respectively, is generated. 
If the receiving field for a move is right 
justified and the receiving field for the 
move is either greater than 512 bytes long 
or variable in length, a call is generated 
to the ILBDSMVO COBOL library subroutine. 
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GENERATING OBJECT CODE TO PROCESS YSAM 
FILES 



described in IBM DOS/VS COBOL Subroutine 
Library Program Logic , Order No. LY28-6424. 



Phase 51 contains a verb analyzer 
routine for each of the VSAM input/output 
verbs: OPEN^ CLOSE^ READ, WRITE, REWRITE, 
START, and DELETE. 

The routine: 



Generating Calls to the ILBDVOCO and 
ILBDVIOO COBOL Library Subroutines 



• Analyzes the operands in the verb 
string . 

• Creates the parameter list to be passed 
to the object-time subroutine that 
performs input/output operations for 
VSAM files. 

• Generates the calling sequence for 
object-time subroutine. 

The calling sequences to the COBOL 
object-time subroutine (ILBDACLO) are 



The ILBDVOCO and ILBDVIOO COBOL 
object-time subroutines act as interfaces 
between the COBOL object program and VSAM. 
They use the File Information Block (FIB) 
(built by phase 21), the File Control Block 
(FCB) (created at object-time) , and the 
parameter list and options list (created in 
the calling sequence for the subroutine by 
phase 51) . Phase 51 determines the 
parameters and the list of options by 
examining the verb string following each 
VSAM verb. 
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PHASE 6 



Phase 60 (ILACBL6 0) prepares a machine 
language prograin suitable for input to the 
linkage editor- The phase is divided into 
several sequential parts, each of which 
performs specific functions- These are, in 
order: 



Determines object program storage 
allocation for the Task Global Table 
(TGT) by processing counters in COMMON 
and calculating the displacements of 
items which reside in the TGT at 
execution time- 



• Optimizes literals, virtuals, source 
procedure-names, and comtpiler-generated 
procedure-names by processing 
Optimization A-text and the PNUTBL 
table. Determines storage allocation 
in the Program Global Table (PGT) for 
these items and calculates their 
displacements by using counters in 
COMMON. 



OUTPUT OF PHASE 60 



The output of the phase depends on the 
compiler options specified by the user. 
The SXREF and XREF options have already 
been mentioned- Following are the other 
options which determine the output produced 
by phase 60: 

LISTX: Causes the TGT, Literal Pool, 
PGT, register assigments and a 
listing of the object text to be 
written on SYSLST (or SYS006 for 
LVL option) . 

CLIST: Causes the TGT, Literal Pool, 

PGTff register assignments and a 
condensed object program listing 
to be written on SYSLST (or 
SYS006 for LVL option). The 
object program listing is limited 
to the card number, verb name, 
and address of the first 
instruction for each verb. 



• With Procedure A-text as input, 

generates and writes machine language 
instructions- If the program is 
segmented, groups the sections of 
instructions into segments and provides 
the appropriate linkage editor 
statements.. If the SXREF, XREF, 
VERBREF, or VERBSUM option was 
specified, passes procedure-name and 
data-name definition elements, written 
in DEF-text;, to phase 61 on SYS003 and 
passes procedure-name and data-name 
references, in REF-text, to phase 61 on 
SYSOOl- 



• With Data A-text as input, writes 
object text for the data area of the 
object program- 

• Writes object text for the TGT and PGT 
from the RLDTBL table and Data A-text. 

• Writes object text for the INIT2, 
INIT3, and INITl routines of the object 
program, in that order. 

• Writes INCLUDE statements for COBOL 
library subroutines to be entered at 
secondary entry points. 

• Writes ESD, RLD, and TXT statements for 
all virtuals - 

• Prints out compile-time statistics - 



SYM: Causes the TGT, Literal Pool, 

PGT„ and register assignments to 
be written on SYSLST (or SYS006 
for LVL option) . 

LINK or Causes the object program 
CAT^^L: to be written on SYSLNK. 

DECK: Causes the object program to be 
written (punched) on SYSPCH- 

The user may specify both the LINK and 
DECK options, in which case the object 
program is written on both SYSLNK and 
SYSPCH. He may also specify NOLINK and 
NODECK; in this case, he receives no 
executable copy of his object program. 

Note that unless at least one of these 
eight options is in effect, phase 60 
produces no output. In this event. Phase 
60 returns control to phase 00 without 
doing any text processing unless XREF, 
SXREF, VERBREF, or VERBSUM has been 
specified. If one of these options has 
been specified, phase 60 processes the text 
to provide phase 61 with the DEF-text and 
REF-text elements for the cross-reference 
listing. 

The omission of any phase 60 text 
processing also occurs if the SUPMAP 
(suppress output) option is in effect and 
at least one E-level or D- level error 
message was generated by any phase. This 
is determined by testing the ERRSEV cell in 
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COMMON. A value of 12 or greater means 
that at least one such error occurred. The 
ERRSEV cell is discussed further under 
"E-text" in the phase 51 chapter. 

Phase 60 does not write object text in 
execution-time sequence* Rather, it 
instructs the linkage editor to reorder the 
text by assigning relative addresses in 
execution-time order. To do this, it 
allocates space for areas that will be 
written later, incrementing the LOCCTR 
(location counter) cell of COMMON to 
reflect the relative location at execution 
time of the area currently being processed. 



TASK GLOBAL TABLE STORAGE ALLOCATION 



When phase 6 receives control, the 
LOCCTR contains the relative address of the 
Task Global Table (TGT) in the load module. 
It was incremented by phases 22 and 21, 
which added the length of the data area to 
that of the INITl routine (these areas 
precede the TGT in the load module). 

Routine TGTINT first does preliminary 
computations to determine the length of the 
entire TGT. If this length exceeds U096 
bytes,; one 4-byte OVERFLOW cell is 
allocated for each 4 096-byte area after the 
first- Then this routine computes the 
locations of TGT fields after the OVERFLOW 
cells- 
Some fields of the TGT are constant in 
length; others are variable — their 
lengths depend on the requiremients of the 
program being compiled. For most of the 
variable fields, there is a counter in 
CCMMON used to compute its length. When 
the value has been used, the counter is set 
to the displacement of the corresponding 
field in the TGT. Figure 48 lists these 
counters and the TGT fields to which they 
correspond. As the TGT is processed, a 
count of the displacement of the current 
field from the start of the TGT is kept in 
a register called RWl. 

Somie of the counters in COMMON specify a 
number of bytes. Others specify a number 
of entries, where each entry requires two 
or four bytes. In the latter case, the 
value of the counter is multiplied by two 
or four before it is used to compute 
displacements . 

This is done in routine DSPLAC, which is 
called for each variable-length field. Two 
parameters are passed to this routine: the 
address of the counter in COMMON and the 
niomber of bytes for each entry. From the 
number of bytes, DSPLAC also determines 
boundary alignments. DSPLAC places the 



value of RWl (the displacement of the field 
in the TGT) into the counter and adds the 
length of the field to RWl. 

If the LISTX, CLIST, or SYM option was 
specified, DSPLAC calls routine MAPLOC, 
which prints one line at a time. If the 
SUPMAP condition exists, no printing is 
done. 

If any of the debugging options is in 
effect, the SWITCH cell, the CURRENT 
PRIORITY cell (initialized to zero only) , 
the DEBUG TABLE PTR cell, and the DEBUG 
TABLE information in the TGT are set by 
phase 65. 

After the length of the entire TGT has 
been calculated, the value of RWl (the 
length of the TGT) is added to the LOCCTR 
cell. The value of the LOCCTR cell is now 
the displacement of the PGT. 



O PTIMIZING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



The general function of this part of 
phase 6 is to allocate space for the 
Program Global Table (PGT) in the same way 
that TGT storage was allocated. Before 
this can be done, however, the required 
space must be determined for the literals, 
virtuals, and procedure-names which reside 
in this table at execution time. The 
routines which determine the lengths of 
these fields also optimize the contents of 
the fields by eliminating duplication. 

For optima zing, the PNUTBL table and 
Optimization A-text are used. Processing 
of the PNUTBL table occurs first. Then the 
Optimization A-text is read and processed. 

Optimization A-text, which was generated 
by phases 50 and 51, contains the following 
kinds of elements: 

• EQUATE strings, which equate generated 
procedure-names (GNs) to corresponding 
user defined procedure-names (PNs) or 
equate GNs to other GNs in cases where 
all the PNs and GNs refer to the same 
location- (For a description of how 
and why these strings are built, see 
"Building PN and GN EQUATE Strings" in 
the chapter on phase 51.) 

• Literal definitions, containing the 
actual value of the literal. 

• DISPLAY literal definitions. 

• Virtual definitions. 
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Virtual reference definitions for error 
processing and input/output routines. 

Variable procedure-name (VN) 
definitions, if the program is 
segmented, for building the VNPTY 
table- 
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j Counter j 


1 
Contents from Earlier Phases | 

1 


TGT Field | 


Multiplication | 
Factor 1 


1 TSKAX 


Number of 
temporary 


doublewords needed for arithmetic 
storage 




TEMPORARY 
STORAGE 


8 1 


1 TS2MAX 


Number of 
temporary 


bytes needed for nonarithmetic 
storage 




TEMPORARY 1 
STORAGE-2 1 


1 1 


1 TS3MAX 


Number of bytes needed for aligning 
non-SYNCHRONIZED data items 




TEMPORARY 
STORAGE-3 


1 1 


1 TSUMAX 


Number 


of 


bytes for table-handling verbs 




TEMPORARY 
STORAGE-a 


1 I 


1 BLLCTR 


Number of 
Section 


base locators assigned to Linkage 




BLL 


^ t 


1 VLCCTR 


Number of variable location cell (containing 
current length of a variable-length field) 




VLC 


2 1 


1 INDEX1 


Number 


of 


index-names defined in files 




IND 


4 1 


1 SBLCTR 


Number of secondary base locators (location < 
field variably located because it follows a 
! variable-length field) 


Df a 


SBL 


^ 1 


1 BLCTR 


Number of base locators assigned to files an( 
Working-Storage 


i 


BL 


^ 1 


1 SUBCTR 


t Number 


of 


subscript cells 




SDBADR 


4 1 


1 ONCTR 


1 Number 


of 


ON control cells 




ONCTL 


4 1 


1 PFMCTR 


i Number 
1 TIMES) 


of 


PERFORM control cells (for PERFORM 


X 


1 PFMCTR 


4 1 


1 PSVCTR 


1 Number 


of 


PERFORM save cells 




! PFMSAV 


4 f 


1 VNLOC* 


1 Number 


of 


variable procedure-names 




VN 


4 1 


1 DTFNUM 


1 Number 


of 


DTFs 




i DTFADR 


4 \ 


I XSWCTR 


1 Number 


of 


EXHIBIT switches 




XSASW 


\ 1 1 


1 XSACTR 


i Number 


of 


bytes for EXHIBIT saved area 




XSA 


1 1 


1 PARMAX 


Number 


of 


words for parameter area 




PARAM 


4 1 


1 RPTSAV 


1 Number 


of 


words for report save area 




1 RPTSAV AREA 


4 1 


1 CKPCTR 


1 Number 


of 


checkpoint cells needed 




1 CHECKPT CTR 


1 4 1 


1 lOPTRCTR 


t Number 


of 


pointers for SAME RECORD AREA clauses 


1 lOPTR CELLS 


1 4 1 


1 AMICTR 


1 Number 

1 


of 


FIBS for VSAM files 




I FIB 
1 


1 4 1 


|*The numb( 
1 not the 1 
1 TGT proc( 
1 program i 
1 in the P( 


BT of VNs in the program is passed to phase 60 in i 
[TNLOC cell. However, this value is moved into the 
sssing uses VNLOC rather than VNCTR. This is beca\ 
Qust also be known for PGT allocation to determine 

;t. 


bhe VNCTR cei: 
VNLOC cell ai 

ise the numbe] 
the size of 1 


L of COMMON, 1 
id all further | 
[T of VNs in the| 
-he VNI field [ 



Figure 48. Use of Counters in COMMON To Allocate Space in the TGT for Variable-Length 
Fields 
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Virtual Feferences Definitions; FILTBL 
Table 



During the virtual optimization, the 
FILTBL table is built for the virtual names 
related to the input/output and 
error-processing routines. Virtual 
reference elements are not optimized and do 
not become part of the PGT. It is 
convenient to have them here, since RLDs 
and ESDs can be punched for them at the 
same time as for the other virtuals. They 
are placed in the DTF portion of the object 
module in the LIOCS module name field. 



Building the VN Priority Table 



VN definition elements are not used for 
optimization. They are included in the 
Optimization A-text for a segmented program 
because they are used to build a table 
(called VNPTY) which must be completely in 
storage for the next part of phase 60 
processing. As an element is read, it is 
entered unchanged into this table. After 
the Optimization A-text file has been 
closed, the VNPTY table is sorted in 
ascending order of VN number. 



Optimizing PNs and GNs 



The first step in optimizing PNs and GNs 
is to allocate space in the compiler table 
area for the PNTBL and GNTBL tables. The 
lengths of these tables are determined from 
the values of PNCTR and GNCTR in COMMON. 
Then, in routine PNUPRO, the PNTBL is 
processed against the PNUTBL. (The PNTBL 
table, containing one entry for each 
procedure -name in the program, is used only 
in phase 60; the PNUTBL was built by phase 
51. See "Building the PNUTBL Table" in the 
chapter on phase 51 for a description of 
how and why this table was created.) If a 
PNUTBL entry has a value of one, the 
corresponding PNTBL entry is numbered. The 
numbers are seguential, beginning with one. 
If the PNUTBL entry has a value of zero, 
this means that the procedure-name is never 
referred to in the program and can be 
eliminated; therefore, the corresponding 
PNTBL entry is set to zero. Once the PNTBL 
values have all been set, the PNUTBL table 
is released. 

Figures 49 through 51 provide an example 
of this processing for a program containing 
six PNs and six GNs. In Figure 52, the 
table entries are shown as they would 
appear after the PNUTBL table processing. 
Optimization A-text is then read by routine 



PEADF2. Each time a PN or GN EQUATE string 
is encountered, READP2 calls the routines 
(PNBQUR or GNEQUR, respectively) which 
process these strings. 

Note: In Figures 49 through 51 the numbers 
to the left of the tables are A-text PN and 
GN numbers. They specify implicit 
positions in the table. 





PNUTI 


3L I 
1 
2 
3 
4 
5 
6 

PNUTBL, 


^NTBL 


1 
2 
3 
4 
5 
6 

and 


GNTBL 


1 


1 

1 1 

1 1 


1 

1 1 


1 1 
1 1 

1 1 


2 


1 1 
1 
1 


1 

1 


1 1 
1 1 


3 


1 

1 1 


2 1 


1 1 


4 


1 

1 1 

1 


1 3 1 

1 


1 1 
I 1 
1 1 


5 


1 
1 


1 1 

1 1 


1 1 


6 


1 

1 1 

1 


1 

H 1 

1 1 


1 1 
1 1 
■ 1 


iaure 


49. 


PNTBL , 


GNTBL 



at the Beginning of 
Optimization Processing 

Figure 50 shows the effect of a PN 
EQUATE string indicating that GN1 equals 
PN3. The referenced number of PN3 (the 
number found in the PNTBL entry for PN3 — 
2 in the example) is entered into the 
position for GN1. If there were no other 
EQUATE strings read, the following would 
occur after the Optimization A-text file 
had been closed: GN2 through GN6 would be 
assigned relative numbers sequentially, 
starting with the number after the last 
referenced PN number in the PNTBL table 
(which is 4 in the example) . The GNTBL 
entries would then read 2, 5, 6, 7, 8, 9. 
If, however, as shown in Figure 50, a GN 
EQUATE string is encountered, equating GN2 
with GN4 and GN5, the relative number of 
GN2 is assigned to GN4 and GN5. This 
number is 5, since GN2 contains the next 
seguential number after PN6. 

GNTBL 



1 


— "■■ 1 

2 1 


2 


1 


3 


1 


4 


5 1 


5 


5 1 


6 


1 1 
1 1 


Figure 50. 


GNTBL T 



2 |[ Equates GNI to PN3 



Equates GN4 and 
GN5 to GN2, which, 
it can be assumed, 
will be assigned a 
relating number of 5. 



GNTBL Table After PN and GN 
Equate Strings Have Been 
Processed 
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After the Optimization A-^text file has 
been closed ^ relative numbers are assigned 
to each GN not equated to a PN or another 
GN, The completed GNTBL table for the 
example is shown in Figure 51. 



Figure 52 shows an example of these 
tables after all Optimization A-text has 
been processed. The Optimization A-text 
contained literal definition elements for 
the following literals: 



GNTBL 



1 


2 1 


2 


5 1 


3 


6 1 


4 


5 1 


5 


5 I 


6 


7 1 
• • 



Figure 51. GNTBL Table After the Relative 
Numbers Have Been Assianed 



8, 3 (DISPLAY) , 3, 9, Y (DISPLAY) , 8 



The DISPLAY literal "3" is assumed to have 
a length of 5^ and the CONTBL literals each 
have a length of 1. 



CONTBL 



Literals | 8 



h 



Write text, 
increment RWl, 
and release tables 



Note; In the object code listing, the 
optimized GNs are numbered sequentially, 
starting with 1. 



DISPLAY 
Literals 



CONDIS 



Optimizing Literals and DISPLAY Literals 



The literal optimizing routines are used 
to eliminate storage duplication in cases 
where the source programmer used the same 
literal more than once. Routine LTLRTN 
processes internal literals, and routine 
LTLDIS processes DISPLAY literals. These 
routines build three tables: the CONTBL 
and CONDIS tables (for internal and DISPLAY 
literals, respectively) contain one entry 
for each unique literal, and the LTLTBL 
table contains an entry for each use of a 
literal. 

When a literal definition is 
encountered, the CONTBL or CONDIS table is 
searched for an entry identical to the 
literal (to be identical, two internal 
literals must meet the same boundary 
requirements as well as having the same 
value) . If no match is found, the new 
literal is entered into the CONTBL or 
CONDIS table. Any bytes skipped because of 
boundary alignment are filled with zeros. 
The displacement of this entry from the 
beginning of the table is placed into table 
LTLTBL with a bit set to indicate whether 
it is a CONTBL or CONDIS entry. If a match 
is found, only an LTLTBL entry is made. 
This LTLTBL entry is the displacement of 
the CONTBL or CONDIS entry that matched the 
literal being processed. 



LTLTBL 



(CONTBL Displacement 
of 8) 



(CONDIS Displacement 
of 3) 



1 (CONTBL Displacement 
of 3) 



2 (CONTBL Displacement 
of 9) 



5 (CONDIS Displacement 
of Y) 



Add PGT dis- 
placements and 
save table 



(CONTBL Displacement 
of 8) 



Figure 52. CONTBL, CONDIS, and LTLTBL 
Tables After Processing 
Literals 



After the Optimization A-text file is 
closed, the literal pool is written on 
SYSLST (SYS006 for LVL option) , using the 
contents of the CONTBL and CONDIS tables, 
if the LISTX, CLIST, or SYM option was 
specified (no printing is done if the 
SUPMAP condition exists) . 
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Optimizing Virtuals 



The virtual optimizing routine (VIRRTN) 
is used to eliminate storage duplication in 
cases where the same EBCDIC nane of a 
called program is referred to in more than 
one CALL statement or in more than one call 
to a COBOL library subroutine. The logic 
of this processing is similar to that of 
literal optimization. Two tables are 
built: the CVIRTB table , containing one 
entry for each unigue virtual , and the 
VIRPTR table^ containing one entry for each 
reference to a virtual. 



ALLOCATING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



When all Optimization A-text has been 
readr storage is allocated for the PGT. If 
the program is not segmented ^ entries for 
the external symbol dictionary are created 
for virtuals r object text is written for 
virtuals and literals ^ and entries are made 
in the RLDTBL table for subseguent writing 
of the relocation dictionary. Counters in 
COMMON are set to the displacements of 
their corresponding PGT fields from the 
beginning of the PGT. 



When a virtual definition is 
encountered, the CVIRTB is searched for an 
identical entry. If none is found, the new 
virtual is entered in the CVIRTB table. 
The displacement of this virtual from the 
beginning of the CVIRTB is entered into the 
VIRPTR table. If a match is found, only a 
VIRPTR entry is made. This VIRPTR entry 
contains the displacement in the CVIRTB 
table of the entry that matched the virtual 
being processed. 

Figure 53 shows the contents of these 
tables after processing Optimization A-text 
for a program containing the following 
virtuals: 

CVIRT1, CVIRT2, CVIRT3, CVIRT1, CVIET2. 



CVIRTB 



CALL virtuals 



PGT (CVIRTB) 
displacements : 



1 CVIRT1 1 


1 CVIRT2 1 


1 CVIRTB 1 
I 1 


VIRPTR 


1 i 
1 (Disp. of 1 
1 CVIRT1) I 


1 8 (Disp. of| 
1 CVIRT2) 1 


1 16 (Disp. of 1 
1 CVIRT3) 1 


1 0(Disp. of| 
1 CVIRT1) 1 


1 8 (Disp. of 1 
1 CVIRT2) 1 



] Wri 
I inc 

> RW1 



Write text, 
increment 

release 
tables 



save 



Note: Each CVIRTB entry is 8 bytes long. 

Figure 53. CVIRTB and VIRPTR Tables After 
Processing Virtuals 



If the LISTX, CLIST, or SYM option was 
specified, the format of the PGT is written 
on SYSLST (SYS006 for LVL option) using 
routine MAPLOC (if the SUPMAP condition 
exists, this writing does not take place) . 



OVERFLOW Allocation: Preliminary 
calculations are made to determine whether 
the size of the PGT exceeds 4096 bytes. If 
it does, one 4-byte OVERFLOW cell is 
reguired for each U096-byte area after the 
first. The number of bytes reguired is 
placed in register RW1, which is used 
throughout PGT allocation to hold the 
displacement of the field currently being 
processed. 



VIRTUAL Allocation: After the OVERFLOW 
CELLS field of the PGT has been calculated, 
the VIRTUAL field is processed. The VIRCTR 
cell of COMMON is set to the displacement 
of the VIRTUAL field from the beginning of 
the PGT (this value is zero unless OVERFLOW 
cells have been allocated) . 



To determine the length of the VIRTUAL 
field, four bytes are allowed for each 
entry in the CVIRTB table. The calculated 
length is added to RW1. The CVIRTB table 
is kept for use during Procedure A-text 
processing, when the values (EBCDIC names) 
in it are used to generate in-line 
constants for CALL statements. 



The entries in the VIRPTR table are 
changed to contain displacements in the 
VIRTUAL field (see the example in Figure 
m) . The table is saved for subsequent use 
during Procedure A-text processing. 



In Figure 54, the plus sign (+) means 
the displacement in bytes of the VIRTUAL 
from the beginning of the VIRTUAL field in 
the PGT. The values are also PGT 
displacements if no overflow cells are 
present. 
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VIRPTR 



+ 



+ 4 
+ 8 
+ 
+ 4 



—I 



Each VIRTUAL in the 
PGT is four bytes 
long. 



Figure 54. VIRPTR Table After VIRTUAL 
Allocation 



PNTBL 

r 1 

1| + 

h 

2| 
J. 

3| + 4 

I- 

4| + 8 

I- 

51 

I- 

6| +12 

L 



GNTBL 

r 1 

1| + 4 

I- 

2| +16 

I- 

3 I +20 

I- 

4| +16 
|. 

5 I +16 

h 
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Figure 55. PNTBL Values After PGT 
Allocation 



PN Allocation; After the VIRTUAL field has 
been processed^ the value in RWl is the 
displacement of the PN field in the PGT. 
This value is saved in the PNCTR cell of 
COMMON. 



For each referenced PN in the PNTBL 
table, a 4-byte cell is allocated in the 
PGT. The PNTBL entry is set to the 
displacement of this cell from the 
beginning of the PGT. If a PN was not 
referenced (if the value in the PNTBL entry 
was zero) , no space is allocated. In the 
example in Figure 55, only four 4-byte 
cells are required in the PGT. After the 
PNTBL table entries have been adjusted, the 
entry for PN3 exceeds the entry for PNl by 
four, and the entry for PN2 remains zero. 
The total length of the PN field (16 bytes 
in the example) is then added to RWl. 



For each unique GN, a 4-byte cell is 
allocated in the PGT. The GNTBL entry is 
set to the displacement of this cell from 
the beginning of the PGT. However, if the 
GN was equated to a PN or another GN, the 
GNTBL entry is set to the PGT displacement 
of that PN or GN. This is illustrated in 
Figure 55, which shows the GNTBL table 
after this processing, for the same example 
as in Figures 49, 50 and 51. In this 
example, GN4 and GN5 were equated to GN2. 
Therefore, the GNTBL entries for GN4 and 
GN5 contain the displacement of GN2. The 
PGT for this program contains only three 
unique GN entrieS;, or twelve bytes. After 
all entries have been processed, the length 
of the GN field (12 in the example) is 
added to RWl. 



The GNTBL table is saved for use during 
Procedure A-text processing. 



Figure 55 shows the PNTBL table for the 
same program as in Figure 49 after PGT PN 
allocation. The table is saved for use 
during Procedure A-text processing, when 
the values it contains are used as 
displacements in instructions. 



SDTFADR Allocation ; The SDTFCTR cell in 
COMMON is used to determine how much space 
is required; four bytes are reserved for 
each SDTF in the program. The cell is set 
to the value of RWl, and RWl is then 
incremented to reflect the allocated bytes. 



In Figure 55, the plus sign (+) means 
the displacement in bytes of the PN from 
the beginning of the PN field in the PGT 
The values are also PGT displacements if no 
overflow cells are present. The numbers to 
the left of the tables are A-text PN and GN 
numbers. They specify implicit positions 
in the table. 



VNI Allocation; The VNCTR cell of COMMON 
was used by earlier phases to count the 
number of variable procedure-names in the 
program. The value of VNCTR is moved to 
the VNILOC cell of COMMON. From VNILOC, 
four bytes are allocated for every VN. The 
displacement of the VNI field (the value of 
RWl) is placed in the VNILOC cell, and the 
niomber of bytes allocated is added to RWl. 



G N Allocation ; The value in RWl is now the 
displacement of the GN field in the PGT. 
This value is placed in the GNCTR cell of 
COMMON. 



LITERAL Allocation; The displacement of 
the LITERAL field in the PGT (the value of 
RWl) is placed in the LTLCTR cell of 
COMMON. The length and contents of the 
LITERAL field will be identical to the 
CONTBL and CONDI S tables. 
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For each LTLTBL entry that refers to 
CONTBL, the value in the LTLTBL table is 
replaced by the displacement of the 
specific literal from the beginning of the 
PGT. This displacement is calculated by 
adding the value already in the LTLTBL 
entry (which is the CONTBL displacement of 
the literal) to the value of RWl. 

The same processing occurs for LTLTBL 
entries that refer to CONDIS, except that 
the increment includes the length of the 
CONTBL table. This is because DISPLAY 
literals are placed after internal literals 
in the PGT. The LTLTBL table is saved for 
use during Procedure A-text processing. 
The lengths of the CONTBL and CONDIS tables 
are used to increment RWl. If the program 
is not segmented^ the contents of the 
tables are used to write object text, and 
the tables are released. In a segmented 
program, writing of object text is delayed^ 
and therefore the tables are kept. 



PROCEDURE A~TEXT PROCESSING 



Phase 60 reads Procedure A-text to 
produce machine-language instructions for 
the object program- One element of text is 
read and processed at a time, and the 
object code produced for this element is 
placed in a work area called 0U6REC. One 
or more elements are required to produce a 
complete instruction. When an instruction 
is complete, it is written out from the 
work area, and the LOCCTR cell in COMMON is 
incremented by the number of bytes written. 

If the instruction involves a base 
locator, the processing routine refers to 
or updates the REGMTX table (see "Execution 
Time Base Register Assignment" in this 
chapter) , which is a table internal to 
phase 60. Base locators were assigned by 
phase 22- 

If the LISTX compiler option is in 
effect, routine PUT is called to write a 
line of text on SYSLST (SYS006 for LVL 



option) every time a complete instruction 
has been written- If the CLIST option is 
in effect, this routine is called only for 
each verb (if the SUPMAP condition exists, 
this writing does not take place) . 

If the SYMDMP or STATE option is in 
effect. Procedure A-text is used to create 
Debug-text which is written on file SYS002. 
Debucr-text elements are written by the 
WRITEIOA, WRITE20A, and WRITE30A routines. 
WRITEIOA is called for all card numbers 
encountered and produces Debug-text 
elements which contain the card number and 
the contents of the LOCCTR cell when the 
card number was encountered. Debug-text 
also contains: 

• Priority elements, which give the 
priority number of each segment in a 
segmented program or zero priority for 
a program which is not segmented^^ 

• Discontinuity elements, which are 
created when phase 60 combines two 
sections of equal priority that have 
discontinuous card numbers because of 
an intervening section or sections of 
different priority, 

• Segment elements which identify the 
last byte of each segment. 

Debug text is used by phase 65 to 
produce debugging information for the 
object-time COBOL library debugging 
subroutines. If any of the debugging 
options is in effect, phase 6 builds the 
TGTADTBL table, which is used to pass 
debugging information to phase 65- 

If the SXREF, XREF, VERBREF, or VERBSUM 
option is in effect. Procedure A-text is 
used to create REF-text and to write it on 
file SYS003. This text, containing an 
element for every data-name, file-name, 
procedure-name, and verb in the program, is 
used by phase 61 to produce a 
cross-reference listing- 
Figure 56 describes the processing for 
each type of Procedure A-text element - 
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I ■" 1 -- ^ — -■ - ■ ■ ■ — 1 

ICode and Type | Action Taken I 


|2C* IStore in 0U6CDN, XFCDNO^ and ODCCDN. If LISTX or CLIST is re- | 
jcard number Iquested, read LISTING A-text. ased to generate an in-line constant | 
1 jfor TRACE^ which calls the DISPLAY object-time subroutine. If | 
1 JSYMDMP or STATE is requested, write Debug-text. I 
I.I 1 


1 1 ' 1 

|30* 1 Using PN number as an index, look in PNTBL (see »»PN Allocation" in | 
JPN definiton jthis chapter) to get displacement in PGT of the cell for this PN. | 
1 1 Create an BLDTBL entry which will place the current value of LOCCTP | 
1 |in the PGT cell. I 
1 1 t 


|34* ISame as PN definition, using GN number and GNTBL. (See "GN | 
|GN definition j Allocation" in this chapter.) j 
1 1 1 


11 1 
|38* 1 Create an indirect RLDTBL entry from this element and the PN | 
|VN definition | reference which follows it. j 
It 1 


|3C 1 Convert the current card number into an EBCDIC constant of the form:| 
1 EBCDIC 1 I 
1 procedure-name | I 

1 1 DC x«a« 1 

I 1 DC CL5» generated card number" I 


J 1 1 
|44 |Dse byte 2 of the element as index to a branch table, phase 60 | 
1 macro-type | produces the required coding or takes the required action. The | 
1 instruction | contents of these elements are listed in the Procedure A-text | 
1 1 formats of "Section 5. Data Areas." I 


|48 IThis element contains in machine language the first two bytes of an | 
jop code 1 instruction. The first byte is the op code; the second may give | 
1 1 condition codes, registers, or other operands. For an RP type, this} 
1 1 element contains the complete instruction. The 2 bytes following 48 1 
j |are written out as received. I 


|4C IThis is the operand of a LOAD instruction. Procedure branching | 
jPN reference | is accomplished by loading an address and then branching to it. j 
1 1 Using register 12** as base, find displacement by using PN number as| 
1 |an index into PNTBL (see "PN Allocation" in this chapter) . Using | 
1 Icard number stored in XFCDNO, write an element of REF-text for phase | 

I |61 if XREF was specified. 1 

II .1 


I ' 1 ■ 1 

|50 ISame as PN reference, using GN number and GNTBL. See "GN | 
jGN reference | Allocation" in this chapter. No REF-text is written. | 

II 1 


1 ■ " ■ 1 ■■ — ■*"■ - I 

\5^ |Use register 13** as' base. Get displacement of VN-I field of TGT | 
|VN reference |from VNLOC cell in COMMON (see "Task Global Table Storage | 
1 {Allocation" in this chapter) . If program is unsegmented, use VN | 
1 {number to compute displacement of this VN cell. If program is j 
1 {segmented, VNs are stored in the TGT in order of priority number, | 
1 {not VN number; search the VNPTY table (see "Building the VN Priority { 
1 1 Table" in this chapter) for this element. Displacement in the VN-I | 
1 {field will be the same as displacement in the table. j 


{ *Indicates no object text written for this element. 1 
{**At execution time, register 12 always points to the beginning of the PGT, register 13 { 
1 always points to the beginning of the TGT. If the displacement of an item in the PGT| 
1 or TGT exceeds 4096 bytes, an OVERFLOW cell must.be used. The OVERFLOW CELLS fields | 
1 of both the PGT and TGT are at fixed displacements from register 12 and register 13, | 
{ respectively. The OVERFLOW cell to be used is determined from the value of the j 
1 displacement; that is, a value from 4096 to 8191 uses cell 1, from 8192 to 12,227 | 
1 uses cell 2, etc. An instruction is generated to load register 14 or register 15 ( 
1 from the OVERFLOW cell. Then, in the operand currently .being processed, register 14 { 
{ or register 15 is used as the base, and the displacement is decremented by 4096, { 
{ 8192, etc. 1 



Figure 56. Processing Procedure A-text Elements (Part 1 of 3) 
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Code and Type 



Action Taken 



58 

virtual 

reference 



Use virtual number as an index into the VIRPTR table (see "VIRTUAL 
Allocation" in this chapter) . Table entry contains displacement 
of this virtual in the PGT. Use register 12** as base. 



5C 

BL reference 



This element is operand of an instruction which loads a base 
register. Use register 13** as base. Get the displacement of BLL 
or BL field in the TGT from BLLCTR or BLCTF in COMMON. Use BL 
number to compute displacement of this cell. Update table REGMTX. 



H 



60 

TGT standard 

area reference 



Use register 13** as base, 
constants. 



Displacement is picked up from a list of 



64 

Global Table 
variable located 
area reference 



Use register 13** as base (unless the element specifies the SDTFADR 
field of the PGT, which uses register 12**) . Get displacement of 
the TGT or PGT field from the appropriate cell in COMMON, and use 
identifying number to compute displacement of this item. See "Task 
Global Table Storage Allocation" and Figure 48 in this chapter. 



68 

literal 

reference 



The number in the text element refers to the seguential number 
assigned to the literal from the LTLCTR cell in COMMON. The element 
is used to calculate the displacement of the literal in the LITERALS 
field of the PGT. 



6C 

DC definition 



This element is used to create an in-line constant for a calling 
sequence. Bytes following the code are used to write text. 



70 

base and 

displacement 



Specifies the actual register number and displacement for the 
instruction. Bytes following the code are used to write text. 



H 



78 

address 

reference 



Search table RFGMTX on i and k (BL type and BL number) . If match is 
found, the required BL is already in a register. Use that register 
as base. If no match is found, generate an instruction to load 
register 14 or register 15 with the BL from the BL or BLL field of 
the TGT and use that register as the base (see Code 64, "Global 
Table variably located area reference," in this table for a 
description of how the LOAD is generated) • Displacement is d field 
of the element. Get card number from XPCDNO to write an element of 
REF-text. 



7C 

EBCDIC 

data-name 

reference 



This element always follows a 2C element. It is used for listing 
VERBS and paragraph-names when CLIST or LISTX is in effect. It is 
also used to generate an in-line constant for TRACE, which calls 
the DISPLAY object-time subroutine. 



80 

address 

increment 



This element is required, for example, by the second MVC for a 
MOVE of more than 256 bytes. The element itself would have a value, 
in this case, of 256 (the value of the increment) . Add it to the d 
(displacement) field of whatever reference preceded it. 



*Indicates no object text written for this element. 
**At execution time, register 12 always points to the beginning of the PGT, register 13 
always points to the beginning of the TGT. If the displacement of an item in the PGT 
or TGT exceeds 4096 bytes, an OVERFLOW cell must be used. The OVERFLOW CELLS fields 
of both the PGT and TGT are at fixed displacements from register 12 and register 13, 
respectively. The OVERFLOW cell to be used is determined from the value of the 
displacement; that is, a value from 4096 to 8191 uses cell 1, from 8192 to 12,227 
uses cell 2, etc. An instruction is generated to load register 14 or register 15 
from the OVERFLOW cell. Then, in the operand currently being processed, register 14 
or register 15 is used as the base, and the displacement is decremented by 4096, 
8192, etc. 



Figure 56. Processing Procedure A-text Elements (Part 2 of 3) 
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1- -- 1 1 

jCode and Type | Action Taken | 


1 1 ■ ■ ■■ -" "■■ — f 

|84 IThis element is used to create an in-line pointer to an item in a | 
I relative | field of the TGT or PGT for a calling sequence. Get displacement | 
1 address |of field from appropriate counter in COMMON and use identifying | 
1 1 number to compute displacement of item. I 
1 1 ■ 


|A0* {Specifies the register used by a macro instruction element, and | 
jregister jmust follow certain of these elements. See the list of macro-type | 
1 specification | instructions in "Section 5. Data Areas" under "Procedure A-text." | 


1 1 ■■■ ■ "- - ' "■ — ' -■■ — ■ 1 

|A4 IThis element combines the address reference (code 78) and increment | 
1 incremented | (code 80) elements into one. See those elements in this table. | 

I address | j 

II ■ 


|B0 jUsed to create an in-line TGT or PGT pointer for a call to an | 
1 calling sequence j object-time subroutine which expects a parameter containing a | 
jdisplacement {displacement from register 13 or register 12. j 
J i ■ 


i 1 " ■ -■■■■ ' ■— ■■■■ ■■' 1 

|B4* . lUsed, when a file-name or data-name occurs in a calling | 
leaning sequence {sequence^ to write a REF-text element for phase 61. Pick up | 
1 dictionary |card number from XFCDNO. | 
1 pointer | | 
i 1 1 


|B8* lUsed to write an element of REF-text. | 
{file reference j I 
1 * 1 


1 *Indicates no object text written for this element. I 
|**At execution time, register 12 always points to the beginning of the PGT, register 13 | 
1 always points to the beginning of the TGT. Tf the displacement of an item in the PGT | 
1 or TGT exceeds 4096 bytes, an OVERFLOW cell must be used. The OVERFLOW CELLS fields | 
1 of both the PGT and TGT are at fixed displacements from register 12 and register 13, | 
1 respectively. The OVERFLOW cell to be used is determined from the value of the j 
1 displacement; that is, a value from 4096 to 8191 uses cell 1, from 8192 to 12,227 | 
1 uses cell 2, etc. An instruction is generated to load register 14 or register 15 j 
1 from the OVERFLOW cell. Then, in the operand currently being processed, register 14 | 
1 or register 15 is used as the base, and the displacement is decremented by 4096, | 
1 8192, etc. 1 



Figure 56. Processing Procedure A-text Elements (Part 3 of 3) 



Processing in a Segmented Progra m 



When a program is not segmented, phase 
60 reads Procedure A-text in the order in 
which it was written. When a program is 
segmented. Procedure A-text is read in such 
an order that the procedure instructions 
for the root segment are processed last. 
The compilation of the root segment is 
deferred because information contained in 
Data A-text must be included in the root 
segment and Data A-text is only processed 
after Procedure A-text processing is 
completed. Although the root segment is 
processed last by phase 60, all object text 
for the root segment before the text for 
the nonroot (independent and overlayable) 
segments is written. Nonroot segments 
contain only procedure instructions- The 
TGT, PGT, Report Writer routines, 
Q-routines, and data area for the entire 
program are included in the root segment, 
which is resident in storage throughout 
program execution. 



If the program is segmented, the value 
of the LOCCTR cell in COMMON is saved, and 
LOCCTR itself is set to zero. LOCCTR is 
again set to zero every time the processing 
of a new segment begins. This is because 
LOCCTR points to a location relative to the 
beginning of the object module; since each 
segment is a separate object module, each 
begins at a relative address of zero. 

Procedure A-text is read from the 
direct-access file SYS001 using the segment 
priority table^ (SEGTBL) . For a description 
of how this table is built, see 
"Segmentation Control Breaks" in the 
chapter on phase 51. The table format is 
given in "Section 5. Data Areas." 

In phase 11, the priority numbers of all 
sections in the root segment were set to 
zero. If the SEGMENT-LIMIT clause was 
specified, the root segment consists of all 
sections whose priority number is less than 
the val-.e .-: SEGMENT-LIMIT. If 
SEGMENT-LIMET was not specified, the root 
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segment consists of all segments whose 
priority is less than 50 . 



Routine SEGPROC searches the SEGTBL 
table for the first entry whose priority is 
not zero. It then calls COS in phase 00 
with a request for SEGPNT, passing the 
relative disk address of this section. The 
SEGPNT routine in phase 00 positions the 
access mechanism to the correct address on 
the file (more information on this routine 
is in the phase 00 chapter under "Phase 
Input/Output Requests") . The section of 
Procedure A-text is then read and 
processed. When a segmentation control 
break is encountered in the text, the 
SEGTBL is searched for other sections of 
the same priority. 

Note: A section is a series of source 
program procedure instructions grouped 
under the same section-name. A segment is 
all the instructions whose sections have 
the same priority. A segment may consist 
of one or more sections. There is a SEGTBL 
entry for every section whose priority 
differs from that of the section preceding 
it. 

When all sections of one priority have 
been processed^ the SEGTBL table is 
searched for another nonzero priority, and 
the process is repeated (LOCCTR is set to 
zero each time) . If the SYMDMP or the 
STATE option is in effect, at the end of 
processing for each segment, the final 
LOCCTR value for that segment and the 
priority for the next segment to be 
processed are both written on file SYS002 
for phase 65. As machine instructions are 
generated, object text for the nonroot 
segments is written temporarily on work 
file SYS004. This is done so that the root 
segment can be written first on the output 
file. 

After the last nonroot segment has been 
processed, the LOCCTR cell of COMMON is set 
to the location in the root segment of the 
PGT. Object text is then written from the 
CVIBTB, CONTBL, and CONDIS tables, which 
contain the values of virtuals and literals 
to be stored in the PGT (see "LITERAL 
Allocation" and "VIRTUAL Allocation" in 
this chapter) . Then LOCCTR is set to the 
beginning of the procedure area. of the root 
segment, which was saved in cell LOCPGM, 
and processing of the Procedure A-text for 
the root segment begins. The text is 
located on file SYS001 by finding all 
entries of zero priority in the SEGTBL 
table. 

Object text for the root segment is 
written directly into the output file. The 
object text for the nonroot segments is 
then copied from SYS004 on the output file. 



No procedure or verb names are printed 
on the listing. Instead, the card number 
is printed, and if a card contains more 
than one verb, the object code for each 
verb is accompanied by a number beginning 
with 1 for each card. 



Execution Time Base Register Assignment 



Before Procedure A-text processing 
begins, permanent base registers are 
assigned. Register 12 is always assigned 
to the PGT, and register 13 to the TGT. 
Registers 6 through 11 are available to the 
data area. Of these registers, one is 
permanently assigned to the beginning of 
the Working-Storage Section, and the rest 
to files, in the order in which EDs 
occurred. If any registers are still left, 
they are assigned to the rest of Working 
Storage (if there is any) . If the LISTX, 
SYM, or CLIST option was specified, a list 
of permanently assigned registers and the 
BLs (base locators) associated with them is 
written on SYSLST (or SYS006 for LVL 
option) . At execution time, permanent base 
registers are loaded from the TGT by 
routine INIT3. (Registers through 5 are 
work registers? instructions using these 
registers are generated from the Procedure 
A-rtext.) Registers 11 and 15 are used as 
temporary base registers. 

To assign base registers in procedure 
instructions, phase 60 refers to and 
updates table REGMTX (internal to phase 
60) , which contains an entry for each of 
registers 6 through 11, 14, and 15. Into 
an entry are placed the BL type and BL 
number (the i and k of the idk field of an 
addressing parameter) of the area to which 
the register is currently pointing, and the 
status of the register (that is, how it is 
being used) . When a field of the data area 
is the operand of a procedure instruction, 
table REGMTX is searched for a matching i 
and k. If it is found, this means that the 
register already contains the desired base 
locator, and therefore the register can be 
used in the instruction. 

If no register contains the necessary 
base locator, an instruction is generated 
to load the base locator (which is stored 
in the TGT) into temporary register 14 or 
15. 

When a register is used in an 
instruction, the status portion of the 
REGMTX entry is updated to indicate how it 
is currently being used. Status bits may 
also be updated by the macro-instruction 
type A-text elements produced by Phase 50 
or 51. (See Figure 56 in this chapter.) A 
list of these elements and their meanings 
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appears in the Procedure A-text formats in 
"Section 5, Data Areas.". 



PROCESSING THE RLDTBL TABLE 



PROCESSING DATA A-TEXT, E-TEXT, AND 
DEF-TEXT 



The primary function of Data A-text 
processing is to place values into fields 
of the data area and global tables of the 
object program. Each element results in 
either the writing of an object text 
element or an entry in the RLDTBL. Some 
RLDTBL entries will later be written out as 
relocation dictionary (RLD-text) entries 
for the data area and as object text. 
Others, for the global tables, will be 
written as object text only (these will be 
relocated by the object program) . 

File SYS004, from which Data A-text is 
read, also contains E-text generated by 
phases 10 through 51 and DEF-text for the 
cross-reference listing if the SXREF, XREF, 
VERBREF, or VERBSUM option was specified - 
Figure 57 illustrates the contents of this 
file when it is read by phase 60- Figure 
58 describes how each type of element is 
processed. 



Beginning of File 



Text Description 



j Written By 



DATA A-text 

DEF-text (for data-names and 
file-names) 

E-text (generated by Phases 
10, 20, 21, and 22) 

DEF-text (for procedure-names) 

E-text (generated by Phases 
12, 11, 30, 40, 
50, and 51) 



Phase 21 
Phase 21* .} 

Phase 21** 



Phase 30* 
Phase 51 



End of File 



*Generated only if the SXREF, XREF, 
VERBREF, or VERBSUM option is in 
effect. 
**Phase 21 intermixed these first three 
texts on SYSOOU. There are no 
separations between texts generated by 
different phases. The texts are 
distinguishable solely by their code, 
which is the first byte of each 
element. 

Figure 57. Contents of SYS004 When Read by 
Phase 6 



After an end-of-file condition has been 
reached on file SYS004, the RLDTBL table is 
processed™ Indirect address constants are 
resolved and then the table is sorted in 
ascending order of target address. Object 
text is written for items that are in the 
global tables. This text consists of 
address constant definitions that will be 
stored in the global tables at execution 
time. No RLD-text is required for these 
items, because the addresses are relocated 
during program execution by routine INIT3. 
Object text is also written for data area 
address constants (obtained from address 
constant and indirect address constant 
definitions) - For the data area address 
constants, RLD-text is written so that the 
linkage editor can relocate the addresses- 
See "GETALL routine" in tne "Appendix A. 
Table and Dictionary Handling." 



INITIALIZATION ROUTINES 



After the RLDTBL table has been 
processed,,, the initialization coding is 
generated.. The three initialization 
routines, in the order in which phase 6 
writes them, are INIT2, INIT3, and INITl. 
All three are resident in the root segment 
if the program is segmented. INITl sets up 
address constants for the program's TGT, 
PGT, and first executable instruction, and 
for the three initialization routines- It 
then transfers control to INIT2 if the 
program is a subprogram, or to INIT3 if it 
is not. INIT2 is executed if the program 
is a subprogram or is entered at a 
secondary entry point. It establishes 
standard subroutine linkage. Control then 
passes to INIT3, which sets base registers, 
relocates addresses to absolute values, and 
transfers control to the proper point in 
the program to begin the execution. (For a 
fuller description of these three routines, 
including the generated code, see "Appendix 
B. Object Module.") 
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r T 

I Code I Type 

I- + 



Action Taken 



1 



+ ^ 



00 |E-text I All E-text is built into a table called ERRTBL^ which is passed to 

I ] phase 70. Phase 6 does not process the E-text. If the ERRTBL 

I [table overflows the space allocated to it, it is written on 

I 1SYS003. 

I j There are two types of E-text elements: message definition and 
I I message parameters. Message parameters are optional; however, if 
1 I they occur, one or more message parameters immediately follow the 
I I message definition to which they apply (the uses of these elements 
I 1 are explained in the chapter on phase 70). Phase 60 examines each 
I I element to determine its length, so that the correct number of 
I I bytes may be stored in the table. To do so, it checks the third 
I I byte of the element. If the byte contains a zero, the element is 
j I a message definition whose length is eight bytes. If the third 
I I byte is nonzero,, the element is a m.essage parameter, which is of 
I 1 variable lengthy and the length is determined from the value of 
j I the second byte. See "Section 5. Data Areas" for format of 
I I E-text and the ERRTBL format. 
+ + 

04 I SDTF address | Generate an RLDTBL entry which will cause the address of the SDTF 

I I to be placed in the correct cell of the SDTFADR field of the PGT 

I I at execution time. Get displacement of the SDTFADR field from the 

I 1 SDTF number to compute displacement of cell- Text element 

I I contains the value (relative address of the SDTF) to be placed in 

I I the PGT cell. 

^ + > 

08 I DTF address | Generate an RDLTBL entry which will cause the address of the DTF 

I I to be placed in the correct cell of the DTFADDR field of the TGT 

I I at execution time- Get displacement of the DTFADDR field from 

j I cell DTFNO (see Figure 48 in this chapter) and use the DTF number 

I I to compute displacement of cell. Text element contains the value 

I 1 (relative address of the DTF) to be placed in the cell. 

+ 1 _ 

OC I Block address | Generate an RLDTBL entry which will cause the address of the 

I I buffer to be placed in the correct BL cell of the TGT at execution 

I I time. Get displacement of the BL field from cell BLCTR in COMMON 

I j (see Figure 48 in this chapter) and use the BL number to compute 

I I displacement of the cell. Text elem.ent contains the value 

I 1 (relative address of the buffer) to be placed in the TGT cell. 

I I If the value of the SIZE field of the element exceeds 1024 (SIZE 

I 1 specif ies length of the block in f ullwords) , more than one BL has 

I I been assigned to the buffer. For each 1024-word area after the 

I I first, another RDLTBL entry is made. The second RDLTBL entry will 

I I cause the buffer address + ti096 (TGT addresses are in bytes) to be 

I I placed in the next BL cell of the TGT. 

— + J^. 

14 I FIB address [Generate an RLDTBL entry that will cause the address of the File 

j I Information Block (FIB) to be placed in the correct cell of the 

I I FIB field in tne TGT at execution time. Get displacement of the 

I I FIB field from AMICTR cell in COMMON and use the FIB number to 

I I compute displacement of cell. Text element contains the value 

I I (relative address of the FIB) to be placed in the TGT cell. 



^ + +_ 



J 20 [Data A- text 

L X 



[Generate the COUNT option information. 

-1 



^ 



Figure 58. Processing Data A-text^ E-text, and DEF-text (Part 1 of 2) 
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r T 

I Code I Type 



Action Taken 



H 



24- 



Working-Storage 
Section address 



Generate an RLDTBL entry which will cause the address of the 
Working-Storage Section to be placed in the correct BL cell of the 
TGT at execution timeo Get displacement of the BL field from cell 
BLCTR in COMMOIJ (see Figure 48 in this chapter) and use the BL 
number to compute displacement of the item. Text element contains 
the value (relative address of the Working-Storage Section) to be 
placed in the TGT cell- 

If the value of the SIZE field exceeds 1024 (SIZE specifies the 
length of the Working-Storage Section in f ullwords) , m.ore than one 
BL has been assigned. For each 1024-word area after the firsts 
another RLDTBL entry is made. The second entry will cause the 
address + 4096 (TGT addresses are in bytes) to be placed in the 
next BL cell. 



H 



28 



Constant 

definition 



Write object text which will place the value of the constant 
into a specified location in the data area at execution time. 
This type of element is used to fill some fields of SDTFs and DTFs 
and to initialize data items for which a VALUE clause was 
specified. 



2C 



Address 

constant 

definition 



Generate an RLDTBL table entry which will permit the linkage 
editor to insert the desired address at the correct location. 



30 



(Not used) 



--I 



34 



Q-routine 
identification 



-+- 



This type of element contains a GN number for a Q-routine. 
The elements are built into a table called QTBL. Each entry is 
resolved so that it contains the actual address of the routine 
rather than simply the GN number. This processing is identical to 
that for GN references in Procedure A-text (see Figure 56). When 
phase 60 generates the code for INIT3 (one of the initialization 
routines) , it uses the QTBL table to generate a call to every 
Q-routine in order to initialize the data and table areas affected 
by OCCURS DEPENDING ON data items. 



H 



38 



BL reference 



Generate an RLDTBL entry that will cause the displacement in the 
TGT of the BL number assigned to VSAM files to be placed in a 
specified location of the data area at execution time. 



3C 



BLL reference 



Generate an RLDTBL entry that will cause the displacement in the 
TGT of the BLL numbers assigned to VSAM files in the Linkage 
Section to be placed in a specified location of the data area at 
execution time. This type of element is used to complete the 
building of the FIB at execution time. 



48 



Data name or 

file-name 

DEF-text 



These elements are present only if the SXREF, XREF, VERBREF, or 
VERBSUM option was specified. Each element is written out as 
it is encountered on file SYSOOl, to be read by phase 61. The 
phase 61 chapter describes how these elements are used. 



4C 



Procedure name 
DEF-text 



These elements are present only if the SXREF, VERBREF, XREF, or 
VERBSUM option was specified. Each element is written out as it 
is encountered on file SYS003, to be read by phase 61. The 
chapter on phase 61 describes how these elements are to be used. 

L X J. 

Figure 58. Processing Data A-text, E-text, and DEF-text (Part 2 of 2) 
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PHASE 65 



The function of phase 65 (ILACBL65) is 
to produce debugging information which is 
used by object-time COBOL library debugging 
subroutines. For information about the 
object-time COBOL library subroutines, see 
the publication IBM DQS/VS COBOL Subroutine 
Library, Program Logic , Order 
No. LY28-6424. The phase is given control 
only if the flow trace (FLOW) , statement 
number (STATE), or symbolic debug (SYMDMP) 
compiler options are specified by the user 
on the CBL card. The transfer of control 
to phase 65 is described in "Processing 
Between Phases" in the chapter "Phase 00." 
The operations of phase 65 are described in 
Diagram 6. 



PROCESSING THE FLOW OPTION 



If FLOW is specified, phase 65 obtains 
the number of traces requested (n[n3) from 
the FLOWSZ cell in COMMON. The number is 
stored in the first byte of the DEBUG TABLE 
in the TGT. Phase 65 allocates space for 
the FLOW trace table in the object module 
following INIT3 and saves the address of 
the beginning of the table in the DEBUG 
TABLE in the TGT. If the number of traces 
requested is zero, no space is allocated. 
For the FLOW option, the PNCHSW routine 
writes the flow trace information in the 
DEBUG TABLE and the END card. Further 
processing for the FLOW option is discussed 
in "Final Processing" later in the chapter. 



C OMMON PROCESSING FOR THE STATE AND THE 
SYMDMP OPTIONS 



PROCESSING DEBUG-TEXT 



Routines GETF2 and RDF2 locate and read 
the Debug-text, which is passed to Phase 65 
on file SYS002. Debug-text consists of the 
following elements: 



• CARDLOC elements (10), which contain 
COBOL source card numbers , a switch to 
indicate the presence or absence of a 
verb on the card, and the contents of 
LOCCTR in COMMON when the card number 
element was read by phase 60. 

• ENDSEG elements (20), which signal the 
end of a segment. 

• SEGMENT elements (30) , which signal the 
beginning of a segment. 

• DISCONTINUITY elements (40), which 
signal a discontinuity in the card 
numbers of the source program resulting 
from combining two sections of equal 
priority with intervening section (s) of 
different priority. 

The Debug-text elements are directly 
involved in the creation of the PROCTAB, 
SEGINDX, and CARDINDX tables. 

The F2PR0CS branch table is used to 
branch to one of four routines which 
control the processing for the elements - 
Routine TENPROC controls processing for 
CARDLOC elements; routine TWENPROC controls 
processing for ENDSEG elements; routine 
SEGINDX controls processing for Segment 
elements; and routine FRTYPROC controls 
processing for Discontinuity elements. 



For the STATE or the SYMDMP option, 
phase 60 created Debug-text, which is used 
by phase 65 to produce tables that provide 
information needed by the STATE or SYMDMP 
COBOL library subroutines. Phase 65 builds 
the PROCTAB and SEGINDX tables for either 
option. For the STATE option, the PROCTAB 
and SEGINDX tables are written in the 
object module; for the SYMDMP option, they 
are written on the debug file. The 
CARDINDX, PROCINDX, and PROSUM tables are 
created only for the SYMDMP option and are 
written on the debug file. The OBODOTAB 
and DATATAB tables have already been 
created for the SYMDMP option by phase 25. 



BUILDING THE PROCTAB TABLE 



Routine TENPROC builds the PROCTAB 
entries from the information in the CARDLOC 
elements. Each PROCTAB entry contains the 
relative address of the first instruction 
generated for the card and verb number in 
the entry- Phase 65 divides any program or 
segment which exceeds 64K bytes in size 
into program fragments less than 64K bytes 
in length. Each segment also begins a new 
program fragment. 
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BUILDING THE SEGINDX TABLE 



BUILDING THE CARDINDX TABLE 



A SEGINDX entry is created for each 
fragment of the program. 

If routine TENPROC determines that the 
code generated for the last verb causes the 
current fragment to exceed the maximum size 
of a fragment (64K bytes), it calls routine 
GTEQIOK to handle the processing for end of 
the fragment. Routine GTEQIOK calls 
routine SNF to start the nev? fragment make 
a SEGINDX table entry for the old fragment, 
and begin collecting information for the 
next SEGINDX table entry.. 

In a segmented program, the end of a 
segment or^, in a non-segmented program, the 
end of the Procedure Division is signalled 
by an ENDSEG element (20). When routine 
RDF2 reads an ENDSEG element, it calls 
routine TWENPROC to process the end of the 
segment. 



The CARDINDX table contains an entry for 
each fragment of the program and for each 
discontinuity in the COBOL instructions 
within a segment of the program. 

The discontinuity elements in Debug-text 
indicate the discontinuity in COBOL source 
card numbers at the end of each 
non-contiguous section. 

When routine RDF2 reads a Discontinuity 
element (40), it branches to routine 
FRTYPROC which sets a switch indicating 
that special processing is to be done for 
the end-of-section. 

CARDINDX entries are created for 
discontinuity within segments and for each 
program segment. 



BUILDING THE PROCINDX TABLE 



FURTHER PROCESSING FOR THE STATE OPTION 



If STATE is specified, the PROCTAB and 
SEGINDX tables are created and written in 
the object module as described above. 
Addresses passed in the TGTADTBL table are 
used in writing the PROCTAB and SEGINDX 
tables in the object module. The TXPNCH 
routine writes the PROCTAB table in the 
object module following either INIT3 or the 
Flow Trace table if space has been 
allocated for it. At end of file on 
SYS002, routine E0F2 writes the SEGINDX 
table in ascending order of priority after 
the PROCTAB table in the object module. 
The addresses of the beginnings of the 
PROCTAB and SEGINDX tables and of the end 
of the SEGINDX table are saved in the DEBUG 
TABLE in the TGT. 

The discussion of processing for the 
STATE option continues in "Final 
Processing" later in the chapter. 



FURTHER PROCESSING FOR THE SYMDMP OPTION 



If SYMDMP is specified, phase 65 builds 
the CARDINDX, PROCINDX, and PROGSUM tables 
for the debug file. Processing for the 
CARDINDX and PROCINDX tables occurs in 
conjunction with processing for the PROCTAB 
and SEGINDX tables. The PROGSUM table is 
processed after the other tables have been 
written on the debug file. 



Before routine TXPNCri moves a PROCTAB 
element into the SYS005 buffer, it 
determines whether the buffer is full. If 
the buffer is full, it calls phase 00 to 
write the buffer and builds a PROCINDX 
entry providing card and verb number 
information about the first entry in the 
block and the note address of the block 
after it has been written- 



DEBUG FILE PROCESSING 



The TXPNCH routine writes the PROCTAB 
table on the debug file at the beginning of 
a new block. 

At end of file on SYS002 control is 
transferred to the E0F0N2 routine to 
collect information about the number of 
entries in each of the CARDINDX, SEGINDX 
and PROCINDX tables. It stores this 
information for the PROGSUM table in the 
CARDINUM, SEGINUM, and PROCNUM save areas, 
respectively. It then sorts the CARDINDX 
table in order of ascending card number and 
the SEGINDX table in order of ascending 
priority. 

Routine E0F0N2 then moves the CARDINDX, 
SEGINDX, and PROCINDX tables (in that 
order) to the buffer for the debug file 
(SYS005). (These tables are written on the 
debug file, beginning at a new block.) 
Routine E0F0N2 saves the displacement 
within the buffer of the start of the 
SEGINDX and PROCINDX tables in the SEGDISPL 
and PROCDISPL save areas, respectively. 
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This information becomes part of the 
PROGSUM table. 

Routine E0F0N2 then calls phase 00 to 
write the tables and note those blocks 
which contain the beginning of a table. 
Routine E0F0N2 saves the note information 
in the CARDNOTE, SEGNOTE, and PROCNOTE save 
areas for the PROGSUM table. 



sets the DEBUG TABLE PTR in the TGT. If an 
error has occurred, the DEBUG TABLE PTR is 
set to zero. The DEBUG TABLE is created 
from information produced during phase 65 
processing and from information in the 
TGTADTBL table, and it is written in the 
TGT. Finally, the END card for the program 
is written in the object module. 



All the information gathered by routine 
E0F0N2 is entered in the PROGSUM table. 

If the debug file is located on disk, 
the first 512-byte record is read back into 
the buffer, and the PROGSUM table is moved 
into the first 84-byte field. The record 
lis then rewritten on the disk. 

If the debug file is located on tape, 
routine ENDOFTBL writes the end of file 
mark, and repositions both SYS005 and 
SYS002 to the first record. It reads the 
first 512-byte record of SYS005 into the 
buffer and inserts the PROGSUM table in the 
first 84 bytes. It writes the buffer on 
file SYS002 and copies the remainder of 
file SYS005 to file SYS002. Then it 
recopies file SYS002 onto file SYS005. 



FINAL PROCESSING 



For any of the options, routine PNCHSW 
sets the fullword SWITCH in the TGT to 
reflect the options in effect and it also 



For segmented programs the root segment, 
written on SYSLNK by phase 60, is completed 
by phase 65; the independent segments are 
copied on SYSLNK from SYS004 where they 
were written by phase 60. For 
non-segmented programs that use the 
SORT/MERGE verb, phase 65 writes PHASE and 
text cards for a dummy SORT/MERGE 
subroutine load point on SYSLNK. For 
segmented programs that use the SORT/MERGE 
verb, the PHASE and INCLUDE cards are 
copied on SYSLNK from SYS004 where they 
were written by phase 60. 

Routine ENDCODE releases all tables and 
determines whether the compiler options 
specified by the user require phase 00 to 
call phase 61 or phase 70 or whether the 
compilation is complete. Phase 61 is 
called if the SXREF, VERBREF, VERBSUM or 
XREF option was specified. Phase 7 is 
called if the highest severity message 
produced during compilation matches the 
user's specification (FLAGE or FLAGW) . 

Phase 65 returns control to phase 00 
either to call the next phase or to process 
for the end of the job. 
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PHASE 6 2 



Phase 62 is first phase of the three 
phases that make up the optimizer section 
of the compiler. It begins the work 
necessary to produce the machine language 
program optimized for procedure name 
addressability and for register usage and 
suitable for input the linkage editor.. 

The optimizer phases of the compiler 
(phases 62;, 63, and 64) employ a method for 
addressing most procedure-names (PNs and 
GNs) in the completed machine language 
program which differs from the method 
employed by phase 60- Phase 60 places the 
address of the definition point of each 
referenced procedure-name (PNs and GNs) 
into the PROCEDURE NAME and GENERATED NAME 
cells of the Program Global Table (PGT), 
Each time that one of these procedure-names 
is referenced, a load instruction of the PN 
or GN address is generated. This 
instruction is followed by an RR-type 
branch instruction. 

The optimizer phases divide the 
Procedure Division code into blocks of 
approximately 4095 bytes in length. These 
blocks are referred to as Procedure Blocks. 
Procedure-names (PNs and GNs) are addressed 
as displacements added to a base register 
(register 11) containing the address of the 
beginning of a Procedure Block- Register 
11 must be loaded with the Procedure Block 
address when addressability is needed for 
the Procedure Block. Addressability must 
be established only when a reference is 
made to a PN or GN whose Procedure Block 
address is not the same as the one 
currently contained in register 11, or 
whenever the contents of register 11 cannot 
be known (see "Phase 5 Optimization 
Elements" under "Procedure A-text" in 
"Section 5- Data Areas"). 

The optimizer phases, eliminate the need 
to generate most of the instructions to 
load the addresses of the PNs and GNs from 
the PGT and instead of the RR-type branch 
instructions generate RX-type branch 
instructions- The optimizer phases also 
eliminate the need for most PROCEDURE NAME 
and GENERATED NAME cells from the PGT. 

The optimizer phases optimize load 
instructions for base locators (BLs, BLLs, 
and SBLs) Xn the TGT and the PGT and 
OVERFLOW cells by permanently loading the 
OVERFLOW cells and then the most frequently 
used base locators into registers 6 through 
10. Since phases 62, 63 and 64 eliminate 
most of the GN and PN cells, there are 
fewer OVERFLOW cells in a program where OPT 



has been specified than there are in a 
program without the OPT option. Other base 
locators are loaded into register 14 or 
register 15 on a temporary basis. See 
"Optimizing Register Assignments" below. 

Phase 62 is divided into several parts, 
each of which performs specific functions.. 
The functions are: 

• Determining object program storage 
allocation for the Task Global Table 
(TGT) by processing counters in COMMON 
and calculating the displacements of 
items which reside in the TGT at 
execution time. 

• Optimizing literals and virtuals by 
processing Optimization A-text. 
Determining storage allocation in the 
Program Global Table (PGT) for these 
items and for the procedure name (PN) 
and generated procedure name (GN) 
cells. 

• If the program is segmented, reading 
the segments in order of ascending 
priority. 

• Determining approximate object program 
storage for the Procedure Division by 
reading Procedure A-text and 
calculating the Procedure Block number 
in which each procedure-name (PN or GN) 
is located. 

• Optimizing usage for both permanent and 
temporary register assignments - 

The operations of Phase 62 are described 
in Diagram 7. 



OUTPUT OF PHASE 62 



The output of phase 62 depends on the 
options specified by the user. The LISTX, 
CLIST, LINK (or CATAL) , and DECK options 
are processed by phase 62 in the same way 
as they are processed by phase 60. . 

If the LISTX, CLIST, or SYM options have 
been specified, phase 62 causes the TGT, 
Literal Pool, PGT, ^and register assignments 
to be written on SYSLST (or SYS006 for LVL 
option) . Phase 64 causes the object 
program listings produced for the LISTX and 
CLIST options to be written on SYSLST (or 
SYS006 for LVL option). Phase 64 also 
passes XREF-text to phase 61 if the user 
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specified the SXREF, XREF, VERBREF, or 
VERBSUM option. 

For details see "Output of Phase 6 0" in 
the chapter "Phase 60." 



ALLOCATING STORAGE FOR THE TASK GLOBAL 
TABLE (TGT) 



DTF Virtuals and VN Priority Table 



Phase 62 builds the FILTBL table to 
store the virtuals needed for input/output 
and error-processing routines as well as 
the VN priority (VNTPY) table in the same 
way that phase 60 does. For details see 
"Virtual References Definitions: FILTBL 
Table" and "Building the VN Table" in the 
chapter "Phase 60." 



Phase 62 calculates the length of the 
Task Global Table (TGT) in the same manner 
as phase 60 does. It receives the relative 
address of the TGT from phases 22 and 21 in 
LOCCTR; and it computes the length of the 
variable-length fields of the TGT from the 
counters in COMMON. In addition to the 
fields which both phase 60 and phase 6 2 
allocate, phase 62 initializes a fullword 
to the address of the first Procedure Block 
cell in the PGT. For more details on the 
general functioning of this part of phase 
62, see "Task Global Table Storage 
Allocation" in the chapter "Phase 6 0." See 
also Figure 48 for a description of the 
counters in COMMON used by this phase. 



Optimizing Literals and DISPLAY Literals 



Phase 62 builds the CONTBL, CONDIS, and 
LTLTBL tables to optimize for internal 
literals and DISPLAY literals in the same 
way as phase 60 does. The CONTEL table is 
used to eliminate duplicate internal 
literals; and the CONDIS table is used to 
eliminate duplicate DISPLAY literals. The 
LTLTBL table contains the displacements of 
individual literals within their respective 
tables. It is used later in the phase to 
calculate the relative address of each 
literal and DISPLAY literal in the PGT of 
the completed object program. For details 
see "Optimizing Literals and DISPLAY 
Literals" in the chapter "Phase 60." 



OPTIMIZING AND ALLOCATING STORAGE FOR THE 
PROGRAM GLOBAL TABLE (PGT) 



Optimizing Virtuals 



Phase 62 optimizes the fields of the 
Program Global Table (PGT) by eliminating 
duplications which may have been generated 
by earlier phases. It also calculates the 
lengths of the optimized fields so that 
storage requirements for the PGT may be 
determined. 



OPTIMIZING AND BUILDING TABLES 



While optimizing for the PGT, Phase 62 
reads Optimization A-text from file SYS0 03 
and merges its information with information 
from tables and counters built by earlier 
phases. This information is used to: 

• Process DTF virtuals. 

• Build the VN priority (VNPTY) table. 

• Optimize and calculate storage 
requirements for literals, DISPLAY 
literals, and virtuals. 

• Build the BLVNTBL, PNATBL, and GNATBL 
tables. 



Phase 62 builds the CVIRTB table and the 
VIRPTR table to optimize for virtuals (that 
is, names in EBCDIC of called programs or 
of object-time COBOL library subroutines) 
in the same way as phase 6 does. The 
CVIRTB table is used to eliminate duplicate 
virtuals, and the VIRPTR table contains the 
displacements of individual virtuals in the 
CVIRTB table. It is used later in the 
phase to calculate the relative address of 
each virtual in the PGT of the completed 
object program. For details see 
"Optimizing Virtuals" in the chapter "Phase 
60." 



Processing for PNs and GNs 



Phase 6 2 builds four tables for PN and 
GN processing for the PGT. These are the 
BLVNTBL, VNPNTBL, PNATBL and GNATBL tables. 
Routine VNPNSCRT builds the VNPNTBL table 
from the VN EQUATE PN or VN EQUATE GN 
elements of Optimization A-text. 

Routine GNVNRTN builds the BLVNTBL table 
from GN and VN perform elements. Routine 
PGNARTN builds the PNATBL and GNATBL 
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tables. These tables list the PNs and GNs 
for which address cells are required in the 
PGT. 



ALLOCATING STORAGE FOR THE PGT 



When all Optimization A-text has been 
read, storage is allocated for the PGT, 
ESD cards and TXT cards are produced for 
virtuals and literals. Counters in COMMON 
are set to the displacements of their 
corresponding PGT fields from the beginning 
of the PGT« 

If the LISTX, CLIST or SYM options are 
specified, the format of the PGT is written 
on SYSLST (SYS006 for LVL option) usina 
routine MAPLOC (if the SUPMAP condition 
exists, this writing does not take place), 

OVERFLOW Allocation : Preliminary 
calculations are made to determine whether 
the size of the PGT exceeds 4096 bytes. If 
it does, one 4-byte OVERFLOW cell is 
required for each U096-byte area after the 
first. Since OVERFLOW cell allocation 
occurs before the first reading of 
Procedure A-Text in this phase, this part 
of phase 6 2 cannot determine the number of 
PROCEDURE BLOCK cells that are required in 
the PGT. Therefore, it allocates one 
additional OVERFLOW cell to allow for the 
possibility that allocation of the 
PROCEDURE BLOCK cells may cause the PGT to 
exceed the final 4 096-byte area that has 
already been determined. The number of 
bytes required is placed in register RWl, 
which is used throughout PGT allocation to 
hold the displacement of the field 
currently being processed, 

VIRTUAL Allocation ; Phase 62 allocates 
storage for the VIRTUAL cells field of the 
PGT in the same way that Phase 60 does. 
The displacement of the VIRTUAL cells field 
from the beginning of the PGT is placed in 
the VIRCTR cell in COMMON; the calculated 
length of the field is added to the 
contents of register RWl; the displacements 
of the individual virtuals in the VIRTUAL 
field are placed in their respective VIRPTR 
table entries. For details see "VIRTUAL 
Allocation" in the chapter "Phase 6 0," 



PN Allocation: 



After the VIRTUAL cells 



field has been processed, the value in 
register RWl is the displacement of the PN 
field in the PGT. This value is saved in 
the RPNCNTR cell of COMMON. 

Only those PNs which follow TO PROCEED 
TO in an ALTER statement and section-names 
defined in a USE statement in the 
Declaratives Section require PN cells in 
the PGT. Phase 51 sets the RPNCNTR counter 



in COMMON to the number of cells required- 
Phase 6 2 uses the RPNCNTR counter to 
allocate U bytes for each PN. The total 
length of the PN field is then added to 
register RWl, 



GN Allocation: 



After the PN cells field 



has been processed, the value in register 
RWl is the displacement of the GN field in 
the PGT, This value is saved in the RGNCTR 
cell in COMMON. 

Only those GNs which are used in 
instructions for an AT END phrase or an 
INVALID KEY option require GN cells in the 
PGT. Phase 51 sets the RGNCTR counter in 
COMMON to the number of cells required. 
Phase 6 2 uses the RGNCTR counter to 
allocate 4 bytes for each GN.. The total 
length of the GN field is then added to 
register RW1« 

SDTFADR Allocation : The SDTFADR cell in 
COMMON is used to determine the storage 
requirements for the SDTFADR ADDRESS cells 
of the PGT- Four bytes are reserved for 
each SDTF in the program. The cell is set 
to the value of register RWl, and register 
RWl is then incremented to reflect the 
allocated bytes. 

VNI Allocation : The VNCTR cell of COMMON 
was used by earlier phases to count the 
number of variable procedure names in the 
program. The value of VNCTR is moved to 
the VNILOC cell of COMMON, Fom VNILOC, 
four bytes are allocated for every VN, The 
displacement of the VNI field (the value of 
RWl) is placed in the VNILOC cell, and the 
number of bytes allocated is added to RWl. 

LITERAL Allocation : Phase 62 allocates 
storage for the LITERAL field in the PGT in 
the same way that Phase 6 does. The 
displacement of the LITERAL field is placed 
in the LTLCTR cell in COMMON; the 
calculated length of the field is added to 
the contents of RWl; and the LTLTBL table 
is saved for Procedure A-text processing. 
For details, see "LITERAL Allocation" in 
the chapter "Phase 60," 



PROCEDURE BLOCK Allocation: 



Phase 62 does 



not allocate storage for the PROCEDURE 
BLOCK cells until after it reads and 
processes Procedure A-Text. It reads 
Procedure A-Text to determine the number of 
blocks, containing approximately 4096 bytes 
of storage, that are required for the 
optimized Procedure Division, For details 
on the phase 62 optimization of Procedure 
A-text, see "Optimizing and Allocating 
Storage for the Procedure Division" later 
in this chapter. 

After the allocation of storage for the 
other fields of the PGT, the value in 
register RWl is the displacement of the 
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PROCEDURE BLOCK cells field in the PGT, 
This value is saved in the PRBLDISP cell of 
COMMON. After Procedure A-text processing ^ 
phase 62, using the PROCBL counter, 
allocates one 4-byte field for each 
Procedure Block, 



short blocks of object code only. While 
Procedure A-text is being read, routines 
ENTDRP and ENTDRPL build the DRPTEL and 
DRPLTBL tables, respectively, to optimize 
the assignment of these registers. 



OPTIMIZING REGISTER ASSIGNMENTS 



Seven registers are used by the compiler 
to address Data Division items or overflow 
cells in the machine language program. 
Registers 6 through 10 are assigned 
permanently, that is, for the entire object 
program; registers 14 and 15 are assigned 
on a temporary basis, that is, for single 
instructions or for short sections of code 
only. Phase 62 assigns registers 6 through 
9 before Procedure A-text is read, and 
register 10 after Procedure A-text is read. 
Use of registers 14 and 15 is determined as 
Procedure A-text is processed. 
Optimization takes place for both permanent 
and temporary register assignments. 



Phase 62 optimizes the assignment of 
temporary registers by avoiding 
unnecessaryrepetition of load instructions. 
To do this, it assigns the first two unique 
base locators referenced in Procedure 
A-Text to registers 14 and 15 by making 
entries in the DRPLTBL table. It builds 
the DRPTBL table from the subsequent base 
locators referenced until a condition is 
met which makes resolution of register 
assignment possible. These conditions are 
as follows: 



A reference to a base locator whose 
previous assignment to a register is 
still in effect. 



• A referenced PN, a GN, or the entry 
point of a new program segment. 



PERMANENT REGISTER ASSIGNMENTS 



Phase 62 builds the BLASGTBL table for 
permanent register assignments. Before 
Procedure A-text is read, routine REGMVl 
first assigns the OVERFLOW cells of the TGT 
and the PGT to permanent registers, 
starting with register 6, except for the 
OVERFLOW cell. Register 12 points to the 
PGT permanent register. Next, routine 
BLSRCH searches the BLUSTBL table, built by 
phases 5 and 51, to determine the base 
locator most frequently referred to. That 
base locator is assigned to the next 
unassigned register. The process is 
repeated until each of registers 6 through 
9 have been assigned. After Procedure 
A-text has been read, register 10 is 
assigned to the next most frequently 
referenced base locator if it is not needed 
for the additional OVERFLOW cell of the 
PGT. 



TEMPORARY REGISTER ASSIGNMENTS 



Registers 14 and 15 are assigned to base 
locators for single instructions or for 



The base locator which will be 
permanently assigned to register 10 if 
that register is not needed for the 
extra OVERFLOW cell of the PGT. 



• A RESERVE, DESTROY, FREE, or ELCHNG 
element. 



Figure 59 exemplifies the optimizing 
process for base locator assignments to 
registers 14 and 15. 



Phase 62 builds the DRPLTBL table for 
address incfrement elements as well as for 
address references. DRPLTBL table 
processing for address increments is done 
only if the increment is greater than 4095, 
in which case an additional generated 
instruction is needed to load the address 
of the data-name plus the address 
increment, which is at least 4096 bytes, 
into temporary register 14 or 15. Phase 62 
adds 4 bytes to ACCUMCTR for each such LA 
instruction needed. The DRPLTBL entry for 
an address increment indicates to phase 63 
which temporary register to use in the RX 
field of the LA instruction being 
generated. 
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Steps 


© 
© 
© 
© 
© 
© 
© 
© 



(15 

® 

® 

© 
@ 

© 



Temporary BLs 
BL=6 



DRPTBL 



BL=7 

BL=8 

BL=10 

BL=6 

BL=10 

BL=11 

BL=12 



BL=5*** 



BL=6 

BL=10 

BL=7 

BL=10 

BL=12 



-> 8 
-> 10 



-> 11 

-> 12 



-> 7 



-> 12 



© 



© 



© 



© 



Entry point (referenced PN or GN definition or new segment) 



DRPLTBL 

-> R14* 

-> R15* 

-> R15* 

-> R15* 

-> R14** 

-> R15** 

-> R14* 

-> R14* 

-> R14* 

-> Rm* 

-> R15* 

-> R14* 

-> R15** 

-> R14* 



♦Indicates that a load instruction is generated for this assignment by phase 63. 
♦♦Indicates that the BL is already loaded and that no load instruction is generated by 
phase 63. 
***BL=5 is the base locator that will be loaded into register 10 if the additional 

OVERFLOW CELL for the PGT is not required. 
t 

Figure 59. Optimizing Assignment of Registers 14 and 15 



OPTIMIZING AND ALLOCATING STORAGE FOR THE 
PROCEDURE DIVISION 



Whenever a PN or GN is referred to in an 
instruction, a check is made to determine 
whether the address of the Procedure Block 
that contains the PN or GN has already been 
loaded into register 11. If it has not 
been loaded r then an instruction is 
generated to load the address of the 
Procedure Block into register 11. 

As phase 62 reads Procedure A-text, it 
determines the Procedure Block number for 
each PN arid GN and builds the PNLABTBL and 
GNLABTBL tables. These tables are passed 
to phase 63, which generates the actual 
instructions necessary for establishing 
addressability . 

To build the PNLABTBL and GNLABTBL 
tables phase 62 uses a counter, called 
ACCOMCTR, to generate displacements within 
Procedure Blocks. This counter is 
incremented with the length of each 



instruction occurring in the completed 
object program. Phase 62 uses ACCDMCTR to 
determine when the displacement of the 
definition of a GN or PN from the beginning 
of the Procedure Block exceeds 4095 bytes. 
When the displacement is greater than 4 095 
bytes, a new Procedure Block is begun. 



Phase 62 also builds the PNFWDBTB and 
GNFWDBTB tables for all PN»s and GN»s which 
are referred to prior to their definition 
point. Since it cannot be determined 
whether the reference and the definition 
occur within the same Procedure Block, it 
is not possible to determine whether the 
Procedure Block address of the definition 
is already loaded into register 11 at the 
point where the reference is made to it. 
The forward branch tables (PNFWDBTB and 
GNFWDBTB) are used to accumulate the number 
of forward references to PNs and GNs, 
respectively, which may or may not be 
defined in a different Procedure Block. As 
a PN or GN definition is encountered which 
has been entered into the PNFWDBTB or 
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GNFWDBTB table, the counter for that PN or 
GN is set to zero. 

Since references to PN"s and GN»s which 
have not yet been defined may entail an 
additional instruction to load the 
Procedure Block address of a different 
block, the number of bytes represented by 
the counters in the PNPWDBTB and GNFWDBTB 
tables must be added to the displacement in 
ACCUMCTR to determine the current length of 
the block* 



Buildincr the PWLABTBL and GNLABTBL Tables 



Phase 62 sets a counter, called PROCBL, 
for use in building the PT^^LABTBL and 
GNLABTBL tables. PPOCBL is incremented for 
each procedure Block. The value contained 
in PROCBL is the Procedure Block number for 
the current block of code. Using PROCBL, 
phase 52 enters the Procedure Block number 
of each referenced PN and GN definition 
into the PNLABTBL and GNLABTBL tables for 
use by phase 63. 

Routine NOBLST uses the PNCTR and GNCTR 
cells in COMMON to determine the number of 
PN entries and GN entries, respectively, 
that are required in the PNLABTBL and 
GNLABTBL tables. 



Incrementing the ACCUMCTR Counter 



As phase 62 reads Procedure A-text, it 
increments ACCUMCTR by the length of each 
machine-language instruction that is part 
of the completed object program. For this 
purpose it uses the codes listed in Figure 
60, as well as Procedure A-text, and the 
PNLABTBL, GNLABTBL, PNFWDBTB, and GNFWDBTB 
tables. 

Since the optimizer phases of the 
compiler use Procedure Block addresses to 
address PNs and GNs, these phases eliminate 
and change some of the instructions in 
Procedure A-text. Phase 62, therefore, 
determines which instructions are to be 
eliminated or changed during the 



optimization process. Phase 62 then 
increments ACCUMCTR accordingly. The 
PNLABTBL and GNLABTBL tables, as well as 
the PNFWDBTB and GNFWDBTB tables and the 
PROCBL counter are used for this purpose. 

PROCESSING FOR BRANCH INSTRUCTIONS : The 
PROCBL counter contains the number of 
Procedure Blocks that are required for the 
Procedure Division. Each time that 
ACCUMCTR and the information in the 
PNFWDBTB and GNFWDBTB tables indicate that 
a PN or GN definition is at a location 
greater than tj095 bytes from the start of 
the Procedure Block, block transition takes 
place. The PROCBL counter is incremented 
and ACCUMCTR is set to zero. Using the 
PROCBL counter, routine DEFLD11 enters the 
Procedure Block number of each PN or GN 
definition into the PNLABTBL and GNLABTBL 
tables, respectively. 

When a branch is taken to a PN or GN 
within the Procedure Block whose address is 
already loaded into register 11, 4 bytes 
are added to ACCUMCTR for the RX-type 
branch instruction. When a branch is taken 
to a PN or GN whose Procedure Block is not 
already loaded into register 11, 8 bytes 
are added to the ACCUMCTR tor the load of 
the Procedure Block address and the RX-type 
branch instruction. 

Each time that routine ENTPT01 processes 
a PN or GN definition, it determines 
whether the value in ACCUMCTR plus the 
number of bytes necessary to branch to the 
procedure names listed in the FWDBCTEL 
tables is greater than 4095 bytes. If it 
is not, then Procedure A-text processing 
continues. If it is, then the routine 
determines whether the definition being 
processed has a count of forward references 
in the PNFWDBTB or GNFWDBTB table. If it 
does not, a new procedure block begins at 
this definition point. If a count is 
found, however, the number of bytes 
represented by the count is compared to the 
number of bytes in ACCUMCTR minus 4096. If 
the count value' is low, a new procedure 
block begins at this definition point. If 
it is high, the count field is zeroed and 
this definition point remains within the 
current block. Phase 62 then makes new 
calculations to determine the size of the 
Procedure Block. 
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[ [ [ ACTION TAKEN BY [ 


[CODE[ Definition Status | PHASE 62' [ PHASE 63 | PHASE 64 [ 
II 1 1 1 1 


II i 1 1 1 
[C001[Load instruction not [III 
1 [followed by branch in-| I j I 
1 [struction. till 


III 1 1 I 

[ 1 A Procedure-name was [Add 4 to ACCUMCTR. [Set C001 switch; [Fill in displace- [ 
1 1 defined in same [ [replace L instruc- [ment using PNLBDTBL [ 
I j Procedure Block. | [tion with LA in- [or GNLBDTBL table [ 

I [ I [struction. Add [and Procedure base [ 
[ [ [ [Procedure base [register element. i j 
[ [ [ [register element. i [ | 
[ 1 [ [Add 4 to counters. [ [ 

II I [Do not rewrite | [ 
1 1 1 [COOL I I 


[ 1 B Procedure-name was [Add 3 to ACCUMCTR. [Set C001 switch; [Fill in displace- | 
[ [ defined in differ- [ [generate: L Rll, [ment of Procedure | 
[ 1 ent Procedure [ [Procedure block [Block in PGT using [ 
[ 1 Block. [ [number element. 2 [Procedure block [ 
I I [ [Generate LA in- [number element. 2 [ 
1 1 [ [struction. [Fill in displace- j 
I I I [Add Procedure base [ment of procedure- [ 
1 [ I [register element. * [name using PNLBDTBL [ 

I 1 1 [Add 8 to counters, [or GNLBDTBL table [ 
[ 1 [ [Do not rewrite [and Procedure base | 
[ 1 1 [COOL [register element.* | 

II 1 1 1 1 


II 1 1 1 1 
[ 1 C Procedure-name is [Enter procedure- | [ [ 
1 [ not yet defined [name in PNFWDBTB or | [ I 
[ [ (forward [GNFWDBTB table. [ [ [ 
[ [ reference) . [Resolve procedure- | I I 
I 1 [name definition j [ I 
[ [ [status by end of [ [ I 

I 1 [Procedure Block. | [ I 

II 1 1 1 1 


[Notes: 1 


1 1 Procedure Base Register Element: I 

I Bytes 1 2-3 [ 
1 1 • I 1 1 1 


1 1 C8 = PN 1 [ [ 1 
1 I CC = GN 1 Register number [ PN/GN Number [ | 
1 I . . > ■ ■ t 


[ 2pi:ocedure Block Number Element: [ 
1 Bytes 4 [ 


1 1 C4 I Block Number [ I 
1 1 . . . _„. . 1 . } 1 


[ 3These phase 50 Optimization Information elements (COxx) are created by phase 50 from [ 
1 phase 40 Optimization Information elements (43xx) . [ 



Figure 60. Processing for Optimization Information Elements^ (Part 1 of 3) 



Phase 62 135 



Licensed Material - Property of IBM 



CODE 



MEANING/Procedure-Name 
Definition Status 



ACTION TAKEN BY 



PRASE 62 



PHASE 63 



PHASE 64 



C002 



Branch-in point. 

(Addressability for 
Procedure Block is 
uncertain.) 



Add 4 to ACCUMCTR. | Indicate that Pro- 
Icedure Block 
I address is to be 
I loaded at next re- 
jference to PN or 
|GN. Do not rewrite 
IC002. 

1 

Add 4 to ACCUMCTR. |Write Procedure A1- 
Itext element iden- 
jtical to Procedure 
|A-text element. 
I Add 4 to counters. 
I Do not rewrite 
IC003. 
•+- 



COOS 



An address constant is 
to be used for this 
element; PGT to con- 
tain a PN cell or GN 
cell. 



Process PN or GN 
reference as in 
phase 60. 



C004 



PERFORM exit. 



Pind all entries in 
the BLVNTBL for the 
VN whose reference 
follows this ele- 
ment . Enter 
current block num- 
ber into these 
table entries. 



Do not rewrite 
C004. 



Notes: 



^Procedure Base Register Element: 
Bytes 



2-3 



I C8 = PN I I 

I CC = GN I Register number | 



I 
PN/GN Number | 



sprocedure Block Number Element: 

Bytes 



I 



C4 



Block Number 



3These phase 50 Optimization Information elements (COxx) are created by phase 50 from 
phase 40 Optimization Information elements (43xx) . 

I , 

Figure 60. Processing for Optimization Information Elements^ (Part 2 of 3) 
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1 — r- -- - 1 




ACTION TAKEN BY 


1 


1 1 MEANING/Procedure-Name , 














|CODE| Definition Status 


PHASE 62 


1 PHASE 63 1 

1 


PHASE 64 1 


|COOS|Return point from a 


Add 4 to ACCUMCTR. 


Search BLVNTBL to 


Fill in displace- | 


1 1 performed procedure 




determine if the 


ment of Procedure | 


1 1 (GN definition) . 




EXIT from the per- | 


block in PGT, using | 


1 1 Element is followed by 




formed procedure is! 


Procedure Block j 


1 |a GN definition | 




in the same Proce- 


number element. 2 | 


1 1 element. 




dure Block as the 
return point. 
Rewrite GN defini- 
tion element with- 
out COOS. If 
PERFORM EXIT and 
return point are in 
same block , rewrite 
element without 
COOS. 

jlf they are not in 
same blocks indi- 

Icate that register 
11 contains Proce- 
dure Block address 

lof PERFORM exit. 

[Rewrite element 

1 without COOS. 

1 




1 C006 I Load instruction 




1 
1 




1 {followed by an uncon-- 




1 




1 Iditional branch. 




1 
1 




1 1 A Procedure-name 


Add 4 to ACCUMCTR 


1 

(Turn on LOADS W 




1 1 defined in same 


for RX-type branch 


switch. 




1 1 Procedure Block. 


[instruction to be 


|Do not rewrite 






[generated. 


IC006. 
1 




1 1 B Procedure-name 


lAdd 8 to ACCUMCTR 


1 

[Turn on LOADSW 


[Fill in displace- | 


1 1 defined in dif- 


for load of regis- 


[switch. 


ment of Procedure f 


1 1 ferent procedure 


Iter 11 and RX-type 


|Do not rewrite 


Blocks in PGT, 1 


1 1 block. 


1 branch instruction 


IC006. 


[using Procedure | 




to be generated. 


1 

1 
1 


block number | 
element. 2 j 


1 1 C Procedure-name not 


1 Enter procedure- 


ITurn on LOADSW 


Write RX-type | 


1 1 yet defined. 


iname into PNFWDBTB 


[switch. 


[branch instrucion | 




or GNFWDBTB; 


[Do not rewrite 


following the C006 j 




resolve procedure- 


IC006. 


[load instruction. j 




name definition 


1 






status by end of 


I 






[Procedure Block. 


1 




1 Notes: 


sment: 






1 sprocedure Block Number El( 




1 Bytes 





^ 




1 n 
1 1 


ca 1 ] 


1 

Block Number | 

1 




1 3These phase 50 Optimizatic 


5n Information elemei 


nts (COxx) are creat( 


2d by phase 50 from j 


1 phase 40 Optimization Inj 


formation elements ( 


43xx) . 


« 1 



Figure 60. Processing for Optimization Information Elements^ (part 3 of 3) 
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PHASE 63 



Phase 63 is the second of the three 
phases that make up the optimizer section 
of the compiler. Its principal function is 
to produce Procedure A 1 -text, which is 
written on file SYS002. Phase 63 produces 
the text according to the information 
supplied from phase 62. Upon completion , 
the text is passed to phase 6^ where it is 
used to produce the optimized machine 
language program. Phase 63 also causes the 
Procedure Block assignments to be written 
on SYSLST (SYS006 for LVL option) if the 
LISTXr CLIST, or SYM options are in effect. 

Phase 63 produces Procedure A 1 -text from 
Procedure A-text by: 

• Inserting information for addressing 
PNs and GNs and Procedure Blocks in 
instructions such as displacements of 
PNs and GNs within a given block and 
the Procedure Block number to be used. 

• Generating all remaining instructions 
for the object program except the load 
instruction elements reguired when a 
data-name is only temporarily 
addressable. 

• Reading the program in ascending order 
of priority if it is segmented. 

The operations of Phase 63 are described 
in Diagram 8. 



INITIALIZATION OF PHASE 63 



Procedure A1-Text is described in 
"Section 5. Data Areas." 



CONTROL ROUTINE 



Routine GET serves as the control 
routine for phase 63 processing of 
Procedure A-text elements. It reads each 
element of Procedure A-text and branches to 
one of several routines for specific 
processing of each type of element. 

For CO elements, macro-type instruction 
elements, and operation code elements, it 
branches to routines CO, MACRO, and 
F0URTY8, respectively. 

For each of the other elements it uses 
the GETBTBL table to branch to the proper 
routine for specific processing of that 
element. 



PROCESSING PROGRAMS WITH ONE PROCEDURE 
BLOCK 



In programs which do not exceed one 
Procedure Block in length and which have no 
Report Writer or Declaratives Section, and 
in which segmentation does not occur, the 
Procedure Block address is loaded into 
register 11 only when the ENTRY macro 
(440a) and/or START macro (4£^20) of 
Procedure A-text is read. 



Routine PEAS63 performs the 
initialization process for phase 63. It 
saves LOCCTR for restoration at end of 
file, relocates all of the TIE addresses, 
and primes all the new tables used by the 
phase, except for the QGNTBL which is 
primed in routine QBEGIN if there are 
Q-routines. If the program is segmented, a 
call to phase 00 is issued to reguest a 
POINT to the first section of text on file 
SYS001. Otherwise, the initialization 
routine requests phase 00 to read the first 
Procedure A-text buffer from file SYS001. 



CONSTRUCTING PROCEDURE A1-TEXT 



Phase 63 reads Procedure A-text from 
file SYS001 and writes Procedure Al-text on 
file SYS002. 



PROCESSING FOP BRANCH INSTRUCTIONS 



Routine BRANCH processes the branch 
element following the PN or GN reference. 
It uses the SAVETBL and either the PNLABTBL 
or GNLABTBL table to determine whether the 
PN or GN referenced by this branch is 
defined in the Procedure Block that is 
currently loaded in register 11. If the PN 
or GN is defined outside of the Procedure 
Block currently loaded, a Procedure Al-text 
element is generated to load register 11 
with the address of the Procedure Block 
which conains the PN or GN definition. 
Routine BRANCH then generates an RX-type 
Procedure Al-text branch element instead of 
the RR-type of Procedure-A text so that an 
instruction will be generated to branch to 
the PN or GN. 
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If the PN or GN is defined within the 
Procedure Block that is currently loaded in 
register 11, the routine merely changes the 
RR-type branch instruction to an RX-type 
branch instruction. The register number in 
the original instruction is changed to zero 
since register 11 is inserted in the branch 
instruction by Phase 64, The PN (C8) or GN 
(CO number element from the SAVETBL work 
area follows the instruction. 



PROCESSING FOR OPTIMIZATION INFORMATION 
ELEMENTS (C0 01-C007) 



Phase 63 processing for optimization 
information elements is described in Figure, 
60 in the chapter "Phase 62," 



PROCESSING FOR RPT-ORIGIN (D4) ELEMENT 



An RPT-ORIGIN (D4) element indicates 
that an RLDTBL table entry is to be made 
for this location in the program. The 
location is the point of definition (or the 
point of definition plus 4 bytes) of the GN 
for a REPORT-ORIGIN verb. Routine D4 
creates the RLDTBL entry for the location, 
saving the value contained in LOCCTR. It 
sets the high-order byte to hexadecimal 
'10" to indicate the purpose of this entry 
to Phase 64. The entry is used to generate 
text cards at the proper location; but 
phase 64 does not produce an RLD card for 
this type of entry. When the ORG macro 
element is read later, LOCCTR is set by 
phase 64 to the value of LOCCTR at the time 
of the RPT-ORIGIN element. 



PROCESSING FOR ADDRESS REFERENCE 
ELEMENTS 



(78) 



value is to be added to the value indicated 
by the Address reference element to address 
a data-name. 

When Routine GET finds an Address 
increment element in Procedure A-text, it 
branches to routine ADINCR which determines 
whether the sum of the displacement and the 
value contained in the Address reference 
element is less than 4096 bytes. If the 
sum is less, then routine ADINCR adds a 
byte containing X" 00' to the Address 
reference element and writes the element in 
Procedure Al-text. 

If routine ADINCR determines that the 
sum is 4096 bytes or greater, it adds a 
byte containing X' OE" or X'OF', which 
indicates to phase 64 that LA instructions 
are to be generated using either register 
14 or register 15, respectively, to the 
Address increment element and writes the 
element in Procedure Al-text. LOCCTR and 
ACMCTR are incremented by 4 for each 
multiple of 4095 bytes in the added 
displacement. 



PROCESSING FOR INCREMENTED ADDRESS (A4) 
ELEMENTS 



The Incremented address (A4) element in 
Procedure A-text is functionally a 
combination of the Address reference (78) 
and Address increment (80) elements and is 
treated as such by phase 6 3- Routine ADREF 
(if no load is required, that is, if the 
data-name is already in a register) changes 
the element into a Base displacement 
data-name element (see "Processing for 
Address Reference (78) Elements" in this 
chapter) . If it does, the increment 
portion of the Incremanted address (A4) 
element is written out as an Address 
increment (8 0) element with the high-order 
bit of the low-order byte set to 1 to 
indicate that the increment has already 
been added. 



Address reference elements are generated 
to address data areas. The data areas are 
addressed by means of a displacement from a 
base locator. 



COUNTERS USED IN PHASE 63 



When an Address reference element is 
found in Procedure A-text, routine GET 
branches to routine ADREF for processing. 



PROCESSING FOR ADDRESS INCREMENT 
ELEMENTS 



(80) 



When address increment elements occur, 
they follow Address reference elements and 
indicate that an additional displacement 



While producing Procedure Al-text phase 
63 uses two counters, LOCCTR in COMMON and 
ACMCTR. LOCCTR is used to generate the 
relative displacements of each instruction 
listed and enter target addresses in the 
RLDTBL table. 

For details, see "Making Entries in the 
RLDTBL Table" in this chapter. 

ACMCTR is incremented for all code that 
is to be contained in the completed machine 
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language program. It is used to generate 
the displacements of PN and GN definitions 
within each separate Procedure Block. 
Routines PNDEF and GNDEF build the PNLBDTBL 
and GNLBDTBL tables for this purpose. 
Phase 64 uses these tables to generate the 
proper displacements- 



BUILDING THE QGNTBL TABLE 



The QGNTBL table lists the Q-routine GNs 
and their corresponding Procedure Block 
numbers. These are needed by phase 64 to 
initialize Q-routines during INIT3 
processing. The table is built from the 
GNLABTBL by Phase 63 at each GNDEF 
following the Q-BEGIN macro-type 
instruction (4440) element. 



MAKING ENTRIES IN THE RLDTBL TABLE 

RLD entries are made to: 

• Resolve VN addresses 

• Resolve the GNs for REPORT-ORIGIN verbs 

• Produce RLD-text for the linkage editor 

An RLD entry contains the relative address 
within the object module for the entry 
item. 

Before an entry is made, the RLDTBL 
table is sorted. RLDTBL entries are 
created by phases 63 and 64; the RLDTBL 
table is completed and processed by phase 
64. Processing the RLDTBL table entails 
writing RLD-text in some cases. At object 
time, the linkage editor relocates 
addresses contained in the RLD-text. (Not 
all RLD entries cause RLD-text to be 
written. ) 

Routines PNDEF, GNDEF, and STARTMAC 
enter the relative address of an address 
constant in the RLDTBL table as well as the 
target address. 

Routine D4 makes entries for locations 
associated with REPORT-ORIGIN verbs. It 
sets a bit to indicate to phase 64 that RLD 
cards for these entries are not to be 
produced. For details on these entries. 



see "Processing for RPT-ORIGIN (D4) 
Elements" above. 



PROCESSING IN A SEGMENTED PROGRAM 



When a program is not segmented, phase 
63 reads Procedure A-text from file SYSOOl 
in the order in which it was written. When 
a program is segmented. Procedure A-text is 
read in order of ascending priority so that 
the procedure instructions for the root 
segment are processed first- 
Routine PHAS63 first determines whether 
the program is segmented by checking SEGLMT 
in COMMON. If SEGLMT does not contain 
X'FF', the routine relocates SEGTBL and 
indicates to phase 00 that a POINT macro 
instruction is to be issued to access the 
root segment in Procedure A-text. 
Processing of Procedure A-text begins at 
that point. 

When routine MACRO comes to the end of a 
section, it branches to routine SEGBRK, 
which determines whether the end of the 
section is also the end of a segment. If 
it is the end of the segment, the routine 
zeros out LOCCTR and ACMCTR and points to 
the next segment of next highest priority; 
the routine also calls the routine SAVTCTBL 
to save the address of the end of the root 
segment, which is either the address of 
INIT2 or, if COUNT is in .effect, the 
address of the COUNT table. If it is not 
the end of the segment, the routine points 
to the next section of the saire priority. 
When the end of the SEGTBL table is 
reached, control passes to routine EOF. 



PROCESSING AT END OF FILE 



When all segments have been processed or 
at end of file in an unsegmented program, 
routine EOF calls routine RLDSORT to sort 
the final RLD entry. 

Then it releases the tables used by 
phase 63, except for the PNLBDTBL, 
GNLBDTBL, VNPTY, VIRPTR, LTLTBL, BLASGTBL, 
GNATBL, PNATBL, QGNTBL, and RLDTBL tables 
which are passed to phase 64. Finally, it 
restores LOCCTR, and returns control to 
phase 00. 
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PHASE 6 4 



Phase 64 is the third of the three 
phases which make up the optimizer section 
of the compiler. It completes the 
necessary processing to produce the 
machine-language program. The major 
functions of phase 64 are: 

• Processing Data A-Text and completing 
the RLDTBL table. 

• Processing Procedure Al-text, and 
entering displacements into the 
instructions generated in phase 63. 

• Writing object text and RLD-text from 
the RLDTBL table. 

• Writing object text from Procedure 
Al-text 

• Writing object text for the INIT2, 
INIT3, and INITl routines of the object- 
program, in that order. 

• Building the QTBL and ERRTBL tables. 

• Processing DEF-text, E-text, and 
REF-text. 



OUTPUT OF PHASE 64 



The output of phase 64 depends on the 
options specified by the user. The LISTX, 
CLIST, LINK (or CATAL) , and DECK options 
are processed by phase 64 in the same way 
as they are processed by phase 60. For 
details, see "Output of Phase 60" in the 
chapter "Phase 60." 

If the SXREF, XREF, VERBREF, or VERBSUM 
option is in effect. Procedure Al-text is 
used to create REF-text and to write it on 
file SYS004. This text, containing an 
element for every data-name, file-name, and 
procedure-name in the program, is used by 
phase 61 to produce a cross-reference 
listing. DEF-text, which is also produced 
in response to the specification of the 
SXREF, XREF, VERBREF, or VERBSUM option, is 
read by phase 64 from file SYS004 and 
passed to phase 61 on file SYSOOl. 



COMPLETING THE RLDTBL TABLE 



Phase 64 reads Data A-text from file 
SYS004 before it reads Procedure Al-text 



from file SYS002. It does this because 
Procedure Al-text for segmented programs 
has been written by phase 63 in order of 
ascending priority with the root segment 
first. Before phase 6 4 reads Procedure 
Al-text, therefore, it must complete all 
RLD entries for the root segment. 

The primary function of Data A-text 
processing is to place values in fields in 
the data area or in the global tables in 
the object module. Each element causes 
either the generation of an object text 
element or the creation of an entry in the 
RLDTBL or QTBL table. Routine RLDSORT is 
used to make entries in tne RLDTBL table in 
sorted order. Some RLDTBL table entries 
are later written out as relocation 
dictionary (RLD-text) entries for the data 
area and as object text. Other entries 
(for the global tables ) will be written 
out as object text only (these will be 
relocated by the object program) . 

File SYS004, from which Data A-text is 
read, also contains E-text, generated by 
phases 10 through 63, and DEF-text for the 
cross-reference listing if the SXREF, XRFF, 
VERBREF, or VERBSUM option was specified. 
Figure 57 in the chapter "Phase 60" 
illustrates the contents of this file when 
it is read by phase 64. E-text and 
DEF-text are processed by phase 64 in the 
same way as they are processed by phase 60. 
Figure 58 in the chapter "Phase 60" 
describes how each type of element is 
processed. 

After end of file on SYS004, Procedure 
Al-text is processed. 

COMPLETING THE MACHINE LANGUAGE PROGRAM 



Routine SE6000 reads Procedure Al-Text 
from file SYS002. Since Procedure Al-Text 
has been written by phase 63 in order of 
ascending priority with the root segment 
first, routine SE6 000 reads the text 
sequentially for segmented programs, as 
well as for non-segmented programs. 

The special processing done by phase 64 
for Procedure Al-text elements is described 
in Figure 61 "Processing of Procedure 
Al-text." All other Procedure Al-text 
elements are processed by phase 64 in the 
same way that phase 6 processes Procedure 
A-text elements. See "Procedure A-Text 
Processing" and Figure 56 "Processing of 
Procedure A-Text" in the chapter "Phase 
60." 
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r T" 

I Code and Type | 



Action Taken 



I- 



78 

address 

reference 



If the i field contains X'03' the BL, BIL^ SBL, or SBS indicated is 
already loaded- Process in the same v?ay as phase 6 does. Otherwise, 
save contents of print buffers and generate load of register 14 or 
register 15 with the BL, BLL, SBL, or SBS indicated by the high-order 
bit of the i field. If the bit is on, use register 15; if it is off, 
use register 14. Restore buffers and complete processing in the same 
way as phase 60 does. 



H 



80 

address 

increment 



If appended byte is not zero, print buffers are saved- One LA instruc- 
tion is generated for each multiple of 4095 in the sum of the displace- 
ment saved for the 78 (or DO) and 80 elements. Buffer is restored; its 
displacement field is replaced by the amount in excess of the final 
multiple of 4095. Value of the 80 element is included in the symbolic 
field as "+NNN." 



F 

EC 

segmentation 
and GO TO. - . 
DEPENDING ON 
call parameter 



H 



h 



Generate 3 DC instructions^ used as parameters by the GO TO... DEPEND- 
ING ON and Segmentation subroutines. Code generated is as follows: 

DC X' priority' 
DC X*" Procedure Block number' 
~ DC X2' displacement, with Procedure Block' 



C4 

procedure 
block number 



Add displacement within PGT of Procedure Block cell (or OVERFLOW cell) 
to each instruction that establishes addressability for a Procedure 
Block. Use PRBLDISP cell set in COMMON by purpose. 



C8 

procedure base 

register for 

PNs 



Enter displacement in branch instructions generated by phase 63, 
using PNLBDTBL, 



h- 



CC 

procedure base 

register for 

GNs 



Enter displacement in branch instructions generated by phase 63, 
usino GNLBDTBL, 



l-- 



DO 

base displace- 
ment data-name 



i~ 



Specifies actual register number, displacement from start of area con- 
trolled by base register, and a data-name dictionary pointer. Write 
base and displacement; branch to routine for processing dictionary 
pointer." 



*This table describes only those elements which are unique to Procedure Al-text. All 
other elements are identical with their counterparts in Procedure A-text, and are 
processed by phase 64 in the same way as they are processed by phase 60. See 
"Processing of Procedure A-text" in the chapter "Phase 60." 

L 

Figure 61. Processing of Procedure Al-Text* 
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INITIALIZATION ROUTINES 



After Procedure Al-text has been 
processed, the initialization coding is 
generated. Routines GINITl, GINIT2, and 
GINIT3 generate the code for INITl, INIT2, 
and INIT3, respectively. The three 
initialization routines, in the order in 
which phase 64 writes them, are INIT2, 
INIT3, and INITl. All three are resident 
in the root segment if the program is 
segmented. 

INITl sets up address constants for the 
program" s TGT, PGT, and first executable 
instruction, and for the three 
initialization routines. It then transfers 
control to INIT2 if the program is a 
subprogram, or to INIT3 if it is not. 

INIT2 is executed if the program is a 
subprogram or is entered at a secondary 
entry point. It establishes standard 
subroutine linkage. Control then passes to 
INIT3 which sets up base registers, 
relocates addresses, and transfers control 
to the proper point in the program to begin 
execution. (For a more complete 
description of these three routines. 



including the generated code, see "Appendix 
B. Object Module.") 



RLDTBL TABLE PROCESSING 



After the initialization routines are 
generated (after Procedure Division or root 
segment processing) , the RLDTBL table is 
processed. Indirect address constants are 
resolved. Object text is written for items 
that are in the global tables. This text 
consists of address constant definitions 
that will be stored in the global tables at 
execution time. No RLD-text is required 
for these items, because the addresses are 
relocated during program execution by 
routine INIT3« However, in a nohsegmented 
program, RLD-text is written for relocating 
all Procedure Block cells contained in the 
PGT. Object text is also written for data 
area address constants (obtained from 
address constant and indirect address 
constant definitions) . For the data area 
address constants^ RLD-text is written so 
that the linkage editor can relocate the 
addresses- 
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PHASE 61 



The function of phase 61 is to produce a 
cross-reference listing on SYSLST (or 
SYS006 for LVL option) . The phase is aiven 
control only if the SXREF, VERBREF, 
VERBSUM, or XREF compiler option was 
specified by the user. The transfer of 
control is described under "Processing 
Between Phases" in the chapter "Phase 00." 

Phase 61 tests the PHZSW2 byte in COMMON 
to deteririine whether the option specified 
is SXREF. If SXREF is in effect, phase 61 
generates an alphabetically ordered 
cross-reference listing. Phase 61 tests 
the PHZSW4 byte in COMMON to determine 
whether the option specified is VERBREF or 
VERBSUM. If VERBREF is in effect, phase 61 
produces the verb cross-reference listing. 
If VERBSUM is in effect^ phase 61 produces 
only the verb summary listing. Otherwise, 
XREF is in effect and a cross-reference 
listing ordered by source statement 
sequence is generated. 

Phase 61 performs the following 
operations: 

• Reads DEF-text into storage until 
either storage is filled or end-of-file 
is reached. It creates a DATA record 
and, if SXREF is in effect, a CONTROL 
record, for each DEF-text element. For 
SXREF, the CONTROL records are used in 
sorting the external names. 

• Reads REF-text and appends references 
to the proper DATA record (or OVERFLOW 
record) if the definition nas been read 
into storage. 

• Prints each DATA record and its 
associated OVERFLOW records. 

These three operations constitute the 
fundamental cycle which is repeated until 
all DEF-text has been processed. 

DEF-text for verbs has the same format 
and is processed in the same manner as 
DEF-text for data-names. Similarly, 
REF-text for verbs (VERBREF only) has the 
same format and is processed in the same 
manner as REF-text for data-names. The 
only special processing for verbs is the 
recognition of the first verb-element and 
the first procedure-name thereafter. 

During phase initialization. Phase 61 
uses the GETALL routine in TAMER to get all 
available storage for use in creating the 
DATATBL table, OFLOTBL table, and the 
CNTLTBL table (if the SXREF option is in 



effect), which contain the DATA records, 
OVERFLOW records, and CONTROL records, 
respectively. It does not, however, use 
TAMER routines to access these tables, 
phase 61, therefore, is able to construct 
tables occupying more than 32K bytes. 



PRODUCING A SOURCE ORDERED CROSS-REFERENCE 



LISTING 



The maximum amount of space is obtained 
for the DATATBL and OFLOTBL tables by a 
call to GETALL in phase 00. An algorithm 
is used for dividing the area into two 
parts, one for the OFLOTBL and one for the 
DATATBL. 

The DEF-text is read from file SYSOOl 
where it was written by phase 60, or 64. 
There is one element of DEF-text for each 
data-name, file-name, and procedure-name in 
the source program. The text on file 
SYSOOl is read into storage and the 
contents of each element are moved into the 
corresponding area in a DATA record. This 
is repeated until all assigned DATA records 
(for which there was space) are filled with 
DEF-text. One DATA record is created from 
each DEF-text element. 

The REF-text is read from file SYS003 
or, if OPT is in effect, from file SYSOOl. 
There is one element of REF-text for each 
time a name is referred to in the source 
program. The text on file SYS003 or SYS004 
is read, one element at a time, until 
end-of-file is reached. 

In the REF-text, for a data-name or 
file-name, the internal name is the 
dictionary pointer assigned by phase 22. 
For a procedure-name, the internal name is 
the PN number assigned by phase 11. The 
setting of a bit in each entry indicates 
whether it contains a dictionary pointer or 
a PN number. When a REF-text element is 
read, the high-order bit of the referencing 
card number is tested to determine whether 
the reference is to a data-name or to a 
procedure-name. This test is made in case 
a dictionary pointer and a PN number 
happened to have the same bit 
configuration. 

If the DEF-text element for the 
referenced data-name or procedure-name was 
processed in this cycle, the DATA record is 
in storage. For a REF-text element for a 
data-name, a binary search of the DATATBL 
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table is made to locate the matching DATA 
record for the data-name. A REF-text 
element for a procedure-name is matched 
directly by means of an algorithm with the 
DATA record for the procedure-name. If a 
match is not found, the REF-text element is 
ignored. If a match is found, the 
referencing card number contained in the 
REF-text element is placed in the DATA 
record, or if it is full, in an OVERFLOW 
record which was chained to it when the 
first overflow record was needed. If the 
current OVERFLOW record is full, another 
OVERFLOW record is added to the chain, and 
the referencing card number is inserted in 
the first three bytes of the record. If 
no space is available for the OVERFLOW 
record; the DATA record containing the last 
DEF-text element read is taken out of the 
DATATBL and the space is assigned to the 
OFLOTBL. The space is divided into three 
OVERFLOW records which are placed on the 
overflow free chain. Before the 
referencing card number is placed in the 
newly designated OVERFLOW record, the 
REF-text element is rechecked to ensure 
that the matching DATA record was not just 
deleted. At end-of-file, the REF-text file 
is closed. 

At the end of the cycle, each DATA 
record and its associated OVERFLOW records 
are printed on SYSLST (or SYS006 for LVL 
option) . 

If this is the last or only cycle, 
processing is completed when all names, 
defining card numbers, and referencing card 
numbers in main storage have been printed. 
If this is not the last cycle, DEF-text is 
again read into main storage. (If it was 
necessary to split one or more DATA records 
into OVERFLOW records in the preceding 
cycle, the DEF-text file must be rewound, 
and the DATATBL and OFLOTBL set back to 
their original lengths. REF-text must also 
be reread. Names are read and ignored 
until the last name processed in the 
preceding cycle is reached.) Data records 
are created for unprocessed names and the 
cycle continues with the reading of 
REF-text. 



PRODUCING AN ALPHABETICALLY ORDERED 
CROSS-REFERENCE LISTING 



The maximum amount of space is obtained 
for the DATATBL, OFLOTBL, and CNTLTBL 
tables by a call to routine GETALL in Phase 
00. An algorithm is used for dividing the 
space among the three tables. 



The DEF-text is read from file SYSOOl., 
The text is read into storage and the 
contents of each element are moved into the 
corresponding area in a DATA record. This 
is repeated until all assigned DATA records 
(for which there was space) are filled with 
DEF-text. One DATA record and one CONTROL 
record are created for each DEF-text 
element. The CONTROL records are used in 
sorting the external names, which is done 
as the DEF-text is read. 

The REF-text is read from file SYS003, 
or, if OPT was specified, from file SYS004. 
The text on file SYS003 or SYSOOU is read, 
one element at a time, until end-of-file is 
reached and the bit is tested as described 
in "Producing a Source Ordered 
Cross-Ref erence Listing." A search of the 
DATATBL table is made for the matching DATA 
record and if it is found, the referencing 
card number is placed in the DATA record, 
or if it is full, in an OVERFLOW record 
chained to it. If the current OVERFLOW 
record is full, another OVERFLOW record is 
added to the chain, and the referencing 
card number is inserted in the first three 
bytes of the record. If no space is 
available for an OVERFLOW record, the DATA 
record which is last on the chain of sorted 
DATA records is split into three OVERFLOW 
records which are placed on the overflow 
free chain. Before the referencing card 
number is placed in the newly designated 
OVERFLOW record, the REF-text element is 
rechecked to ensure that the matching DATA 
record was not just deleted. If a matching 
DATA record is not found, the REF-text 
element is ignored. At end-of-file, the 
REF-text file is closed. 

At the end of the cycle, each DATA 
record and its associated OVERFLOW records 
are printed in alphabetical order on SYSLST 
(or SYS006 for LVL option). The lines 
printed give the external name (from the 
DEF-text element) , the card number of the 
statement in which the item was defined 
(from the DEF-text element) , and the card 
numbers of all the references (from the 
REF-text elements). 

If this is not the last or only cycle, 
DEF-text is again read into storage. 
(Whenever more than one cycle is required 
to process the entire DEF-text file, the 
file must be rewound. ) Names are read and 
each name is compared with the last name 
processed in the preceding cycle. If the 
name read alphabetically precedes the last 
name processed, it has already been 
processed^ If the name read alphabetically 
follows the last name processed, the cycle 
continues with the creation of DATA and 
CONTROL records. 
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PHASE 7 



Phase 70 (ILACBL70) generates all the 
compiler diagnostics for source program 
errors. Its input consists of E-text from 
phases 01 through 51 that is either in 
storage or on SYS003, If no output from 
phases 6 0, 62, 63, or C4 has been requested 
or if a message of sufficient severity has 
been generated and the SUPMAP option is in 
effect, phases 60, 62, 63 and 64 text 
processing is bypassed, and phase 70 reads 
its input from SYS004. Its output consists 
of completed messages, vy?hich are written on 
SYSLST (or SYS006 for LVL option). 



INPUT FROM PRIOR PHASES 



Phases 01 through 51 produce E-text in 
the same mannero Whenever a processing 
routine detects a source program error, it 
writes out message definition elements of 
E-text described in "Section 5. Data 
Areas. " 



If parameters are associated with the error 
message, the -phase sets up a message 
parameter entry immediately after the error 
entry. 



Phase 01 writes E-text for BASIS and 
COPY statements on SYS003. Phase 10 writes 
E-text intermixed with Data A-text on 
SYS003. Phase 21 reads E-text, 
interspersed with other texts, from SYS003. 
It writes the E-text back onto SYSOOU 
without change, along with Data A-text and 
its own E-text. Phases 12 and 11 writes 
the E-text produced during PO-text 
processing on SYS002 intermixed with the 
PO-text. From then until phase 51, E-text 
is added to the Procedure IC-text stream as 
errors are encountered. Phase 51 isolates 
this E-text and writes it, together with 
its own, on SYS004- Phase 60 or phase 64 
encounters E-text on SYS004 during its 
operations. To avoid extra input/output 
operations, phase 60 or phase 64 attempts 
to save the E-text in a storage area, the 
ERRTBL table. The ERRTBL table, however, 
is of a fixed size. If all the E-text 
cannot be saved in ERRTBL phase 60 or phase 
64 writes the E-text on SYS003 for phase 7 
to read. (ERRTBL is of a fixed size to 
allow all available space to be assigned to 
the RLDTBL luring phase 60 processing.) 



PHASE 7 ERROR PROCESSING 



Upon receiving control from phase 00, 
phase 7 uses the PARTBL, EACTBL, and 
PHxERR tables, along with E-text, to 
construct error messages which it then 
writes out. 



THE PARTBL AND EACTBL TABLES 



The PARTBL table is a fixed table 
assembled as part of the phase and not 
handled by TAMER routines. It contains 
pointers to all possible error message 
parameters (COBOL words, verbs, operations, 
etc.) that are not programmer -supplied 
names. The pointer is a displacement from 
the beginning of all parameters to the 
parameter for that entry. Its entries are 
of the form: 

r 1 

I 2 bytes | 

f ^ 

] Pointer to | 
1 parameter j 

L J 

The EACTBL table is a fixed table 
assembled as part of the phase and not 
handled by the TAMER routines. It contains 
pointers to error statements which describe 
what compiler action was taken because of 
the error; for example, "STATEMENT ACCEPTED 
AS WRITTEN." Its entries are of the 
following form: 

r 1 

I 2 bytes | 

F ^ 

I Pointer to | 
I statement | 

L J 

The pointer is a displacement from the 
start of the list of actions to the start 
of the action for this entry. 



THE PHXERR TABLE 



The PHxERR tables are fixed tables 
assembled as part of the phase and are not 
handled by TAMER routines. For each 
message, an entry is made in the 
appropriate PHxERR table, where x has the 
following values: 
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= Phase 00 

1 = Phase 01 (BASIS/COPY), 10, 

11, or 12 

2 = Phase 20, 21, 22, or 25 

3 = Phase 30 

4 = Phase 4 

5 = Phase 50 or 51 

6 = Phase 60, 62, 63, 64, or 65 

Each entry is of the following form: 

r 1 

I 2 bytes | 

|. ^ 

[Pointer to text of | 
I appropriate message] 

L J 

The pointer is of the form of a 
displacement of the specific message from 
the start of messages for that phase- 

The message text is found in phase 7 
starting at label TXIOOO. 



GENERATING MESSAGES 



The XNORML routine scans each E-text 
item in turn. It first moves, into work 
area XU6REC, the card number, the message 
and phase numbers, and the severity code 
listed in the entry as follows: 

bnnnnnbbILApxxxI~s 

where: 

b 

indicates a blank 

nnnnn 

is the compiler-generated number of 
the statement containing the error 

P 

indicates the phase in which the error 
occurred, where: 



is the severity code, as follows: 
W = warning 
C = conditional 
E = error 
D = disaster 



Routine XNORML next uses the pointer in 
the corresponding PHxERR table entry for 
the E-text entry to find the text of the 
message itself. It places the text in work 
area XU6REC. It scans the text entry for 
the presence of the symbols $, =, and /. 

The symbol $ indicates that a parameter 
following the E-text for this message must 
be inserted at this point. Parameters are 
taken either from the parameter entry 
itself or from the location pointed to 
indirectly through the PARTBL by the value 
field of the parameter entry. 

The symbol = indicates that an error 
action message must be added. In this 
situation, a number directly follows the = 
symbol- Phase 70 uses this number as a 
pointer to determine the displacement into 
the EACTBL table for the pointer to the 
appropriate error action message . 

The symbol / indicates that this is the 
end of the text for this message. 

The error action messages are in phase 
70, starting at label EACTOO- Routine 
XNORML moves the error action message into 
the work area immediately following the 
text for the m^essage. Routine XPUT then 
writes the message on SYSLST (or SYS006 for 
LVL option) . 



ERROR MESSAGE LISTING 



1 = Phase 01, 10, 11, or 12 

2 = Phase 20, 21, 22, or 25 

3 = Phase 30 

4 = Phase 40 

5 = Phase 50 or 51 

6 = Phase 60, 62, 63, 64, or 65 



is the number of the message 



At phase 70 initialization, control 
transfers to a string routine to generate a 
comprehensive listing of all compiler 
messages if the PROGRAM-ID is ERRMSG. The 
SEVTBL table and SC MACRO instruction are 
used for this purpose. A description of 
the listing is given in "Section 6: 
Diagnostic Aids." 
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PHASE 80 



The function of Phase 8 is to flag the 
COBOL source statements that are at 
variance with the Federal Information 
Processing Standard (FIPS) . The phase is 
given control only if the LVL compiler 
option is specified by the user or was 
defined as the default value at 
installation tim.e. The transfer of control 
is described under "Processing Between 
Phases" in the chapter "Phase 00." 

When phase 01 determines which level of 
flagging has been specified (A = low; B = 
low intermediate; C = high intermediate; D 
= full standard) , the level is stored in 
the System Communication Region. Phase 8 
picks up the level from there via the COMRG 
macro; • the LINECOUNT for the listing output 
is also picked up. 



Input 



Input to phase 8 is the COBOL source 
program listing and other data on the 
SYS006 utility data set. 

When FIPS processing has been requested, 
the source program is written on SYS006 by 
phase 01 if no Lister options are in effect 
or by phases 10, 12, and 11. 



Output 



The output of Phase 8 is written on 
SYSLST. It consists of the COBOL source 
program listing flagged according to the 
specified level of the Federal Information 
Processing Standard and other data written 
on SYS006 during compilation. However, if 
the LST option is in effect, the listing of 
the source program will be suppressed to 
avoid duplicating the Lister option 
listing; FIPS messages will be printed. 



• Generates diagnostic messages for 
exceptions to the standard. 

• Writes the source program and messages 
on SYSLST. 



SCANNING THE SOURCE PROGRAM 



The source program is scanned by the 
four scanning routines of Phase 8 0. They 
are IDSCAN, ENVSCAN, DATASCAN, and 
PROCSCAN; they process the Identification, 
Environment, Data, and Procedure Divisions, 
respectively. These routines are under 
control of the ILACBL8 routine and they 
use the GETLINE, PUTLINE, GETWORD, CHKCOPY, 
CHKGLBLS, MSGHNDLR, and VERBCHK routines. 

The scanning routines call the GETLINE 
routine to read a line of the source 
program and the GETWORD routine to 
determine each word of the line. 
Subroutines in each scanning routine check 
each word to see if it meets the FIPS 
standard. Diagnostic messages are issued 
for exceptions to the standard. 



GENERATING DIAGNOSTIC MESSAGES 



When an exception to the FIPS standard 
is discovered in the source program, the 
MSGHNDLR and MSGWRITE routines are called 
to format the diagnostic message and to 
write it on the output data set. 

Each Division scanning routine contains 
the text of the messages that are issued by 
that routine. When the MSGHNDLR routine is 
called, the address of the message is 
passed to the routine. The routine formats 
the message for printing by the MSGWRITE 
routine. 



WRITING THE SOURCE PROGRAM 



Processing 



Phase 80 performs the following 
functions: 

• Scans each Division of the COBOL source 
program. 



Each time the GETLINE routine is called 
by one of the scanning routines, it reads a 
line of the source program and then calls 
the PUTLINE routine to write the line on 
SYSLST. After the line is written on the 
output data set, control is returned to the 
scanning routine for FIPS processing. 
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SECTION 3, PROGRAM ORGANIZATION 



FLOWCHARTS The contents of this chapter are: 

This chapter contains flowcharts of all 1. Explanation of flowchart symbols 
the phases of the compiler. There is an 
overall flowchart for each phase ^ followed 

in most cases by more detailed flowcharts 2. Phase flowcharts (Charts A A through 

of the major routines in the phase. Also TA) 
provided is a set of flowcharts for a 

typical Report Writer subprogram generated 3. Report Writer Subprogram flowcharts 

by the compiler. (Charts UA through UT) 
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Explanation of Flowchart Symbols 



FUNCTIONAL SYMBOLS 



30: itc4[4c#3tc««4:3«c>tc« le'*^:^'* 



♦ENTHY, WAIT, OR* 
♦TERMINAL BLOCK * 
* ♦ 

Jtc Xc « A )«c 4: « « 4c 4c * 4; « :(c lie 



«4:D1******* 



4:«4c«=tc4:itc«4:«4t 



4c*>ic£ 14c«)0'««4c4c*«*>): 



)|c4c)|c«>tc4<4=4c4:«4t«4=4c«4c 



« 4c 4c 4c 4c p 1 i|c 4c « 4: Sic * « 4< « itc 

* 4c 
*_4c_4c-_4c_4c_*_4c_4c_* 

* SOEROUTINE * 

* BLOCK * 
4c 4c 
4c 4: 4c 4c 41 « 4c 4c 4c 4c 4:4c 4: *:4ci|: 4c 



4c4c4c4c4cG 1***** ***** 



4c 4: 4c 4t 4c 4c 4c 4c 4c * 4c 4c 4c 4c 4c 4c 4c 



* C3 * 

4c 4c 

♦ 4c 4c 4c 



L 



4c 4c 4c 4c 

■>*02 * 
A1 



*4!**B3********* 

* 4: 

* HOORSRTTJ * 

* 4: 
« 4c 4c * 4c 4c 4c 4c 4c 4c 4C 4c 4c 4c 4c 



»4c4c4c 

BRANCH 

4: 4c 4c 4c 4cC3** ******** 

* OPDATE * 



4c 4c 4c * 4c 4c 4c 4c 4c 

4= 4c 4c 4c 
4c * 

* D3 * 
4c 4:. 

4= 4= 4c 4c 

4c4c4c4c4cD3***tc** 



4c 4c 4c 4c 4:4c 4: 4c 4c 4: 4c 4c 4c 4: 4c *4c 



4c4c#4c 

*01 * 

* E3 *-> 



4c 4c 4:4cG2*** ****** 
4c 4c 

* RETURN * 

4c 4c 

4c 4c 4c 4c 4c 4c 4: 4c 4c ** 4c4: 4c 4c 



GOTO V YYOIAI 

4c 4c 4c 4c 4c P34: * 4c 4c 4c 4:4c* ♦4c 

*SUBNM * 



4c4:«4c4:4c4c4c4:4c4c4c4:4c4:4c4c 



THE TERMINAL BLOCK IS USED 
TO SHOW ENTRY AND EXIT 
POINTS OF A ROUTINE. 
BLOCK B3 SHOWS AN ENTRY 
POINT NAMED HOURSETN. 



THE INSTRUCTION AT LOCATION 
BRANCH CALLS A SUBROUTINE 
NAMED UPDATE. UPDATE IS 
A SMALL ROUTINE AND NO 
FLOWCHART OF IT IS PROVIDED. 



ON-PAGE ENTRY CONNECTOR. 
ONE OR MORE BRANCHES TO 
THIS BLOCK APPEAR ON THIS 
PAGE OF THE FLOWCHART. 



OFF-PAGE ENTRY CONNECTOR. 
A BRANCH TO THIS BLOCK 
APPEARS ON ANOTHER PAGE(S) 
OF THIS FLOWCHART. 



THE INSTRUCTION AT LOCATION GOTO 
CALLS A SUBROUTINE NAHFD SUBNM. 
THE LOGIC OF SUBNM IS SHOWN ON 
CHART YY STARTING AT BLOCK Al. 



LINE JUNCTION 



*4c*4c 
4c 4c 
* D3 * 



ON-PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK D3 ON THIS PAGE 
OF THE FLOWCBAET. 



4c4c4c4c4cH 3** ******** 



4c 4c 4c 4c 4c 4c 4c * 4c 4c 4c 4c ♦ 4c ♦ 



THIS BLOCK REFERS TO A ROUTINE 
OR PROGRAM THAT IS DOCUMENTED 
IN SOME OTHER PUBLICATION. 



****J2********* 

4c 4c 

* RETURN *<- 

4c * 

4c4c4:4:4c4c4c«4c4:4c4c4c4c4: 



CONTROL IS RETURNED TO 
A VARIABLE POINT. (FOR 
EXAMPLE, TO THE POINT 
AT WHICH THIS ROUTINE 
WAS INVOKED.) 



4:4c4c4:4c 
*02 * 
* Al* 



OFF-PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK A 1 ON PAGE 2 
OF THIS FLOWCHART. 



4: ♦♦♦♦♦♦♦ 4c 4c4c4c4:«4c 



CONTROL BRANCHES TO AN ENTRY 
POINT ON ANOTHER FLOWCHART. 
BLOCK K3 SHOWS A BRANCH 
TO LOCATION TAXRTN THAT 
APPEARS IN CHART XX, PAGE 
2, STARTING AT BLOCK Al. 
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Chart AA. Phase 00 (ILACBLOO) : Overall Logic (Part 1 of 7) 



****A1* ******** 

* * 

* ILACBLOO * 

* * 



GOSYSGO 

«4:***E1********** 

* DECIPHIR * 

* LINKAGE ♦ 
♦PAEAMETERS FROM* 

* CALLING PHASE * 





*♦*♦ 








* 


* 








* 


AU * 








* 


**** ^ 
.*. 
A4 * 
,* 


* 








.* 




* 


YES 


* 


.^ EOJ X = 

**. 

♦ . .* 

♦NO 

1 


B 
.* 


* 


***** 

*02 * 

* E5* 

* * 



«< ***** 
♦NO ♦06 ♦ 
♦ D1^ 
* * 









«. 


YES 


READ 
**. 


X = 



* 


*' 


'-] 


* 


.♦ 
♦NO 

1 






***** 
♦02 ♦ 
♦ A1 + 

* * 



EJECT 
** . 


X = 


D 
* 

* 


•-1 


♦ . 


.*■ 




***** 




♦ NO 

1 




*04 ♦ 

♦ c^* 
* * 



PUTN 
**. 


X = 


1 

* 


* 

* 


YES 

'-1 


* 


♦iio 

1 






***** 
*04 ♦ 
* B1* 

* * 



UT X = 


2 

* 


*. 
♦ ' 


YES 


'♦. .♦ 






***** 


♦NO 

! 






♦ 03 ♦ 

♦ B1^ 
* * 



♦ FLUSH ♦. 


YES 


BUFFERS X = E. 


*-! 


♦ . .♦ 
♦. .♦ 


♦. .♦ 


***** 


♦ NO 


*07 * 






* A1* 






* * 






* 


.■ 




.♦. 




EU ♦. 




.♦ ♦. 




♦END OF FILE+. 


NO 


X = F 


♦ 1 


♦. .♦ 


i 


♦. .♦ 


♦. .♦ 


***** 


♦YES 


♦ 07 ♦ 


1 **** 
L_>*07 < 


♦ B5+ 


* * 




♦ A1 


* * 



* 




* 


YES 


CANCEL 
♦. 
* . 


X = 


3 
.♦ 


*-] 


*. 


.** 




***** 




♦NO 

! 




*02 ♦ 
♦ H3^ 



* 


.* 

•REWIND 
*. 
*. 
♦ . 


X = 

.♦' 
♦NO 
I 


* 
6 

.* 
* 


YES 

*- 

***** 
*04 ♦ 
* AU* 



♦READ SYSIPT* 


YES 


X = 7 

♦. .♦ 

♦. .♦ 


*-] 


♦. .♦ 


***** 


♦ NO 


*02 ♦ 


1 


♦ A5^ 
* * 



***** 

♦ 06 ♦ 

* A1^ 



♦. LINK X 



♦ A4 ♦ ♦ 

* ♦ 
**** 
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Chart AA. Phase 00: Overall Logic (Part 2 of 7) 



***** 

♦02 * 
* A1* 



i 



***** 

♦02 * 

♦ A5* 

* * 



*'. SYSLIB '.* , 



*. 


.♦ 




***** 




^^NO 




♦ 05 * 










♦ A1* 


**♦* 








* * 


* * 










* B2 * 


; 


>r 






* ♦ 

**** 1 


B1 


* 






***B2****«***«*« 


.* 




*, 






.* 




* 


YES 


* * 


*. FILE f 
* . 










* 




% HEAD ^ 


*. 




* 






♦ . 


.* 






**************** i 



***B3*******4<*** 

* * 

CHECK READ 



~1 



PTBUF=0 
.♦ 


..-•-J 


*. .* 


***** 


♦NO 


♦07 ♦ 


I 


♦ B3^ 



***Q5*********** 

* * 

GET 

* * 

************ He*** 



♦ *** 
>+07 ♦ 

♦ A3 ♦ 



L 



-♦. FILE SYS002 .♦ 



D1 ♦ 

* 

ZZ=5 



♦N 

1 



♦. FIRST READ .♦- 



**]t:Q •)**********:): 



**************** 



OF .♦ , 

,♦ ***** 

♦NO +07 ♦ 
♦ C3^ 



.* 



♦ YES 

U 



♦♦** 

* * 

* B2 ♦ 

* * 
**** 

A:**-E2*********** 



**************** 

itc**Y2*********** 

* * 

-> READ 

* * 

**************** 



*****D3********** 



***J1* ********** 



**************** 



L: 



**** 

>*07 ♦ 
♦ A3 ♦ 



n 



******************* 
* * 

* B2 ♦ 

* * 
**** 



**** 

* * 

* G1 ♦ 

* * 
**** 



**** 








♦02 ♦ 








* E5 ♦ , 

* * \ 
**** Y 






SKPLNK 


.♦. 






E5 ♦ 






.♦ 




*. 




.♦ IS ERRSEV ♦ 


NO 


♦. GT 


OR EQ 


TO 




*. 


12 


.* 





***P3*********** 

* * 

-> CHECK READ — 
* * 

**************** 



**** 
♦02 ' 
♦ H3 



**1 



**** 
TRMNATE 

***I]3*********** 



PRINT MESSAGE 



**************** 



*****{^3********** 



***** 
♦07 ♦ 
♦ C3^ 



***************** 



****(;5********* 

♦ RETORN TO DOS ♦ 

♦ SYSTEH ♦ 

♦ » 
*************** 



*****j4********** 



***************** 



***************** 



****Y^H********* 

* * 

* EOJ ♦ 

* * 
*************** 



****J5********* 

♦ * 
->♦ EOJ ♦ 

♦ * 
*************** 
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*03 

♦ B1 *- 



"l 



B2 * 

zz=o 



♦ ♦ — , * * 

♦ * 
♦MULTIPLY ZZ BY * 



*N0 

>*o«; ♦ 

* A1 * 



4c4c4c4<i|c4c«4i:tc>tc«4c*««4' 



^^i^1^tt.^^■Q2**^^******* 

* * 

* * 
->*GET FILE 4 ADDE* 

* * 



>* ♦ 

* C2 * 

♦ * 
♦ ♦** 



->*. zz=o 
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* * 

-> WRITE RECORD 

* ! 



~i 



♦**D4*********** 



E3 
ZZ=8 



~1 



♦07 * 

* B5* 



♦♦*EU *********** 



F3 *. 
ZZ = 12 



:ti:«f^ilf*ifi:^^*******i>i ***** 
*07 * 

* B5* 
* * 



***Fl|*********** 

* ♦ 

-> POINTS — 



4ii(c>»:G3*********** 

* * 

WRITE UPDATE 



"1 



«4c************** ***** 

*07 ♦ 

* B5* 

* * 



«>t:;(c*#4:4i*«:4c:(c«*>tel|c« ***** 
*07 * 
* B5* 
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***** 

♦04 * 

* A1* 

* * 



3tc**>)c***««**»c**l»: 



**** 

*0U * 

* B1 *-> 



**** 

♦ 04 ♦ 

* CI *-> 



:(c««D-|]tc««4i4:****** 



4:************ 



L 



**** 

>*07 ♦ 
* B5 * 



itc*4cp 1*** ******** 





***** 






♦04 ♦ 






* A4^ 






* * 






♦ 
1 




CLOSET 


1 




CLOSET A 


.♦. 

A4 ♦. 

* ♦. 




.*' 


WAS ♦. 


NO 


♦.PREVIOUS I/O . 


♦- V 


*. 


A READ .* 





***Kt*B3iOc********* 

* * 

* * 
->^MOVE TO OOTPUT ♦ 



ll 



>tc4c«:(c]gc4c**************** 
♦07 ♦ 
* B5^ 
♦ ♦ 



***B4 *********** 



**********4c)0c 



♦ * 

POT DELIMITER 
* * 

]tC«************** 



***D3** ********* 

* * 

-> POT 

* * 

4:«4:iOc* *********** 



4c4c*************** 



*****!){)♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

* TORN ON FIRST ♦ 
*I/0 INDICATION * 



l|c>tci(c*4l«4c ********** 



u 



**** 
.>*07 ♦ 
♦ B5 ♦ 



4c**g3*********** 



1 



**:(c*********** ***** 

*07 ♦ 

♦ B5+ 



r^H::ti**Y3********** 



*««*«J^5**:(c4'****** 



■>♦ FLDSH BUFFERS ♦ 



:«[«*************** 



:(c«*«:(ciOi* »:*****♦** 

L**** 
>*07 ♦ 

♦ B5 ♦ 



«4:*G2*^^ *♦♦♦♦♦♦♦ 



itiiti************** 



4c*itc**|]2********** 



* « 4e « lOi *3tiitc * * « * )|c « 4i ** 



***G3**********4 

* * 

PUT 



~1 



]tc*Xc************* ***** 

♦07 ♦ 

* B5^ 

♦ ♦ 



:{>«](<«:([ 3|c«:tc***«**«* 



***J2*******+*** 

* * 

PUT 
* * 

#itiit^4:*ltiA:* ******** 



**** 

->^07 ♦ 
♦ B5 ♦ 
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♦***♦ 

*05 * 



A2 *. 
.* ♦. 
.♦ 
->*. BASIS CALL 



A3 

.* 

->*. BASISN 



♦ ♦♦♦♦j\ 4 »**♦♦♦*♦♦♦ 



♦ *** 

* * 

♦ D3 * 



B2* ■*. 
. * *. 


PTSL V 

* * 


.* *. YES 
*. CURNAME = .* , 

*•.. ..•* i 

♦. .* ♦♦*♦ 


* LOAD RETURN * 

* ADDRESS * 

* * 

* ♦ 




mo * * 

* B4 * 

♦ * 








*♦** 






NTSL 

*****C2*^ 






* *■ 




* NTSL * 

* * 


* PTSL * 


* * 




^:^^i:^****i 


|c4ciC[«4i:ti>|c;»4i 


:«c:4i«««>tc«]tc«#«4c:Cc*4:4:« 



:«(««« 4i 4c itc 4 «:»:««« *Xc«« 



FNDSL 



* FNDSL * 

* ♦ 



it:^^**D2**:******** 



♦ *♦* 



u 



en ♦. 
♦ * 

FOUND 

*. .* 
*. .* 
*YES 



GETSL ♦< 
* 
* 

4c*«>tc:»:itc4i4i4:4:4c« 



->♦. BASIS 
*. 

*. .* 
*. .* 

*YES 



«:«4cX)5«4c4:«4c%4citc«4i4< 

* * 

MESSAGE ILA003I 
* * 



L 



**** 

->*02 * 
* E5 * 



EOF 

*. .** 
*N0 



«>0':4'4:«««4««4c*««4'4=« 



ltLi)L:^itL*Q2*'>i******* 



* ADD 8 TO 



itc«4i«4c*4c*«4c4c3t< 



->♦ CLEAR CURNAME *<- 



:it:iifif^*i^******i>i 



* * 

* ADD 8 TO R8 * 

* * 

* * 



^Hc^c:t:^cQH***i)^*iii* ***■ 



it:««4ci«c««4'4c«« 



♦ *** 

* * 

* * 

-* ADD U TO R8 ♦<- 

* * 



L 



♦**♦ 

•>*07 * 
* C5 ♦ 



^***ili:Yl2********** 



:t,}^Tf ************** 



I .... 
l_>*07 ♦ 



Flowcharts 155 



Licensed Material - Property of IBM 
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* SAVE AREA ♦ 

* ADDRESS ♦ 

* ♦ 
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♦ * 

♦ * 

♦ LOAD ♦ 
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««♦♦************* 



****«G3«* ******** 

* * 

* * 

* CALL *- 

* ♦ 
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***************** 



*«***;^5*****if[**** 



***************** 



♦ ISSUE RETURN ♦ 
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♦ TO LINKBA ♦ 

♦ ♦ 
***************** 



*****!) 1|* ********* 

* * 
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***************** 



****«pt( ********** 

♦ * 

♦ * 
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***************** 



***j3* ********* 
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**************** 
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***************** 
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♦. .* V 
♦. .♦ ♦♦** 
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***I{5*********** 

♦ ' ♦ 

CLOSE ALL FILES 
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**************** 



*****J5****4***** 

♦ ♦ 

♦ ♦ 
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♦ ♦ 

♦ ♦ 
***************** 
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♦ RETURN TO DOS ♦ 

♦ SYSTEM ♦ 

♦ ♦ 
*************** 
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♦ B4 ♦-> 



4>*** 
EXIT 1 

4c:»4c4:4cB4^^^^^^^^^^ 



•'1 



♦ ♦♦* 

EXITR 

4c 4c 4c 4c 4c B5^^^^^^^^^^ 



♦ CLEAR IPTBDF 



4c4:4c4c4c*4c«4c4c4c4c«>0c4c4c4c 

**** 

♦ 07 ♦ 

♦ C3 



4c 4c4c4c4c4c4c 4c4c4c 4c4c4c4c 4c4c4c 



i»4c4c4i4cC2^^^^^^^^^^ 



4c 4c 4c* 

ENDIN 

4c4c4c4c4cC3^^^^^^ 



n 





.♦ SPECIAL = ♦ 


YES 


♦ SWITCH BUFFER ♦ 


* 


X'FF» 


♦ 


>♦ POINTERS ♦ , 




♦. .♦ 




4" * 




4c 4c 




* * 




♦. .♦ 




4c4:4i4i4c4:4c4c*4c**4c4c4c*4c 




♦NO 








.♦. 








D1 ♦. 




4c 4c 4c4<4cD2^ ♦♦♦♦♦♦♦♦♦ 




.♦ ♦. 




4c 4c 




.♦ ♦ 


NO 


4c 4c 


* 


.SINGLE BUFFER 


.*, 


>♦ CHECK ♦ — > 




♦ . .♦ 




4c 4c 




♦. .♦ 




4c 4c 




♦. . * 




4c 4: 4c 4c 41 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4: 4c 






l-YES 







4c4c4c4c4c4c4:4:4c**:^4c4c4c4c4: 



4c 4c 4c 4c 

♦07 ♦ 

♦ C5 ♦-> 



4c*4c4c 

EXIT1A 

4c 4c 4c 4c 4c C5^^^^^^^^^^ 



->*LOAD R8 INTO R1+ 



4c 4c*4c 4c 4c 4c 4c 4c 4c 4c: 4c 4c 4c 4c 4c 4c 



4c4c4c4c4c**4'4c4c4c4c4c4c«*4c 



4c4c4c4c4cD5^^^«*^^^^^ 



4c**4c4c4c4c4c4c4c4c4c4c#4c*4< 



4c4c4c4cE54c4c4c4c4c4c4c4c« 
4c 4c 

♦RETURN TO Rl+2+^ 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c >»4c4: 4c 4c 4<: 

♦CALLING PHASE 



4c4c4c4c4cG2^^^^^^^^^ 



4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c* 4: 4c 



* 4c 4c^ 1* 4c 4c 4c* 4c 4c 4c 4c 4c 4c 
* ♦ 

WRITE 
* * 

**************** 



***** J 1* ********* 

* * 

* * 

* CHECK ♦ 

* * 

* * 
***************** 



****K 1********* 

♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ * 
*************** 
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* ♦ 

* ILACBL01 * 

* ♦ 



* * 

* PICK UP PHASE *- 

* 00 PARAMETER * 

* LIST * 

* * 
***************** 



*****Q-\********** 

*GET SIZE, DATE,* 

* TIME-OP-DAY * 

* PROM SYSTEM * 

* COMM. REGION * 

* * 
***************** 



.* SYSTEM *. YES 

*.COMM. REGION .* 

*. OPTION .* 



**** 

* * 

* El * 

* * 
**** 

*****-£l********** 

* * 

* * 
*READ C.CBLOPTNS* 

* * 

* * 
***************** 



•-[ 



* A3 
* 

♦*** 
SETBUF6 

*****f^2********** 

* DETERMINE * 

* BUFFER 6 SIZE * 
♦AND NEW HIGHEST* 
♦AVAILABLE CORE * 

* ADDRESS * 
******** 



ENTRY PARAMETERS 

1. ADDRESS OF COS. 

2. ADDRESS FOR RETURN 
LIST OF BUFFER. 

3. ADDRESS OF DTF 
ADDRESS TABLE. 



FINISHED 


* 


•*— 1 


♦ . .* 




V 


*. .* 




*♦** 


* 




* 


A 




* El 








* 








**** 



*****^2********** 



***************** 



*****^2***^******* 

* * 

* * 
->* SCAN CBL CARD * 

* * 

* * 
***************** 



*. END-OF-FILE .*- 



.* MINIMUM ♦. 

CORE 

♦.AVAILABLE.* 



*****-QH********** 

* * 
♦MOVE MESSAGE N0+ 

->* ILAC100I TO ♦- 

* PRINT AREA ♦ 

* * 
***************** 



*****cn********** 



***************** 



* G1 * 

♦ *_> 

**** 
PFADOPTS 

*****Q'\********** 



**** 

* * 

* El * 

* * 



*****j)^********** 

* * 
♦ALLOCATE BUFFER* 

* SPACE FOR ♦ 

♦ HORKFILES ♦ 

♦ ♦ 
***************** 



*****'Q2********** 

* * 

* MOVE BLKSIZE * 

* AND RECL TO * 

* TAPE DTF ♦ 

* * 
***************** 

**** 



**** 
NXTFILE 

*****-p2********** 

♦ * 
♦SCAN PUB TABLE ♦ 
♦ENTRIES. SYSOOI^ 

♦ TO SYSOOU ♦ 

♦ * 
***************** 



'-] 



*****Q2********** 



G3 ♦ 

* 

LAST 



->*. TAPESH ON 



-♦WILL UNUSED*. YES 

♦.CORE ACCOMMO-.+ 

*. DATE .* 



*****-pH********** 

♦ * 
♦HOVE MESSAGE NO* 

♦ ILAC100I TO ♦ 

♦ PRINT AREA ♦ 



***************** 

**** 
* 
B5 ♦ 
* * 
**♦♦ 



u 



* * 

* A5 ♦ 

* * 
**** 

*****J^C^********** 

* * 

♦MOVE MESSAGE NO^ 

* ILAC102I TO * 

* PRINT AREA ♦ 

* * 
***************** 

**** 

* * 

* B5 ♦ 

* *_> 

**** 
PUT ^' 

***2S*********** 

♦PRINT MESSAGE * 
-> ON SYSLOG AND 

* SYSLIST ♦ 

**************** 



****Q^********* 

♦RETURN TO PHASE* 

♦ GO ** ♦ 

* ♦ 
*************** 

**-HITH X'30» 
PARAMETER, 
COMPILATION 
ABANDONED. 



*****D^********** 



***************** 



*****-£C^********** 

* * 

* SET UP HORK ♦ 
->* FILE BUFFER ♦ 

♦CONTROL BLOCKS ♦ 

* * 
***************** 



***p^*********** 

* * 

OPEN WORK FILES 
* * 

**************** 



*****Q^********** 



***************** 



r--- 


BUF 


♦♦** 


♦. .♦ 


* * 


♦YES 


♦ G2 ♦ 






♦ * 







*#**;*K 1********** 



***************** 



********************* 

* * 

* G2 ♦ 

* * 



***************** 



*****J2********** 
♦ALLOC BUFSPACE ♦ 

♦ IF REO FOR ♦ 
♦SYSLST, SYSIPT,* 
♦SYSLNK, SYSPCH * 

♦ IN THAT ORDER ♦ 
***************** 



***Y^2*'******** 

* 
OPEN REQUIRED 



**************** 

**** 

* * 

* A3 ♦ 

* * 
**** 



u 



♦ NO 

♦ A5 ♦ 



*****^H ********** 



(FF) 


IN ♦. YES 


♦MOVE MESSAGE H0+ 


ENtRY .♦ 


>♦ ILAC101I TO ♦ 


.* 


♦ PRINT AREA ♦ 


-♦ 


♦ * 


♦. .♦ 


***************** 


X 


*N0 


**** 

♦ B5 * 

* ♦ 






***♦ 


.* . 




J3 *. 


****#^J^iti^i)i***i^i**:^ 


*. 


* * 


*. YES 


♦ MOVE BLKSIZE. ♦ 


DISK .♦ 


>♦ RECL TO DISK ♦ 


.* 


* DTF ♦ 


.♦ 


* * 


♦ . .♦ 


***************** 




►NO 


1 .». 






♦*♦♦ 



*****1j^H********** 

♦ OVERLAY ♦ 

♦ CORRESPONDING ♦ 
-MDTFSD IN PH ♦- 

♦WITH DTFMT FROM+ 

♦ PH 01 ♦ 
***************** 



♦.LIB SPECIFIED. 



***** 
♦02 ♦ 
♦ Al^ 



*************** 



*****Yi5********** 

* * 

* * 
->♦ SET TAPESW ON ♦ 

* ♦ 

* ♦ 
***************** 



u 



F3 ♦ 

f * 

**** 
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Chart BA. Phase 01 (ILACBL01) : Overall Logic (Part 2 of 2) COPY/BASIS Functions 



***** 

♦02 ♦ 
* A1* 

* * 



**j^^'\******* 



4>;«c4c:»*4'>*:*«4'* 



*PHIME REPTAB 
♦ (TIB29) 



*^i**iti4:**4i4i 



GET A CARD 

* * 

**^i******^i****** 



iti:^f:tfQ2*********** 



*. BASIS 


CARD 


*, 


♦. .* 


*. .* 


♦NO 


♦ *** 




* * 




♦ El ♦ 




* ♦_> 




**** 




NOTBASIS .♦. 


El ♦. 


.* ♦ 


.♦ copy 


>♦. STAT] 


:hent 



♦ SET CALL TO * 
>♦ READ BASIS ♦- 

♦ LIBRARY ♦ 

♦ ♦ 
^^^::t^^i^L^iitiit'********* 



***j)H*********** 

* * 

-> GET NEXT CARD 



:4c ))i « 4c :tc Xc « 4 :Cc 4c « 4c :tc « « :#: 



~1 



itc«4c«4c««3»:!«c*4c>t<3|c>(c>)c« **** 

* * 

* El ♦ 



*#:Ht^************ 



lOc4c 4c4c4c«4c:»:>|c4e« « «4< 4c 4c 



4c4c4cE54ci4c4c4c4c4c4<4c*4c 

4c * 

-> WRITE TO SYSLST 
* * 

4c«4c4c4c«4<4c4c4c««4c4c4:4c 



4c 4c 4c*:^ 4c 4: 4: 4> 4' 4c 4c 4c 4> 4c 4c 



4c 4'4<G !♦♦♦♦♦♦♦♦♦♦♦ 
4c 4c 

WRITE TO SYSLST 
4c * 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 



«4c>^H !♦♦♦♦♦ ♦♦♦♦♦♦ 
4c 4c 

GET NEXT CARD 
* 4c 

4c«4c 4c 4' 4c 4c 4c 4c 4c 4c 4c 4< 4: 4c 4c 



4c 4c 4c 4: 4c 4c4c 4c 4c 4c 4c 4c * 4c # 
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* * 

* ILACBL10 ♦ 

* * 



♦♦B1******* 

♦initialization/ ♦ 



* STORE » 

* PROGRAM-ID, * 

* DATE-COMPILED * 

* * 



« 4c 4c )tt * D 1 lie « « 4c 4c * 4c 4c >t< * 

* * 

* PASS * 

* ID-DIVISION * 

* COMMENTS * 

* * 
4c 4c4'>t'« « 4'4c i»4c 4c4' 4^ «4'4c 4c 



•l 



♦ B3 * 
4< *. 

**4:4c 

ENVSCN 

4c4c*4e4'B3*4'^>i='t'***** 

♦PROCESS SOORCE ♦ 
♦OBJECT COMPUTERS 

♦ SPEC. NAMES OF ♦ 

♦ CONFIGURATION ♦ 

♦ SECTION ♦ 

4c 4c 4c 4c 41 4c 4c 4(4' 4c 4t 4c 4c :^ 4: 4c* 



4c4c4:4c4cC3^^^^^^^^^^ 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



u 



SOORCE 

SELECT SENTENCE 
APPLY CLAOSE 
RERUN CLAOSE 
SAME CLAUSE 
MULTIPLE-F LE 
CLAUSE 


PROCESSING 
ROOTINE 

SELSCN 
APPSCN 
PRNSCN 
SMESCN 
MLTSCN 



El ♦ 

V 4c 

4c4c*4c 



4c 4c 4-* 
4c 4c 

♦ EU * 
4c 4c. 

4= 4c 4c* 
PDSCN 

4c4c4c4c4c£4«4c4c4c4c*4c *** 



'-] 



^^^^^ss********** 



r- 

4c*4c* 

* 4c 

♦ B3 ♦ 
4c 4c 

♦ *** 



BRANCH TO * 
SECTION 
. PROCESSOR. ♦ 









FILE > 


F.n 


W-S > 


FU 


LINK > 


Gl» 


REPT > 


HI» 



************* 

**** 

* * 

* FU * 



***************** 
**** 



u, 



1 



**** 
WLVSCN 

*****p()********** 



n 



********************* 
* * 

**** * E-j * 

* * * * 

♦ G4 ♦ ***♦ 



"1 



**** 
LDSCN 

*****Gl( ********** 



n 



**** 
* * 

♦ HI ♦ 

* * 
**** 



****!£ 1********* 
♦RETURN TO PHASER 

* 00 ♦ 

* * 
*************** 



********************* 

* * 

**** * El * 

* * « * 
*!!'»♦ **** 

* *. 
**** 

*****{]t(********** 



•-! 



L 



c****** 

**** 
>* * 

♦ HI ♦ 

* * 
**** 
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* * 

* ILfiCBLlI ♦ 

* * 



.♦ PROCEDURE *. 
. DIVISION 
*. HEADER .* 



ilfrHL^i:lii^2********** 



]» 41 4c 4: 41 4c * 4t 41 4c 41 41 441 ♦ * ♦ 



CHKDCL .*. 




DCLSCN 




CI *. 




4c*4c4'*C2****^^+*** 




.♦ *. 




* * 




.♦DECLARATIVE* 


YES 


♦ ♦ 




*. SECTION 


♦_ 


>♦ PROCESS asE ♦ , 




*. .* 






♦ - .* 




4c4<4'*«:t<*««*«>f«*4<4:***>t'* 




*N0 




* * 




**4c4c 




* D1 ♦ 




# * 




♦ 4c 




* D1 * 




♦ *** 




♦ *_> 








4c*4c» 








DELIM .*. 




IHNAM 


DICENT 


D1 *. 




4c4c4c4'*D2*^^**^**^^ 


4c4c4c4c4cD3«4c4<4c4<4c4c4<*4c 


-* *. 




4c * 


4c 4c 


.* LEFT-HAND * 


YES 


♦ SET UP LEFT ♦ 


♦ PUT IN ♦ 


*. NAME 


4= 


>*HAND NAME WITH ♦ 


^>+ DICTIONARY ♦ , 


*. .* 
♦. .* 




* ATTRIBUTES ♦ 

4c * 


♦ . .♦ 




4c 4c 4c 4^ 4c 41 4c 4c 4< 4< :«c 4c 4c 4c 4< 4c 41 


4c4c4c4c4c4c4c4:4<4c4c*4c4c4c4:4<4c4c4:4c 


♦NO 






4c * 

♦ DT ♦ 

4c 4c 
4: + + * 


.♦. 






VRBSCH .♦. 


El ♦. 






E3 ♦. 


.♦ ♦. 






.♦ ♦. 


.♦ ♦ 


YES 




.♦ ♦. YES 


♦. VERB 


.* 




>♦. SPECIAL VERB .♦ : 



4c 4> 4c 4c 4cE4 ♦♦♦♦♦♦♦♦ 



♦ END ♦ 

DECLARATIVE 
♦. SECTION .♦ 



4c4c4c4c4cG 1^4c4c«4c4c4c*4c4c 

♦ END PROC * 

♦ DIVISION AND ♦ 

♦ PHASE 11 * 

♦ PROCESSING ♦ 

♦ 4c 
4c4c*4c4c4:4c4c4c4c4c4:4c«4c4c4c 



* EXIT TO PHASE ♦ 

* 00 ♦ 

* 4« 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c* 4c 4c 4:4< 



4c4c4c4c4cF2******^^ 

4c 
4c 
->♦ 
4c 
4c 
4c«4c4c4c**4c4c4c4c4c: 



RESET 

DECLARATIVE 

SWITCH 



>»4c4c4c4c4c4c««*4c 



4c 4c 4c 4: 4cp44c 4c 4c 4c 4: 4c 4c 4c 4c 4c 
4c ♦ 

* SUBSTITUTE ♦ 

->♦ ENCODED COBOL * — ^> 

♦PROC STATEMENTS* 

« 4c 

4: 4c 4c 4c 4c 4c 4< 4c 4c 4: 4c 4:4c 4c 4c 4c «: 



u 



4c 4c 4c 4t 

c 4c 

' D1 ♦ 

4c 
4c 4c 4c 4c 



4:4c4cG3*4c***4c^**«^ 

4c 4c 

PUT ONTO SYS002 



4c 4c 4c 4c 4c 4:*4c 4c 4c 4c 4c 4c :» 4c 4c 

4c 4c 4c* 

4c 
D1 * 

4c 4c 

4c4c*4c 



u, 
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n 



* * 

* 1LACBL12 * 

* * 

4citc 4: « « * :tc « 4< 4< 3f ** * 4< 



:ti)li^2******* 



3»:3(.4c:^«««4<:»3«c* 



4:« «:«<)»:«*« 4: «« 4c :(c>tc4t * 



* PROCESS RD * 

* STATEMENT GET *<- 

* NEXT RECORD * 

* * 



* PROCESS 01- * 

■ >*LEVEL STATEMENT*<- 

*6ET NEXT RECORD* 

* * 

igc * ]|c >tc lOc 41 4: *^ Xc « 4c 3|e «« « 4< * 



♦ *** 

EG01A1 

4L4c>tcj(. 4t J^44:«4'4c* «* *** 

♦GNSPRT * 

♦GEN PARAMETRIC * 
♦FIXED ROUTINES-* 
♦GET NEXT RECORD* 

«]tc)»:**4(3»:«*4:3tc*>l<4c4c*4i 



YES -* *. 

*.RD (SEE NOTE).* 



* EXIT TO PHASE ♦ 

* 00 * 

* * 

4c )^ 4= 4r :(c 4c 4c * 4c :tc 4c 4c 4c «i|c 



* 01-LEVEL 
(SEE NOTE) 



EB01A1 

*4>4c*4cF3********** 

♦FLUSH * 

*— *_4c_4c_*_*_4c_4c_* 



4c 4c * 4: 4c 4c 4c 4c 4c 4c 4c 4c * 4c * 4c « 



u: 



* PROCESS 02-U9 * 

* LEVEL * 

* STATEMENTS * 

4c 4c 

4c 4c 4c 4c 4c « 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 4c 



EE01A1 

4c4c4c4c4:H2********** 

♦FLDSH * 

♦GENERATE GROUP ♦ 

♦ ROUTINE GET ♦ 

* NEXT RECORD * 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 



YES .♦ 01-LEVEL 
♦. (SEE NOTE) 



OVERALL CONTROL OR PROCESSING 
IS DONE BY THE GETDLH ROUTINE, 
WHICH HAS A SIMILAR FUNCTION 
TO THE GETDLM ROUTINE IN 
PHASES 10 AND 11. 



♦ NO 

I 4c4:4c4c 

L_>4c 4c 

♦ A4 ♦ 
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'-^ 



4c 4: 4^ ifr A 1 *=*=*"*"*' 't' *=^ '^ 

* ♦ 

* FLUSH ♦ 

* ♦ 



.♦NEXT GROOP *. YES 

»■. CLAUSE WAS .* 

♦.SPECIFIED.* 



♦****B2* **♦♦♦♦♦♦* 



A4 ♦. 
.♦TYPE IS+. 
.♦ CONTROL ♦. YES 
♦.HEADING FINAL. ♦ 



.♦TYPE IS^. 
.♦ CONTROL ♦. 
.FOOTING FINAL. 



4c««4c>|c«:«««*4:«4c4c4:«« 



4:i«< 4< 4i «4:« « ^^iC *4i4"»:«* 



*it:**C2* ♦♦*♦♦♦♦♦* 



ilUti**********-***** 



4c**«4c4c4:4c«4c>«c«««:(c3tE* 



*^i**-£^2********** 



.♦ TYPE IS 
REPORT 
♦. FOOTING 



4<«4'4:4'4c«4':Cc>tc# 



«4'4c«4cp2^ ♦♦♦♦♦♦♦♦♦ 



TYPE IS 

REPORT 

HEADING 



4c4:4c4c:^*««4c4c4<«4c4c](:«* 



4c4c4:jli4:jtc«4i4:>»:«« **««« 



**«**J12** + ^ 



TYPE IS ♦. YES 

CONTROL .♦ 

HEADING .* 



4:itc4c«««=gt4c4citc«4>4c*«*« 



*4: 4c 4c 4c J2^^^ ♦♦♦♦♦♦♦ 



TYPE IS ♦. YES 


♦GENERATE END 


OF^ 


CONTROL .♦ 


>* CTF-ROUT 


*. 


FOOTING .♦ 


♦ 


* 


.♦ 


4c 


* 


*. .♦ 


4c:»4c*4c«4c4c4:4c4:4c4i: 


*** 


♦NO 






1 ***♦ 
L_>* * 






♦ Aa ♦ 







♦ ♦»»4cC5 ♦*♦♦♦♦♦♦♦* 

♦ ♦ 

♦ INSERT LINES ♦ 
->*COUNT IN SUHTBL* 

♦ TABLE ♦ 

♦ * 

4c4c4c4c«4c4c4c=|c4c4c4:4c^««« 



* * 

♦EXIT TO GETDLM ♦ 

* * 

4c « 4c 4c 4c « « * « « 4c 4c 4: 4:4c 
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* ♦ 

* ILACBL20 * 

4c i(> ])c * 4c 4: 4: * * If >tc « « :«c :(c 



4c*B2******* 



4c4t*4c4:«4c4t4c4c4c 



C2 ♦. 

.* NEXT *. 

.♦SECTION IS * 
*.FTLE SECTION 



FB01A1 

♦FILEST * 

4t_*_*— ♦_*_*_*— *—♦ 

->* PROCESS FILE * 

* SECTION * 

* * 
4c 41 :|t 4= 4: ♦ 41 * * « 4> « 4i « 4t 4c * 



D2 *. 

.* NEXT ♦. 

.♦SECTION IS ♦. 

». WORKING- 

♦. STORAGE .♦ 



FC01A1 

4c4c4:4c4cD3^^^^^^^^^^ 

♦HSTSCT * 

4c_4:_4c_*_4c_4!_4:_*_* 

->♦ PROCESS ♦ 

♦WORKING-STORAGE* 
♦ SECTION ♦ 

■— -4c4c4c4c4c4c4c*4■ 



E2 ♦. 

.♦ NEXT ♦. 

.♦SECTION IS ♦. YES 

LINKAGE 

SECTION 



*. 



.♦ 



FC01A3 

4c«4'4c4cE34c4c4c4c4c4c4c4c4c4c 

♦LINKST ♦ 

4c_4c_4c_4e_4c_4c_4c_*_4c 

->^PROCESS LINKAGE* 

* SECTION ♦ 

4c 4c 

4c4c4c4c4c4c4c«4c4c4c4c4c«4c4c* 



F2 *. 

.♦ NEXT ♦. 
.♦SECTION IS ♦. YES 

REPORT .♦ 

♦. SECTION .* 



FC01A5 

4c 4c 4c 4c 4cF34c 4c 4: 4c 4c 4:4:4c 4: 4c 

♦REPORT 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4: 4c 4c 4< 



4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4< 4c * 4c 4c 4> 4c 



♦♦♦♦H2^+^+^^^+* 

* EXIT TO PHASE ♦ 

* 00 ♦ 

4c 4> 

4c 4c 4c 4' 4c 4c 4c :^ 4< * 4c 4c 4c 4c 4c 
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Chart FB. Phase 20: FILEST Routine 



* ♦ 

* FILEST * 

* * 

Hi # « « « i«c * :4< 4= i«c 4c 4c 4i ]«c « 

* * 

* B1 * 

* *_> 



.♦ END OF *. YES 

->*. SECTION OR .♦ 

*. FILE .* 



SEE CHART 
FA01D2 

* RETURN TO * 

* MAINLINE ♦ 

* * 

4:i«c:Oc*4:4>4c4c4:««4c«iO>« 



.*. 


FDTEXT 


CI *. 


***C2*********** 


* ♦. 




*. YES 


* PLACE FD ON * 


FD ENTRY .* 

.* 




♦ 22 ♦ 


* . .* 




*. .* 


« itc^c « 4c * 4c « « * 4c 4=4c 4c4c 4c 


♦NO 





4c4^4c4c4'Cl4****«^*^*4< 
4c 4c 

4c 4c 

->* BUILD LABTBL * 
4c 4c 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: >^ 4c 4< 



D1 *. 

.* * 

SD ENTRY 



* PLACE SD ON 
SYS004 FOR PH 
* 22 ♦ 

4c 4c 4c 4c 4c 4c 4c 4c « 4c 4c 4: 4c :» 4c 



->*GET NEXT ENTRY * 

4c 4c 

4c ♦ 

4c 4c 4c 4c 4c 4c 4c 4c 4' 4: 4c 4: 4c 4c 4= 4c 4c 



* B1 * 

* 4c 
4c 4c 4c 4c 



4c 4c 4c*4cp 14: 4c 4c 4c 4c 4c 4c 4c 4c 4c 

♦CHECK TO SEE IF* 

♦ ITEM IS ♦ 

♦ LABEL/DATA ♦ 

♦ RECORD ♦ 

4c 4c 

4t «««*««* 4c4::tc 4c 4c 4c«4: 4c 



♦ 4c4c*4:G 14c4:4c4c4c4c*4c4:4c 



4c 4c 4c 4c 4c 4c 4:4c 4c 4c 



FD01A1 
4c:(c«4c4cHl4c4c4c4c4c4c4c4c4c4c 

♦LDTEXT * 

*_4c_4c_4c_4c_4c_4c _4c_4c 

-♦PROCESS 01-49- ♦ 

♦ LEVEL AND 88- ♦ 

* LEVEL ENTRIES * 
:gc 4c4c Aigc 4c4c4c 4c4c4c4c« 4c4:4c4c 
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Chart FC. Phase 20: WSTSCT, LINKST, and REPORT Routines 



* ♦ 

* WSTSCT * 

* * 



* * 

* INITIALIZE * 
♦AREAS, SWITCHES* 

* AND TABLES * 

* * 



FD01A1 

:4c«itc4=«Cl********** 

♦LDTEXT * 

*_♦_*_*_*_*_*_*_* 

* PROCESS LEVEL *< 

* DESCRIPTION * 

* ENTRIES * 

4; * « 4c >tc « 4c « :«: « >C * :(c >«r« 4c :Cc 



* END OF 

SECTION OR 
*. FILE 



**♦* A3*** *♦♦♦** 

* ♦ 

* LINKST * 

* * 

4c 4c « 4= :«c 4c 4c 4c 4c 4c « 4c 4: 4c « 



* INITIALIZE * 
♦AREAS, SWITCHES* 

* AND TABLES * 

4c 4c 

4c 4c 4c 4c 4< 4c 4c 4= « 4c 4c 



4c 4c :» 4c 4CC3* ********* 

♦LDTEXT * 

* PROCESS LEVEL * 

* DESCRIPTION * 

* ENTRIES ♦ 

4c 4c 4c 4c 4c 4c 4: >0c 4e 4c 4c 4c 4c 4c 4c 4c* 



♦ END OF 

SECTION OR 
*. FILE 



A4c 4c 4c A5* ******** 
4c 4e 

* REPORT * 

4: 4c 

4c 4c 4c 4c 4c4c 4c 4c 4: 4c 4: 4:4c 4c 4c 



**B5******* 
* 4c 

* INITIALIZE ♦ 
*AREAS, SWITCHES* 

* AND TABLES * 



4c4c4<4<4cC5* ********* 

♦LDTEXT * 

4c_4c_4c_4c_4c_4c_4c_4c_4c 

* PROCESS LEVEL « 

* DESCRIPTION * 

* ENTRIES * 

4c 4c 4c «4c 4c 4c 4c 4c 4c« 4c 4c 4c 4c 4c 4c 



* END OF *. NO 

SECTION OR .* 

*. FILE .* 



SEE CHART 
FA01E2 
4c 4c 4c 4c E 1 4c 4c 4c: 4c 4e 4c 4c 4c 4c 

♦ RETURN TO ♦ 

♦ MAINLINE * 
4c 4c 

4: 4c 4c 4c 4c 4c 4c 4c 4c 4:4c 4c 4c 4c 4c 



SEE CHART 
FA01F2 
4c*4c4cE3***++^ + ^* 

* RETURN TO * 

* MAINLINE * 
4c 4c 

4c 4c 4c 4: 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



SEE CHART 
V FA01G2 
****E5*^^^***** 

* RETURN TO * 

* MAINLINE * 

* 4c 
4e 4: « 4: 4c 4c 4: 4: 4c 4c 4c 4c 4c 4c 4: 
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Chart FD. Phase 20: LDTEXT Routine 



n 



****A1*** ****** 

* * 

* LDTEXT * 

* * 



* AU 

* 

♦ ♦*♦ 

BELEMI 

i|c*4.«4<AU********** 

* CHECKS FOR * 

* VALIDITY OF ♦ 

* CLAUSES ON * 
♦ELEMENTARY ITEM* 

* * 



« 4i itc i«i « :«< « 4i 4c :([ :C >4c * * * * ^c 



PICTAN 

^tc^^^^i^BS********** 

* CALL * 

* APPROPRIATE * 
>* PICTURE * 

* ANALYSIS * 

* ROOTINE ♦ 

* 41 * 4c :(( :<c :» 4i :tc i4< * « « ic * * 4i 



* DETERMINE * 

* SOBSCRIPT * 

* REQUIREMENT * 

* ♦ 



.♦OCCURS AND *. YES 

*. INDEXED BY .* 

*. CLAUSE .* 



.VALUE CLAUSE .*- 



* CALL APPRO 
->*VALUE ANALYSIS 

* ROUTINE 
♦ 



♦ * 

* D4 * 



* WRITE OUT ID 
->*NAMES AND KEYS 

* ON SYS004 
* 

4c4c«4c4t4c«4t«4c«*«>«i:4c« 



♦ ♦** 

BNORML 

4c«««*D4******* *** 



4c4c=«'**4^>(c«>«c«4:*:»:«4c4'4c 



* GENERATE 
ATF-TEXT ON 
* SYSOOa * 



*IF COPY CLAUSE * 

* COPY IN SAVE * 

* AREA * 

* * 

4c>f«*4:««4c*9(c4=«*4:««* 



* CHECK USAGE * 

* CLAUSE * 

* COMPATIBILITY * 

* * 



* ITEM ANALYSIS * 



«*♦**♦***♦******* 



4c4c«F5*********** 

* GENERATE * 
-> DATA-TEXT ON 
* SYSOOt * 



****G4********* 

* RETURN TO * 

* CALLER * 

* * 



*. 




BGROUP 




,*. 




VALGEN 


1 *. 




«4<4=««J2********** 


J3 


*, 




4c4c4t*=(<J4*«4c4c«*^»:«* 


*, 




* CHECKS FOR * 


.* 


*. 




* * 


*. 


'RS 


* VALIDITY OF * 


4c 


*. 


fES 


* CALL APPRO * 


GROUP .*- 
.* 




>* CLAUSES ON * 

* GROUP * 


^>*. VALUE 










.* 




♦ ROUTINE * 


.* 




* * 


♦ . 


.* 




* * 


*. .* 




A*it:7lf#4:*********** 


4c 


. .* 




*:t,***:t=*********** 


*N0 








*N0 






1 **♦* 








1 **** 




* AU * 








* Dt| * 




* D4 * 



Flowcharts 167 



Licensed Material - Property of IBM 



Chart GA. Phase 21 (ILACBL21) : Overall Logic 



* * 

♦ ILACBL21 * 



* * 

* CLEAH WORK * 
♦AREAS AND PRIME* 

* TABLES * 

* ♦ 



:iiiti*Q2*********** 

READ 
* * 



GE01A1 

♦BOFGEN * 



*SET ALL FIELDS * 

♦ IN DICT WHICH ♦ 

♦ CAN BE PICKED ♦ 

* DP DIRECTLY * 

* FROM FSTXT ♦ 



* DETERMINE DTP * 

* TYPE AND SET * 

* INDICATOR IN ♦ 

* DICTIONARY * 

* * 



V GB01A2 

iti:^iHli:t'Q2********** 

♦RECORD * 

*_♦_♦_*_*_♦_♦_*_* 
* CHECK RECORD * 
♦CONTAINS CLAUSE* 
♦AND SET IN DICT* 



V GC01A2 
iti*^*if^2********** 
♦BLOCK * 

*_♦_♦_*_♦_♦_♦_♦_♦ 
♦ CHECK BLOCK * 
♦CONTAINS CLAUSE* 
♦AND SET IN DICT* 



GD01A1 
**iif**j2********** 
♦RECORDING ♦ 
*_♦_*_*_*_*_*_♦_* 
♦ DETERMINE * 
♦RECORDING MODE * 
♦AND SET IN DICT^ 

It: « « * :»: * « * * « >(c 4c 4: :(c ]{c !|c # 



^3|c4:«4cK2^^*^**^^^^ 



4c>»:«*Xe«:«>«cXc>»:*4< 



i^Hi*4^:t^^2********** 



♦RELEASE TABLES ♦ 



«>gc:(c:(c«««:0=>t'>«=^ 



itc«««])c^3Cc«:»c)0c4:*«4:*«« 



* * 

♦MAKE COMPLETED ♦ 
>♦ ENTRY IN *- 

* DICTIONARY * 

* * 
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Chart GB. Phase 21: BECORD CONTAINS Clause Processing 



**imiji^2********* 

♦ *■ 

♦ RECORD ♦ 

♦ * 



.♦ RECORD 
. CONTAINS 
*. CLAUSE 



NO 



* D5 * 

* * 
♦ ♦** 



^t4i^^*C2********** 



^nl,ilf,^^ifQ^i^llfi^^^^^ntii^i^,^ 



:4t*4c4c«*4t:4c>«c«:|[4t4:««4e3^ 



♦♦♦♦♦D2******** 



3gc:4i:0>«4c««4c4: 



EQD .* N2 = *. HIGH 

* -COMPUTER MAX .* 

♦.REC SIZE .* 



♦♦♦♦♦G2********** 



ISAM 


FILE 






>* ERROR MSG ♦ 




* 


A ♦ * 


♦. .♦ 






* ♦ 


*. »* 






,lf:$f:t,4:iti*4i********** 


♦ NO 


















**** 












* >» 












* D5 ♦ 












* ♦_> 




•■ 






**** 




.*. 






7 


m ♦. 






*4<4:4'4<D5*«******^* 


* * 






* SET DICT MAX * 


N1 LESS 


* 


NO 


* REC SIZE = * 


tha:j n2 




* ^> 


♦ COMPUTED MAX * 






.* 




♦ REC SIZE ♦ 



***^xf* ************ 



4c 3tc )(c « s 5 age 4t * :0c 4= f « 4= ^tc 

* * 

* RETURN ♦ 

* * 
^i************** 



«*:(i«4E:tci»4c4':f>»'«4<:«c:)i«« 



* * 

* RETURN * 

* * 

i):*d^*it#4:******** 
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Chart GC. Phase 21: BLOCK CONTAINS Clause Processing 



* * 

* BLOCK * 

* * 



* ♦ 

♦SET INDEX BYTE * 
->* FOR UNBLOCKED * 

* FILE * 

* * 



4c :4c i|c«B4* ♦*♦♦♦♦♦* 

* ♦ 

* RETDRN * 

* * 



* * 

->* RETURN ♦ 

* * 

4i:{c4ciec4ci»4< ^lOc^^cXc** 4t* 



*itf***-DH********** 



->*CONSIDER N1 MAX* 



n 



E3 * 
* 

ISAM 



*4c«**«>)c4c4c*4E>f4c4c4n|c4;4t:»:4c« 



♦ * 

♦ ♦ 

>* ERROR MSG *- 

♦ ♦ 

♦ ♦ 

4c :«t :tc 4: « * >t= 4= « * 3«c 4= 41 * *« * 



4c4t4<4cE5********* 
4t * 

->* RETURN * 
4= * 

4c4c*4c:»:)tc**4cXc4c4:4<>^4' 







4: 


HIGH 


N1 


N2 






4c 






.4c 






4c 


*LOW 







4c4c4cG34c4c4c**4<=tc4c** 



4c4c4:4c4c«*«)«c4c4c4c4c4c4:4c4c 
*4c*4c 



4c4c4c4c4cH5««4c4:4c4c4c4c4c4c 



ERROR MSG 



4c4c*4cJl4c4c4c*4c4c4c«4= 
4c 4c 

* RETURN * 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4" 4c 4c 



»4c4c4c*J2********** 



4: 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4:4: 4c « 4: 



* BLOCK 

CONTAINS 1 
*. RECORD . 



4c 4c 4c 4c 4CK34: 4c 4= 4c 4: 4: 4c 4: 4c 4: 
4c 4c 

♦SET INDEX BYTE * 

* FOR BLOCKED *- 

* FILE * 

4c 4c 

4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



N2 LESS 

THAN REC. 
.DESCRIP. . 



4c 4: 4c « 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4: 4c « 



♦ *4c*J54c4c*****4c* 

* 4c 

* RETURN * 
4c 4c 

4: 4c 4c 4c 4c 4: 4c 4c 4c 4c 4: 4: 4c 4c 4c 



4:4c4c4cK4*4c4:4:4:4c4c 4c4c 
4c 4c 

* RETDRN * 

4c 4c 

4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4: 4c4c 
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Chart GD. Phase 21: RECORDING MODE Clause Processing 



* RECOHDING ♦ 

* * 



SPANNED *. NO 

RECORDS .* 

IMPLIED .* 



♦ ♦♦* 

* * 

* G2 * 

* * 



->*. MAGNETIC TAPE.*- 



->♦. DIRECT ACCESS. *- 



*****cl***** 



C2 *. 
FIXED 



4i:gi>t<4c**« 



DNDEFINED .*<- 



D2 *. 
.* * 

VARIABLE 



■-1 


♦ 


DA 
* , 
*. 


OR IS 


**** 




♦. .♦ 


* * 






^NO 


* E3 * 










* * 










*♦** 






' 


■ 



:tc««4c#F 1**#****«** 



>tc««4:«:»*4c*««4<:«e#*«4c 



liiitiit^4:^*Tp2********** 



«4c4c:«c:4c*«*««*:t[:^*4c4c« 



c 



RECORD *. YES 

>♦. DESCRIPTION .* 

♦.VARIABLE .♦ 



* G2 ♦ 

* * 



*. ANY ODO'S 



* * 

* SET RECORDING * 

* MODE IN * 
♦DICTIONARY TO V+ 

* ♦ 



♦ K2 ♦ 

* ♦_> 

♦ *♦* 



♦ CALCULATE ♦ 
♦BUFFER SIZE AND+ 
♦PUT DTF NUMBER ♦- 
♦IN DATA A-TEXT ♦ 

* * 

« ]|i 4: It'* 4c3|citE «« 4c « «:4i :|c * :» 



C3 ♦. 

.* BLOCK ♦. 
CONTAINS ♦ 
CHARACTER 

. USED .♦ 
♦. .♦ 



J^i):iiL:tiitfJ)2********** 



♦♦***C4 ♦*♦**♦♦♦♦♦ 

* * 

* * 

->♦ ERROR MSG ♦ 

* ♦ 

« 4':4t4< :»4<4'*:«'**** 4c 4c:^4< 



*4<«*4cC5^«4^^4*««4i 

* * 

* * 

* ERROR MSG ♦< 

* * 

* ♦ 



* ! 



♦ SET RECORDING ♦ 

* MODE IN 
♦DICTIONARY TO S- 



* * 
**** ♦ K2 * 

* * » * 

* E3 ♦ ♦**♦ 

* * , 

* ♦ 

->♦ ERROR MSG ♦ 

* * 

* ♦ 

4i :)::{c 4: A *«:«««««*« :(c « « 



♦♦D5+^ ♦♦♦♦♦♦♦♦ 



4c4<4:4c4:«*«4<«4e>|c«4:*3»c* 



G3 ♦ 

ISAM 



♦ * 

* * 
>♦ ERROR MSG ♦ 

♦ * 

* * 

4i4c*4c4c«>|c4c«:ti4c«««*:|i« 



4c« « :|c « Q3 Xc 4c 4c4c«!*:)» 4c itc^c 



*******^^i*HiTt:***** 



♦ GO TO DTP ♦ 
->♦ GENERATOR ♦ 

* * 

4c4i«4<4c>tc4c«4'4c4'4c:^4c4> 
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Chart GE. Phase 21: BDFGEN (Part 1 of 2) 



4c * 

* BOFGEN * 

* * 



* * 

* B1 * 



.♦ ALL SAME 
. AREA FILES 
♦.PROCESSED. 



CI ♦. 
.* JUST *. 
.♦PROCESSED A*. NO 

». SAHE AREA .* 

*. FILE .* 
♦.ENTRY.* 
♦. .♦ 
♦YES 



D1 ♦. 
.♦ THIS ♦. 
.♦FILE HAS NO*. NO 

♦.SAME AREA NO .♦ 

♦. AS LAST .* 
♦. ONE .♦ 
♦. .♦ 
♦YES 



El *. 
.♦ LOC ♦. 
YES .♦ COUNTER * 

*.LESS THAN OR 

*. EQ TO .♦ 
♦.ENDLO.* 



♦NO 



* * 
♦STORE LOCATION * 

♦ COUNTER IN ♦ 

♦ ENDLOC * 

* * 



♦ * 

♦ RESTORE LOC * 
>* COUNTER FROM ♦ 

♦ BEGINLOC * 

♦ * 

**** 

♦ » 

♦ HI * 

♦ * 

♦ ♦ 

♦ * 

♦ SAVE FILE ID ♦ 

♦ * 



♦ 01 ♦ 

♦ J1 



%**»*— J 



tiiHtiit:*:t^2********** 



* A4 * 

* * 



n 



n 



u 



« 4c :ti itc :C 4c :|C)|c 4> 4c iK :»: !tc 4c i|c 4: « 

4c*** 

* * 

* K2 ♦ 

* * 

♦ *4c* 

*****B2^^^^^^^^^^ 



♦ INDICATE NOT 
->♦ PROCESSING A 
♦SAHE AREA FILE 



n 



********************* 



.♦ IS THIS A *. YES 

->♦. SAME AREA .♦ 

♦. FILE .♦ 



*****C3* ********* 

♦ SAVE LOCATION ♦ 

♦ COUNTER IN ♦ 
->♦ BEGINLOC SAVE ♦ 

♦ SAME AREA ♦ 

♦ NUMBER * 
***************** 



u 



**** 



*****Q2^**^^*^*** 



**************4<** 



E2 *. 
.♦ *. 

.* 4> 

♦.END OF TABLE 



.♦ IS LOCCTR ♦. YES 

>. LESS THAN .♦ 

♦. ENLOC .♦ 



*****P3*****«**** 



***************** 



*****Q2*******4t** 

♦ POINT TO ♦ 

♦ BEGINNING OF ♦ 
♦BUFFER TABLE FD* 
♦TABLE BL TABLE * 

♦ * 
***************** 



**** 
>* * 

* B1 ♦ 



L: 



*****H2^*^^^^^^^^ 

* * 

* POINT TO NEXT ♦ 
->♦ ENTRY IN BUF ♦ 

* TAB ♦ 

* * 
***************** 



SAVE SRA NO ♦<- 



***************** 



.♦ SINGLE ♦. 

".BUFFER UNBLK .♦ 

♦. OR ISAM .* 



*****C[| ********** 
♦LOCATE ENTRY IN* 
♦BUFTAB AND FILL^ 

* IN ADCONS IN ♦ 

* DTF ♦ 

* ♦ 
***************** 



*****j)4********** 



***************** 



.♦ SIZE ♦. 
.♦ GREATER *. 
.THAN MAX SIZE.^ 
*. SO FAR .* 



*****plt ********** 



***************** 



*****G((^^^^^^^*^* 

* ZERO OUT THIS * 

* ENTRY TO * 
->♦ INDICATE THAT * 

* IT IS DONE * 

* ♦ 
***************** 



***«*H4********** 



**** 

* * 

* A5 ♦ 

* *. 
♦ *** 

*****A5********** 

* * 
♦UPDATE LOC CTR ♦ 
♦BY MAXIMUM SIZE* 

* SO FAR ♦ 

* * 
***************** 



*****B5********** 



**4c !(<*** 4c 



******* 



*****C5********** 

♦ * 

♦ POINT TO ♦ 

♦ BEGINNING OF ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



D5 ♦. 
.♦ ♦ 
.♦ 

-♦. FINISHED 



****S5********* 
♦RETURN TO PHASE* 

* 00 ♦ 

* * 
*************** 



***************** 



***** 
*02 ♦ 
* t^2* *♦*♦ 



A 



* J1 * 

* ♦ r— 
**** V 

.♦. 
K1 



IS LOCCTR ♦. NO 

LESS THAN .♦ 

. GEDLOC .♦ 



**** 

* * 

* K2 ♦ 

* * , 

****-| 

*****l^2^^^^****** 



.* FILE ID *. YES 


.* *. NO 


->♦. EQUALS SAVED .♦ , 

♦. FILE ID .♦ 1 
♦. .♦ V 


*.END OF TABLE .♦ 


♦. .♦ 
*. .♦ 


*. .* **** 


♦. .♦ 


*N0 ♦ ♦ 


*YES 


* J1 * 


1 **** 
l_>* * 


* * 


**** 


* A5 ♦ 



->♦. SAME SRA NO .♦ 



*YES 

L>.* 



♦YES 

L**** 
>* * 
♦ A2 ♦ 



***************** 

**** 
* 
AH * 
* * 
♦*** 



u 



♦ YES 



*****I^4********** 

* * 

♦ GET NEXT FD ♦ 
->^ENTRY AND NEXT ♦ 

♦ LD ENTRY ♦ 

* ♦ 
***************** 



J1 ♦ 
* * 
**** 



u 
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***** 

♦ 02 ♦ 

* A2* 
* * 



**Jlf:ti,tif^2********** 



..*-} 



**** 

♦ ♦ 

* A4 
**** 

*****A4********** 



n 



***************** 



♦ * 

♦ SET LOCCTR TO * 
♦NEXT DW. STORE ♦ 

♦ LOCCTR ♦ 

♦ ♦ 

**«)(<:((******«***** 



NO .♦ SflODLD BL 

♦. PT TO THIS 

♦. AREA 



D2 ♦. 
.♦ THIS ♦. 
NO .♦ PILE HAVE ♦ 

< ♦. SAME RECORD 

♦. AREA .♦ 



E2 ♦. 

.♦SINGLE ♦. 

.♦ BOFFEHED ♦. 

.UNBLK OH ISAM. 



->+.END OF TABLE 



t| * 



********** 





.♦PILE ID IN ♦ 


. YES 




.♦ SHOULD BL ♦. NO 






* 


. BUFTAB = 
♦. .♦ 
♦. .♦ 


•n 


♦ . PT TO THIS .♦ , 

♦. AREA .♦ 

♦. .♦ V 






♦. .♦ 


*♦** 


♦. .* *♦** 






♦NO 


* * 


*YES ♦ ♦ 








♦ K2 ♦ 




♦ D5 ♦ 








* * 




* * 








**♦* 




**** 






.♦. 




.♦. 






03 ♦. 




Cl» ♦. 


41***4105********** 




.* *. 




.♦ THIS ♦. 


* * 




.♦ FILE ID = ♦ 


. NO 


.♦ FILE HAVE ♦. NO 


^ MAKE ENTRY IN ♦ 


* 


.SAVED FILE ID 


••-1 


♦. SAME RECORD .♦ 


— >♦ BL TABLE ♦ 




♦. .♦ 
♦. .♦ 


♦. AREA .♦ 
♦. .♦ 


* * 

* * 




♦. .♦ 


**** 


♦. .♦ 


***************** 




♦ YES 


* * 


♦YES 












♦ A4 ♦ 






**** 










* * 






* * 










**** 






♦ D5 ♦ 

* *_> 
















**** 






.♦. 




7 


V 




D3 ♦. 




*****X) <;********«* 


*****D5********** 




.♦ ♦. 




* * 


* * 




.♦ AREA NO = ♦ 


. HO 


♦CALL INSERT FOR^ 


♦ ADD SAVESZ TO ♦ 


* 


.SAVED J 


IREA NO 


.♦ 1 




♦ SRA TABLE ♦ 


♦ LOCCTR ♦ 



->♦ 



♦ PICK DP ♦ 
ADJUSTMENT 
FACTOR AND 

♦TARGET ADDRESS 

♦ FOR DTP ENTRY 

***************: 



WORKS ENTRY 



itiifitiYl2********* 



♦<- 



.♦ AREA SIZE ♦. 

-♦.GT SAVED AREA.+ 

♦. SIZE .♦ 



*****G3^^^^^^^^^^ 



***************** 



********* 



*****j2********** 



***************** 

**** 

* ♦ 

* K2 ♦ 

* *. 
**** 



***************** 



*****£4********** 

♦ * 

♦ ENTER DTP NO ♦ 

♦ AND SRA NO IN ♦ 

♦ SRA TABLE ♦ 

♦ * 
***************** 



.♦ SINGLE ♦. YES 

♦.BUFFER UNBLK .♦ 

♦. OR ISAM .♦ 



***************** 



*****£5********** 

* * 

* CLEAR SAVESZ ♦ 

* AND POINT TO ♦<- 
♦START OF BUFTAB^ 

* * 
***************** 



L 



*♦** 
->^oi * 
♦ ji ♦ 



*****P5**** ****** 

* * 
♦ENTER ENTIRE 10^ 

->♦ AREA SIZE IN ♦- 

* SRA TABLE ♦ 

* * 
***************** 



*****Q1|********** 

♦ * 
♦ENTER ONLY DATA^ 

♦ SIZE IN SRA ♦ , 

♦ TABLE ♦ I 

********************* 



***************** 

L**** 
>♦ ♦ 

♦ A3 ♦ 

* * 
**** 
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Chart HA. Phase 22 (ILACBL22) : Overall Logic 



«*::c>^ J^ 14:>«c«4c;ec}|c4::»4■ 
♦ * 

* INIT * 

* * 



♦ ♦ 

♦ INITIALIZE * 
* CONSTANTS AND * 

♦ WORD AREAS * 

* * 



OPSI 

♦MAKE DICTIONARY* 

* ENTRIES FOR * 
>* OPSI * 

* ITEMS-RELEASE * 

* UPSTBL * 



HF01B1 

♦READF4 * 

*_♦_♦_*_*_*_*_*_* 
•>* GET NEXT * 
♦LOGICAL RECORD ♦ 
♦ FROM SYSOOU ♦ 



CPB 

.* 
♦ - .* 
♦YES 



:ti 4i Jtc * :•> G 1 « * :«c :tc * 4^ 41 3«c « * 

♦ SET OP FOR ♦ 

♦ BRANCH TO ♦ 
-♦CORRES SECTION ♦ 

♦ RODTINE ♦ 

♦ ♦ 



♦RELEASE TABLES, ♦ 
>♦ DELIMIT ♦- 

♦ DICTIONARY ♦ 

* * 

lie**************** 



♦EXIT TO SECTION^ 
->♦ ROUTINE ♦ 
* * 

*************** 



♦RETORN TO PHASER 

>♦ 00 ♦ 

* * 



FSECT - FOR FILE SECTION. (CHART HB) 

WSECT - FOR WORKING-STORAGE SECTION. (CHART HC) 

LSECT - FOR LINKAGE SECTION. (CHART HC) 

RSECT - FOR REPORT SECTION. (CHART HC) 
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Chart HB. Phase 22: 



FSECT Routine 



♦♦♦♦A2********* 

* * 

* FSECT * 

* * 



♦*B2******* 

♦ INITIALIZE * 
* SECTION * 

* CONSTANTS * 

♦ * 



* PASS DATA * 
->*IC-TEXT FOR FD *- 

* ON SYS003 * 

* ♦ 



* PASS DATA IC ♦ 
->*TEXT FOR SD ON ♦- 

* SYS003 ♦ 

* * 



♦ SET DP MAJOR ♦ 

* CODE, BL TYPE * 
->* ACCORDING TO * 

♦WHETHER ITEM IS* 
♦LABEL/DATA RCD * 



V HE01A2 
♦♦♦**p2*** ******* 
*LDTXT * 

♦_♦_»_♦_*_♦_♦_♦_♦ 

* PROCESS LEVEL *<- 

* 01/S49 ITEMS * 
♦ENTER INTO DICT* 

« 4: 4c 4: 4t « 4: « « « « 4: itc* i|i 41 :|c 



HF01B1 

♦♦♦♦♦g2** ******** 
♦READFU ♦ 

♦ GET NEXT ♦<- 
♦LOGICAL RECORD ♦ 

♦ FROM SYSOOU ♦ 



♦GET DICTIONARY ♦ 
•>♦ POINTER FOR ♦ 

* ITEM ♦ 

* * 



XREF 

♦ WRITE ♦ 
♦SXREF/XREF DATA^ 
♦A-TEXT ELEMENT * 

♦ FOR ITEM-IF ♦ 

♦ APPLICABLE ♦ 

««itc*4c*>»:4c*4c«««4c >•'>»« 



BCONDE 

4c4c:4'*«pI}4cA4c4=4c««4'>tc* 

♦IF ITEM IS COND* 

♦ VAR DELIMITER ♦ 

♦ DELIMIT COND ♦ 

♦ VARIABLE ♦ 

♦ , * 



HG01B2 

4c4:}|c4:«G4^ ♦♦♦♦*♦♦♦♦ 

♦DICTBD 



:tc:(c4::«:«4i4c*4'«4c>«c«4:i»:»« 



' ♦. EOF OR CPB 



4c4c4:)|c*H3^^^^^^^^*^ 

* INITIALIZE ♦ 

* SWITCHES FOR ♦ 
->♦ PROCESSING OF ♦ 

* SOCCEEDING ♦ 

* SECTIONS ♦ 



SEE CHART 
V HA01E1 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 

♦ ♦ 
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Chart HC. Phase 22: WSECT and LSECT Routines 



***«A1*** ****** 

♦ * 

♦ WSDCT * 

♦ * 



* INITIALIZE * 

* SECTION * 

* CONSTANTS r * 

* SWITCHES, AND * 

* WORK AREAS * 

Itc)»:4c*4i4c*:^**4c4:30c**i^* 



V HE01A2 
**4<4c4:Cl********** 

*LDTXT * 

♦_♦_♦_♦_♦_♦_*_♦_* 
->* PROCESS LEVEL * 
*01-'*9, 77 ITEMS* 
*ENTER INTO DICT* 

4>*«4c:4ciOc>l'*4c«4c4c4c*#*« 



HF01B1 
««*4c4Dl*** ******* 
*READFa * 

♦_*_♦_*_*_♦_*_*_* 

* GET NEXT * 
*LOGICAL RECORD * 

* FROM SYSOOU * 
K< « * :tc He* 4E* 4c* ** ^tc *« 4c4c 




****A3********* 

* * 

* LSECT * 

* ♦ 



itt4c4c*4cB3* ********* 

* INITIALIZE * 

* SECTION * 

* CONSTANTS, * 

* SWITCHES AND * 

* WORD AREAS * 

«4c4c4[4:*4c)(c4c*4c4:«4i4i3('* 



*_*_*_*_*_♦_♦_♦_* 

->* PROCESS LEVEL ♦ 
♦01-49, 77 ITEMS* 
*ENTER INTO DICT* 

*iH*^f^:it:i),,tiiHi;f ****** 



HF01B1 

4c*4=>|t*D3********** 
*READF4 * 

* GET~NixT ~ * 
*LOGICAL RECORD * 

* ON SYS004 ♦ 

***:ti**^filc********* 



E3 *. 
.* *. 
* 
EOF OR CPB 



SEE CHART 
HA01E1 
****f -i*^'******* 

* RETURN TO * 

* MAINLINE * 

* * 
*************** 



SEE CHART 
HA01E1 
****Y3********* 

* RETURN TO * 

* MAINLINE * 

* * 
*************** 
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Chart HD. Phase 22: RSECT Routine 



****A2********* 

♦ * 

♦ BSECT ♦ 

♦ * 



♦ INITIALIZE * 

♦ SECTION ♦ 

♦ CONSTANTS, ♦ 

♦ SWITCHES AND ♦ 

♦ WORD AREAS * 



^iit:,^iti^iC2********** 



4c:(c4:>0i«4>4c«*4t)(c#4c4<«>tc4c 



**:tL^i*J)2********** 



QOAL 

♦SET ATTRIBUTES * 

♦0? CONTROL ITEM* 

>*T0 ALPHANUMERIC* 

* EOUIV OF * 

♦ QUALIFIER ♦ 
4< :4"l< * >«< * * * * * 4c ♦ 4' 41 :|c « * 



*GET DICTIONARY 
>* POINTER FOR 
* ITEM 



>tc4i«4<4c4'4:4<4'4<:^***««* 



HE01A2 
4c4c*««£2********** 
♦LDTXT ♦ 

♦_♦_♦_*_ 



PROCESS LEVEL * 

* 01-49, ITEMS * 
*ENTER INTO DICT* 

* 41 4: 4c « * 4t 4c « * « 41 >tciti « 4c >» 



HF01B1 
*4c4c:4c4cG2********** 

*READP4 * 

* GET NEXT *< 
♦LOGICAL RECORD * 

* ON SYS004 * 

«4:4c4c4c4c4i4c4c4c*4c*4c4e4c4c 



4i 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



XREF 

>(c4c4c«4c£lt4c4c4c)^4c4c4c4c4c4c 

* WRITE * 
♦SXREF/XREF DATA* 
*A-TEXT ELEMENT * 

* FOR ITEM - IF * 

* APPLICABLE * 

*:4[:«<*4c^)(c*4c4c4:4c4c4c4c4c4c 



BCONDE 

4c4c]ti4c4ip4:»«:(i:^4c4c4c4:*4c 

♦IF ITEM IS COND* 
*VAR DELIMITER -* 

♦ DELIMIT COND * 

♦ VARIABLE ♦ 

4c 4c 

4c 4:**4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



HG01B2 

4:*4c 4c 4cGl| ♦♦♦♦♦♦♦♦♦♦ 

♦DICTBD * 



««««*«3|c4c«4c4c4c4i4c 4c4:4c 



SEE CHART 
HA01E1 

* RETURN TO ♦ 

♦ MAINLINE ♦ 

4c 4c 

4c « 4c >» 4c 4c 4^ 4c 4c 4c 4c 4c >» 4c 4c 
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Chart HE. Phase 22: LDTXT Routine 



* * 

* LDTXT * 

* * 

% « Itc ;(c « 4: >»: :^ * « * «* * 4c 



* * 

* DISTRIBUTE * 

* ATF-TEXT TO * 

* WORD AREAS * 

* ♦ 

4c 4c 41 4c i|c 4: il' * * * ^Cc 4 4= ♦ >0c * * 



4c 4c 4c 4c « Q 3 4c ^c 4c 4c 4c 4c 4t 4< 4c 4c 
♦SAVE INFO ABOUT* 
*PREV RECORD SET* 

* UP FOR NEW ♦ 

* RECORD * 
4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4: 4: 4c 4c 



4c4:E3******* 
4c 4c 

INITIALIZE 

WORD AREAS, 

SWITCHES 

4c 4c 

4c 4c 4c 4c 4c 4: 4: 4c 4c 4c 4c 



*N0 

I (LEVEL 02-49) 



4c4c4c4:4cp34c4c4c4c4c4c4c4<4c4c 

* INITIAL * 

* CONDITIONAL * 

* VARIABLE * 

* PROCESSING * 
4< 4c 
4c 4: 4c 4c 4c 4c 4c 4c 4:4c 4c 4: 4c 4c 4c 4c 4c 



G3 *. 

.*IS ITEM*. 
.* A REPORT * 
♦.SECTION NAME 



*GET DICTIONARY ♦ 
->♦ POINTER FOR ♦- 
♦ ITEM * 

4c * 

4c 4c 4c =^ 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 



XREF 

4:«4c4c4cG5*^******** 

* WRITE * 
♦SXREF/TREF DATA* 

>*A-TEXT ELEMENT * 

* FOR ITEM - IF * 

* APPLICABLE * 

4: 4c 4c 4c 4c 4c 4c 4c :» 4c 4c 4c 4c 4c 4c 4c 4c 



QDAL 

4c4c*4c4cH3********** 

* SET ATTR OF * 

* S.NAME TO * 

* INTERNAL DEC *- 

* EQUIVALENT OF ♦ 

* QUALIFIER * 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*4c 4c 4c 4c 4c 4c 



BCONDE V 

4c4c4c*4cH5********** 
*IF ITEM IS COND* 
*VAR DELIMITER -* 

* DELIMIT COND * 

* VARIABLE * 
4c 4c 
4c4c4c4c*4c4c4c4c4c4c4c4c«4c4c4c 



1' HG01B2 

4c 4c 4c 4c 4c J54c 4c 4c 4: 4c 4c 4c 4: :» 4c 

♦DICTBD 



4c 4c 4c 4c«4'«4c 4:4c 4c 4c 4c 4c 4c 4c 4c 



«4c4c4cK5********* 
4c 4c 

* RETURN * 

4: 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c :» « 
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Chart HF. Phase 22: READF^ Routine 



* * 

* READFU * 

* * 



* GET NEXT * 
♦LOGICAL RECORD * 

* FROM SYSOOa * 

* ♦ 

4^ % * 4( 4ci«c * 4i 4: « 4c * :(c 4= 4 4< :«' 



* RETURN TO * 

* CALLER * 

* * 



*****E2********** 



« :«[ :(c ](c>ti * « itc )(t « 4c :«i *:« 4c :(( 4: 



♦PROCESS RENAMES^ 

->^ITEM AND ENTER ♦- 

♦INTO DICTIONARY^ 



«:»4c4c*4c4'*« 



>4c««4c4c«4c 



n 



.♦IS LOGICAL ♦. YES 


.REC AN INDEX .♦ , 

♦. NAME .♦ 1 
♦ . .♦ V 


*. .* *♦*♦ 


♦NO ♦ ♦ 




♦ G4 ♦ 




* ♦ 



**♦* 

ENTNAM 

«4c4c«4cG4 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ ENTER ITEM ♦ 
>♦ DIRECTLY INTO ♦- 

♦ DICTIONARY ♦ 

♦ * 

4c 4c 4c *♦«*♦** ♦«♦♦♦«♦ 



♦♦♦♦H3++^ 

♦ 4C 

->♦ RETURN ♦ 

* * 



4c4c4c4c * J 1>«c4c4c 4c4c 4c ♦♦* ♦ 



4c4c4c4c4c*4c4c4c4c 



4: 4c 4c*K !♦♦♦♦♦♦♦♦♦ 

♦RETURN TO PHASE* 

♦ 00 ♦ 

* * 

:^4c4c*4c4c4c4c*>tc4c4c4<4:4c 
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Chart HG. Phase 22: DICTBD Routine 



* * 

* DICTBD * 

* ♦ 

4c :{c Xc ]«c 4c :«( 4: « 4c * :tc i«c « :«c 4l 



FSEND 

4c****c3********** 

♦INITIALIZE FOR * 

* PROCESSING OF * 
^>* SUCCEEDING *- 

* SECTIONS * 

* * 

4c 4c 4c « * 4i >|e >(> « >«< * >Cc 4c * :»: * * 



f IS ITEM A *. YES 

REDEFINES .♦ 

t=. SUBJECT .* 



REDEF 

* ADDRESSING * 

* PARAH OF * 
>*SUBJECT SET TO *- 

* ADDRESSING * 
♦PARAH OF OBJECT+ 

«4<**4c4c4c4t**4"lc>»4[4c*:>»: 



♦ RESOLVE LAST ♦ 
->♦ FILE ♦ 

♦ DESCRIPTION ♦ 

♦ ♦ 

4c 4c >»: 4e 4c 4: itc 41 4c 4c 4c 4c 4: 4< 3«c4c 4! 



♦CHECK SYNTAX OF^ 
>♦ REDEFINES ♦ 
♦ CLAUSE ♦ 

4c * 

4c 3^4c 4c 4c4c4c 4c 4c4c 4c4< * 4> 4C4:* 



.♦IS ITEM AN 
♦. FD/DS/RD 



4c 4c 4> 4c 4c 4c 4c 4c « 4c 4c 4c 4c 4c 4c 



FSTOOO 

4c 4c 4c 4c 4c F 3 4: 4c 4c 4c 4c 4c 4: 4c 4c« 

♦ RESOLVE PREV ♦ 

♦ FD, ENTER ♦ 
^>+CURRENT FD INTO^- 

♦ DICT BUILD ♦ 

♦ FDTAB ENTRY ♦ 

4c4c4c*4c4c4c4c4c*4c4c4c4:4c4c4c 



GRIPR 

4c4:4c4c4cG3^^^^^^^^^* 

♦ ENTER GROUP * 
♦ITEM INTO DICT,* 

^>+ DELIMIT PREV. ♦- 

♦ GROUP-BUILD ♦ 

♦ GPLSTK ENTRY * 

4c4c4c4c4c4c4c4c4c4c4c«4:4:4c4c4c 



4c4c4c4cp4*4c4c4c4c«4c 4c4c 
4c * 

->♦ RETURN ♦ 

4c 4c 

4c 4' 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4"^ 



4:4c4c4cG4 + ^^+++^** 
4c * 

->* RETURN ♦ 

4c * 

« 4: 4c 4c « 4c 4c 4c 4c 4c 4c 4c 4c 4c* 



♦ H2 ♦ 

♦-> 



4'4c4c4: 
ELIPR 

4c4:4c4c4cH2*^**^^^^** 

♦ENTER ELEH ITEM^ 

♦ INTO DICT, ♦ 
♦DELIMIT GROUPS,* 

♦ COMPLETE DATA ♦ 

♦ A-TXT * 

4c4c4c4c4c4c4c*4'4c4:*4c4c4c4c4c 



4c4c4c4cJ2^^^****** 
4c * 

* RETURN * 

4c 4c 

4c*4c4c4c4c**4c4c4'4c4c4c* 
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Chart lA. Phase 25: Overall Logic 



ENTER FROM 
♦PHASE 00 
IF SYSDHP 
IS SPECIFIED 



♦***A2********* 

* * 

* ILACBL25 ♦ 

* * 

4c iti 4c * * 4c 4c 4c * 4> * :4c4 « * 



♦♦B2******* 

* * 

* INITIALIZE ♦ 

♦ BASE REGISTER * 

♦AND WORK AREA* 

♦ ♦ 
4c4c4'4i4t4c«4c4'4c4c 



4c 4i 4c 4c 4c 4c 4c 4t 41 4c 4c 4c 



4:4c4c4c4<D3««**4<>0<**«4> 

♦ BOILD ODOTBL ♦ 

♦ FROM OCCTBL, * 
>* QITBL, ORTN *- 

♦ TABLES ♦ 

♦ 4c 
4c 4c 4: 4c 4c 4t 4c « 4c ♦ 4c 4c 4c « :»: 4c « 



IB01A3 
4: 4c 4c 4c 4cDU *♦♦♦*♦♦♦*♦ 

♦BLDOBODO * 

4c_4c_4c_4c_4c_4c_4i_ 4;_4c 

->*BDILD OBODOTAB ♦ 
♦WRITE TO SYS005* 
♦COMPLETE OCCTBL* 

4c4c4c«4c4c4c4c4c4c4c*4c4:4c4i4c 



IC01A1 
4c4'4c4:*E2^^^^*^*^^^ 
♦BEGPASS ♦ 

♦READ DICTIONARY* 
♦ BUILD DATATAB ♦ 
♦WRITE TO SYSOOS^ 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c* 



PHASEND V 

4c4c4c4c«p2^^^^^**^* 

♦ SAVE 
♦INFORMATION IN 

♦ COMMON FOR 
♦PROGSOM OBJECT 

♦ TIME TABLE 

**4c4c**4c4:4c4>4c4c4c4c4:4c 



4c4c4c4cG2^^^^^^^*^ 

* EXIT TO PHASE ♦ 

♦ 00 * 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c « 4c 4c4c 4c 4c 
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Chart IB. Phase 25: ODOBLD, BLDOBODO, and BNPP1 



* ♦ 

* ODOBLD * 

* * 



->*.END OF OCCTBL.* 



♦CALCOLATE N FOE* 

* NUMBEB OF ODO *<- 
*ENTRY IN OCCTBL* 

* ♦ 



4: i^4t«4;C1 ********** 

* ♦ 

*FIND NTH 0D2TBL* 

* PTR IN QRTN ♦ 

* TABLE * 

* * 



IB01A3 

«^:tcitc4cQ2********** 

*BLD0B0D0 



«:gc««4'*:(c«4:«:»:4:«:tcXc:4'>0c 



****A3********* 

* BLDOBODO * 

* * 

♦ *♦* 



^^'♦^♦♦BS********** 
♦SAVE DICTIONARY* 

* POINTER OF * 

* OBJECT OF ODO * 

* IN ODOTBL * 

* * 



* PERPAHE ENTRY *- 

* * 

* * 



* INSERT * 

* MAKE ODOTBL * 

* ENTRY * 

* * 

:»t 4c ])c « :»]» « ]|c i«c i(c itc 4c 4: « * * >tc 



MATCH 0D2TBL 
POINTER WITH ONE 
IN OITBL. SAVE 
DICTIONARY POINTER 
OF OBJECT OF ODO 
WHOSE SUBJECT IS 
•N'TH ENTRY IN OCCTBL 



4: 4c 4c 4: 4c 4: lie* >«c itcigc « * >»: >|c 4c 4c 



4c4c4c4c4cD3********** 

* CALLDIN * 

* LOCATE COBOL * 
*DICT ENTRY VIA * 

* DINCOR ACCESS ♦ 

* RTN * 

4c4c4c4:4c4c4c*4c4c4c4c«4:4c4:4c 



ID01A5 
4:4c4c4c4cE3********** 

*SETNAM * 

4c_*_*_*— *_*—*—*— ♦ 
*BUILD ODOBOTAB * 

* ENTRY IN WORK * 

* AREA * 

4c 4c 4c 4c 4: 4c )»: 4c 4c 4c 4: * 4: 4c 4c 4c 4c 



ID01F1 
4c#4c4c4cF3* ********* 

*ENTRDATA * 



SET DICTIONARY 
POINTER TO OBJECT 
OF ODO IN THIS 
ENTRY AS PARAMETER 
FOR CALLDIN 
ROUTINE 



* ENTER IN * 

* OBODOTAB ON ♦ 

* SYS005 * 

4c 4c 4c 4c 4c :^ 4c 4c 4i 4i 4c 4> * 4c 4: 4c 4e 



BLD0B06 

4:4:4c*4cG3********** 

* FILL IN * 

* OBODOTAB * 

* POINTER IN * 

* ODOTBL ENTRY * 



4c 4c 4c* A54c 4= 4c 4c 4c 4c 4: 4c 4e 

* 4c 

* ENDPI * 

* 4t 
4c 4c 4c 4c 4c« 4c 4c 4c4c 4c 4:4< * * 



4c 4c 4: 4c 4cB54c 4: 4c 4c 4c 4c 4c 4c 4c 4c 
*PILLIN OBODOTAB* 

* POINTERS IH * 

* OCCTBL PROM * 

* ODOTBL * 
4c 4c 
4c4:4:*4c4c4c*4c4c4c4c4c4c4c4c4; 



* SET SWITCH 



4c 4c 4c 4c 4c 4c*4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 



INDICATE 

NEXT BLOCK 

WRITTEN 

WILL BE 

FIRST IN 

DATATAB 

AND WILL 

CONTAIN 

FIRST 

DATATAB 

ENTRY 



4c 4c 4c 4c 4cE54c 4c 4c 4c 4: 4c 4c 4c 4c 4c 

♦ MOVE DICND1 ♦ 
♦CELL IN COMMON * 

♦ TO CURRENT * 
*DICTIONARY PTR * 

♦ CELL (CDRPTR) * 

4c 4C 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4: 4c 4c 4c F5 4c 4c 4c 4c 4c 4c 4c 4c 4c 

♦ BETDRH TO * 

♦ BEGPASS * 

♦ 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c )( 



4c 4c 4c 4c 4c 4c 4c « 4c 4c 4c 4c 4c 



4c 4c 4c 4< 4c 4c 4c 4c 4c 4c 4c 



LOOP THRU REST OF 
ODOTBL, FILL IN 
OBODOTAB POINTERS 
IN ENTRIES WHOSE 
DICTIONARY POINTER 
HATCHES ONE SAVED 



*.END OF ODOTBL. ♦■ 



~1 

4c 4c 4c 4c 

4c 4c 

* B3 * 



4c4c4c4cK3********* 
4c 4c 

♦ EXIT TO ENDPI * 

4c 4c 

4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c 
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Chart IC. Phase 25: BEGPASS 



* * 

* BEGPASS * 

* * 

* 4c 4c 41* 41* 4c 



* B1 * 

*-> 



4<4<4c4c 

LOGNWT 

^^^^^B 1*4'4t4c4c4i*4<4c* 

♦ LOCATE NEXT ♦ 

♦ COBOL * EOF 

♦ DICTIONARY ♦ 

♦ ENTRY * 



*4c4c4c4c*4c4c4c4c4c4c4<«4i4c4' 



4c4c4c4c*Q 14c4c*4c4c*4i4i4c4c 

* * 

* SAVE CORHEHT * 

* DICT PTR IN ♦ 

* CORPTR * 

* * 
« ************ **** 



*****!) 1********** 

* GETDEF * 

♦GET CARDNOM AND* 

♦ DICT PTR FROM * 

♦ DEF-TEXT ON ♦ 

♦ SYSOOa * 
***************** 



.♦DICT PTR IN*. NO 

♦. DEF-TEXT = .♦ 

♦. CDRPTR .* 



************** 



*****Q3* ********* 
♦SAVE NUMBER OF ♦ 

♦ BLOCKS OF ♦ 
>♦ DATATAB IN ♦- 

♦ COMMON ♦ 

♦ ♦ 
***************** 



SEE CHART 
IA01F2 
****Qt(* ******** 

* * 
->*EXIT TO PHASEND^ 

* * 
*************** 

**** 

* CU ♦ 



:^-l 



♦ * 

♦ C5 ♦ 

♦ * 1 

**** I 

V ID01F1 
*****C5**** ****** 

♦ENTRDATA ♦ 

->*~ENTER~DATATAB ♦ 
♦ENTRY IN SYS005^ 

♦ BUFFER ♦ 
***************** 



u 



*4c** 

♦ * 

♦ B1 ♦ 

♦ * 
«*** 



LD UNDER RD 



->^.RPT.LIN ENTRY. ♦- 



**«*£2*^^*^^^^^^ 



**************** 



♦SET DTF NUM PUT* 
♦ACCESS METH IN ♦<- 

♦ DATATAB ENTRY ♦ 

* * 
***************** 

**** 

C5 ♦ 



*****£5**** ****** 

♦ SET SWITCH TO * 
♦BYPASS RENAMES ♦ 

♦ AND SUBSCRIPT ♦ 

♦ TESTS ♦ 



L. 



♦*** 



***************** 
**** 



DICT ] 
S A RI 

**. 
*. 


5HTRY *. YES 
SNAMER^.^ 1 

.♦* V 
,* **** 
►NO ♦ 

♦ B1 

* 




**** 




ID01A5 





*. .♦ 






***************** 




♦NO 






♦ J2 ♦ 

♦ ♦ 




•■ 






**** 




.♦. 










F4 ♦. 






*****P5********** 










* * 


.♦ 


INDEXNAME 


* 


YES 


♦SET INDEX CELL ♦ 




ENTRY 




* 


>♦ NUMBER IN ♦ 


* 


**. .* 
♦. .♦ 
♦NO 

■' 
.♦. 

G^ ♦. 
.♦ ♦ 


* 




* DATATAB ENTRY ♦ 

* * 
***************** 

**** 
L_>« * 

♦ C5 ♦ 

* * 

*>»:>0c* 

REPORTD 

*****G5*4c******** 

* ♦ 


.* 




* 


YES 


♦ SET SWITCH TO ♦ 




RD ENTRY 




* 


>♦ INDICATE RD ♦ 


* 


'♦. ' .♦ 
♦ . .♦ 


* 




♦ PROCESSING * 

* ♦ 
***************** 




♦NO 

1 ***♦ 

L_>* * 


♦ *** 
l_>* * 




♦ B1 


* 


♦ B1 ♦ 




* 




* 


* * 




**** 


**** 



DICTP1 

*****}{■]********** 

♦SETHAMS ♦ 
*_*_*_*_*_*_*_*_* 

♦ BUILD FIXED ♦ 

♦ PORTION OF ♦ 

♦ DATATAB ENTRY ♦ 
***************** 



.♦ LD UNDER ♦. YES 

*.FD, SD WRING .♦ 

♦.STGE LKGE.* 



ID01A1 
*****I]3********** 

♦TESTSUBS ♦ 
*_*_*_*_*_*_*_*_* 

♦ TEST FOR 

♦ SUBSCRIPTED 
♦ITEM G PROCESS 
********************* 



n 



n 



->* 



**** 



*****J2********** 

♦ PROCESLD ♦ 

♦PUT ATTRIBUTES ♦ 
IN DATATAB ♦- 
ENTRY ♦ 



->♦. ENTRY RENAMED. ♦- 



♦ *** 

♦ C4 
* 
***♦ 



**************** 



RENM10 

***** J t|*** ******* 

♦SET DICT PTR OF^ 

♦ RENAMER ♦ 
>♦ INDICATE THAT *- 

♦ ENTRY IS ♦ 

♦ RENAMED ♦ 
***************** 



ID01F1 
*****J5********** 

♦ENTRDATA ♦ 
♦_*_*_*_*_*_*_*_* 
->♦ ENTER DATATAB ♦<- 
♦ENTRY IN SYSOOB^ 
* BUFFER ♦ 
***************** 



*****K 1********** 



ID01A5 
*****I(2^*^ ♦♦♦♦♦♦♦ 
♦SETNAM ♦ 



*************** 



->^SET ATTRIBUTES ♦- 

♦ IN DATATAB ♦ 

* ENTRY ♦ 
***************** 



ID01F1 
*****K4** ******** 

♦ENTRDATA ♦ 
*_*_♦_*_♦_*_*_♦_♦ 
->♦ ENTER DATATAB ♦ 
♦ENTRY IN SYSOOS^ 
♦ BUFFER ♦ 
***************** 



*****K5********** 
♦ INDICATE IN ♦ 
THIS ENTRY ♦ 
THERE IS ♦- 
"HER RENAMER* 
♦ 
************ 



, >* T 

♦anot: 

I********: 
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Chart ID. Phase 25: TESTSUBS and SETNAMS 



* ♦ 

* TESTSUBS * 

* * 



.♦ NUMBER OF ♦. 

*. SOBSCRIPTS . 

♦.REOOIHED .♦ 



♦ *♦* 

* * 

♦ CI 



*-0 
**♦* 

DICTENTH 

♦ENTRDATA * 
♦_*_♦_*_*_♦_*_♦_* 

* ENTER INTO » 

* SYS005 BUFFER * 

* * 



SEE CHART 
IC01C3 



« :(c « « « * llcitc « 4c 4c 4: itL * 4c 



* SET SUBSCRIPT * 

* INFO BIT IN * 

* DATATAB ENTRY * 

* SET SUBSCRIPT * 

* COUNT TO 1 * 
**4< ♦l'*^'^'* 4<*4c** *=!<« 



TWOSUBS V 

* SET SUBSCRIPT * 

* INTO BITS IN ♦ 

* DATATAB ENTRY * 
» SET SUBSCRIPT ♦ 

* COUNT TO 2 * 



THRESUBS V 

4c4c>(c*>ttC4**4c4c**«4c** 

* SET SUBSCRIPT * 

* INFO BITS IN ♦ 

* DATATAB ENTRY * 

* SET SUBSCRIPT * 

* COUNT TO 3 ♦ 
« 3tc 4[ * 4^ 4c 4c ♦ « * itc 4c * * 4i 41 He 



D2 *. 
.* ENTRY *. 
.* CONTAINS *. NO 
.OCCURS CLAUSE.* 



A 



TESTSB6 

4i*4c*4tD3*4c*4c4c4c4c4<4c4c 

* LATRPT * 

♦ LOCATE COBOL * 
->*DICT ENTRY WITH* 

♦ OCCURS * 



i4[**4>4c4c4:4c*4c4c4<4c4c4c4c*4<4c4c 



4i4c4<4c4cE2********** 
*SET DICT PTR TO* 
♦THIS ENTRY FOR * 

* SRCH THRU * 

* OCCTBL * 
4> 4c 

* 4< 4c * * 4' 4i 4c 4c 4: 41 4c 4c4c 4c * 4c 



4c4c4c4cF14c4c4t4<4c4c4:4c4c 
4c 4c 

* ENTRDATA * 

4" * 

4c 4c 4c 4c >» 4c * 4c 4c 4c 4c 4c * 4c 4c 



4c 4c 4c 4c 4cG 14: 4c 4c 4c 4: 4c 4c 4:4c :» 

4' 4c 

* ENTER DATA IN * 

* BUFFER FOR * 

* SYS005 * 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4c 4' 4c 4c 4c 4c 



4:«4:4cH 14c4c4c4:4c4c4c4:* 

* RETURN TO ♦ 

* CALLER ♦ 

4c 4: 

4c 4c 4c 4c 4c 4c* 4c 4c 4; 4c 4c 4c 4: :» 



*SETS OCCURS PTR* 

* IN THIS COBOL *- 

* DICT ENTRY * 
4c 4c 
4c4c4c4c4c4c4c#4c4c4c4c4c4c4'4c4: 



.* ENTRY IS * 
*. VARIABLE LNG 
*. GROUP .* 



AS PARAHETER 
FOR LATRPT 
ACCESS RTN 



4C4C4C4C A54c4c«4c4c4c4c 4c* 

* * 

* SETNAMS * 

* 4c 
**4c4c4c4c4c4c*4c4<4c4c4c4c 



4c4c4c4'4cB5********** 

* MOTE EBCDIC * 

* NAME AND CT * 
*FROM COBOL DICT* 

* TO DATATAB * 

* ENTRY * 

4c4c4>4c4c4c4:*4c4:4>4c4:«**4c 



4c4:4c*4<C5*********4c 
4> * 

* SET BASE BEG ♦ 

* FOB SYMDICT * 

* DSECT * 

4c * 

4c4c4c4c 4c 4c4c4< 4c4c* 4c 4c 4: 4c#* 



*4c4c4c4cD54c4:4c4:4c4c4c4c4c4c 



*4c4c4c4c4c4:4c4c4c4c4<4c4c4c4c« 



4c4'4c4c4cE5*4'4c4c4c4c*4c4:4c 

* * 

*SET MAJOR CODE ♦ 

* IN DATATAB ♦ 

* ENTRY ♦ 
4c 4c 
«4c4c4i4i 4c4c 41 4c 4c 4c 4c 4c 4c 4c** 



4c4c4c4cF54c**4c4c4c*4c* 

* 4c 

* RETURN * 

* * 
*4>*4c *********** 



*****G3********** 



***************** 



112********** 

* * 
*MOVE INFO FROM * 
*TBL TO DATATAB * 

* ENTRY .* 

* * 
***************** 



J2 *. 
.* *. 

ODO ENTRY 



* MOVE ODODOTAB * 
->♦ PTR TO SAVE *- 

* AREA * 

* * 
***************** 



*****J5********** 
*SET BIT TO IN- * 

* DICATE LOWEST * 
->*LEVEL GROUP HAS* 

* ODO CLAUSE * 

* * 
***************** 



*yEs 

L**** 
>* * 

* C1 * 



*****j^3********** 

* * 

* REDUCE * 
->*SUBSCRIPT COUNT* 

* BY ONE * 
» * 
***************** 



L. 
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Chart JA. Phase 30 (ILACBL30) : Overall Logic 



* ILACBL30 * 

♦ * 



* INITIALIZE * 

♦ AREAS- TABLES * 

♦AND SWITCHES * 

* * 



JB01A1 
♦GLOSRY ♦ 



* SCAN DATA DIV * 
♦ENTRIES IN DICT^ 

♦ AND LIST THEH ♦ 



JC01A1 

♦PHCTRL ♦ 



♦EXAMINE IC-TEXT+ 
♦ REPLACE NAMES ♦ 
♦WITH ATTRIBUTES^ 



iH:ti:^*^fi^2********** 



*ti4i***********t'** 



♦ EXIT TO PHASE ♦ 

♦ 00 ♦ 

♦ ♦ 

itiitiJti************ 
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Chart JE. Phase 30: GLOSRY Routine 



♦ GLOSRY 

* 



* B2 



n 



♦*♦* 

DICSCN 



SEE CHART 
JA01B3 

* RETURN TO * 

* MAINLINE * 

* * 



* « 4: * 4c « )|c :«> « 41 :Cc >tc :(c4t « :» 



C3 ♦. 

.* *. 

.* *. 

->*.HEADER-SHITCH. 



_>* 



4i 4c 4c itc 4^04'*' >•'**'•"*'* *** 

* HOVE HEADER * 
*LINE TO BUFFER.* 

* WRITE ON * 
♦SYSPRINT. TORN ♦ 

* SWITCH OFF. * 

4[4i4c4c4E4:4c4t*«4i3t:i*'4'*3|c« 



^*****.*********** 



♦MOVE PRINT LINE* 
♦TO BDFFER WRITE* 
♦ ON SYSPRINT * 



F3 


*. 




4c4c4t^*Flt********** 


.* *. 




* * 


.* * 


YES 


♦ SET ♦ 


*. END OF PAGE 


4- 


>* HEADER-SWITCH * 


*. .* 




♦ ON ♦ 


♦. .♦ 




* * 


*. .* 




4:4=4'4'>t'4c4'*>l<««4<*4'4'4'* 




I=N0 








' 








CHKENT .*. 




SEE CHART 


G3 *. 




JA01D3 


.♦ ♦. 




4c 4c 4c ^^GI)********* 


.♦ LAST DATA ♦ 


YES 


* RETURN TO ♦ 


*. DIVISION 


♦ 


>* MAINLINE * 


*. ENTRY .* 




4c ♦ 


* . .♦ 




4c 4c 4c 4: 4c 4c « 4c 4c 4c 4c :»* 4:4c 


*. .♦ 






♦NO 






1 ***4" 






♦ B2 


4: 
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Chart JC. Phase 30: PHCTRL Routine 



* * 

* PHCTRL * 

* ♦ 



♦ ♦_> 

♦ *♦* 
GETNXT 

4: 4i4c*4'Bl>t' '•■*'*=* **'*='<''•' 



4c 4c « >«c 4c 4c * >4c :(. 4c :(c i«c * « * :»: 4c 



SEE CHART 
JA01E3 

4c 4c 4c 4c C 2 * >•= 4= * '•^ ■«' 4" * 't' 

* RETURN TO ♦ 

* MAINLINE ♦ 

* * 

4c* 4c 4c 4: 4c 4c 4c 4c 4c 4: 4c 4c 4c 4: 



B3 * 

,4c 
.* 

->♦. READ 



4c 4c 4c 4c 4c 4c 4c 4c 4c « 4c 4c 4i 4c 

L 4c 4c 4c 4c 
>♦ * 

* B1 * 

4c 4c 

4c 4c 4c 4c 



->*. SEARCH 

*. 

4c, 

*. .* 

*YES 



..-•-] 



4>4c4c* 

4c 

E2 ♦ 



4c4c4c4c4c4:4c4c4c4c4c4c4c4c4c4c« 

4c 4c 4c 4c 
4c 

B1 * 

9 * 

♦ 4c 4c 4c 



u 



El *- 
.* * 

CARD NO. 



4c 4c 4c 4c 
4c 4c 
♦ E2 ♦ 
4C 4. 

4c4c4c4c 
PYIN V 



4c4c4:4c«4c4c4c4c4c4c4:4c4c4c4c« 
4c 4c 4c 4c 



u 



4c 4c4c 4c 4c4c« * 4c 4c*4c4c4c4c 4c4c 



4c 4c 4c 4: 4c 4c 4c 4' 4:4c 4c « 4c 



4c « 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 



*NO 

L4c4>4c4c 
>4c 4C 

* D1 * 



.*. 


GENOP 




H2 *. 


4C4C4C4C4CH3********** 


., . * * . 


* 4c 


.*NAME FOUND *. YES 


* GEN OPERAND * 


*. AND UNIQUE .* 


>* USING ATTR IN * 


*. .♦ 


* OUTPUT AREA * 


4c. .4c 


4c 4c 


* . .* 


4c4c4c4c4c4c«*4c4c4c4:4c4c4c4c4c 


*N0 










*4c4c4c 








* * 








* J3 * 








* *_> 








4c 4c 4c 4c 




ERROR 




GENDAT V 


4> 4c 4c 4c 4c J 2 ')' ■'' '^ 't' =<"<"'"l' =)" 't' 


♦**J3*********** 


4c 4c 




♦GENERATE ERROR * 


4! 4c 


* TEXT ♦ 


WRITE DATA 


4c * 


4c 4c 


4c 4c 




4:4c4c*4c*4c4c4c4c4c4c4c4<4c4:4c 


4c 4c «* 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 


4c4c4c4c 
L_>4c * 


{ 4c4c4:4c 
L>4c 4> 


* B1 * 


♦ B1 * 


4c 4c 


4c 4c 




4c 4c 4= 4c 




4c**4c 



CORBTN 

4c4:4c4c4cG44c*«'tc4'4'***4c 

*GET OPND NAMES * 
*FIND MATCH. GEN* 
♦PSEUDO-STMNTS. ♦- 
♦APPEND CORRES. * 
* WRITEOUT * 

*4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c 



u 



THIS ROUTINE 

USES GETNXT, GENDAT, SEARCH, 

AND GENOP TO DO THESE 

OPERATIONS. WHEN COMPLETE, 

NEXT ELEMENT ALREADY 

GOTTEN. 
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Chart KA. Phase 40 (ILACBmO) : Overall Logic 



****A3********* 

* ♦ 

* ILACBL40 * 

* * 



PHINIT 

* INITIALIZE ♦ 

* TABLES, AREAS * 

* AKD SWITCHES. * 

* GET FIRST * 

* ENTITY. * 

.(c 4t * ♦* 4< 4c iOc :tc « * >^ * « * 4c * 



* BETWEEN VERBS * 

* *■ 

41 * 4c 4c )0[ * Hi 3C >ec 41 * 4»tc 4c * 4c i^ 



D3 *. 


4c 4c 4c*4> D4<l< <•'***** **>•' 




.♦ ♦. 


4c 4c 


4c4c4c4cD5>^**4c4'*'i'*4c 


*. YES 


* TERMINATION * 


♦ EXIT TO PHASE 


END OF FILE .* 


>* ROUTINES * 


>♦ 00 



4c 4c 41 4c 4c 4c 4c 4c 4c 4c * 4c * 4c 4>4c * 



4:4>«4c*4c4c4c4c4c4c*4c4c4c 



->♦ PROCESS VERB * 



IDLAN 

*«4:4c4cp34c4c4:4c4c4c*4c4<4c 

* PROCESS ♦ 
♦PROCEDURE NAMES* 

* AT POINT OF * 

* DEFINITION ♦ 
4c * 
4c4c4c4c4c«4c4c4c4c4c4c4c«4<4c4c 



4c4c4c4c4c4c4c4i*4c4»»4c4c4:4c4: 

4c*4'4: 

4c 

C3 * 

4c 4i 
4c 4c**: 



u 
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Chart KB. Phase 40: IF Processing 



4r*4<*A1***'*'*'*'**'l' 



4c#)t>4< :»iti4c« *4<* ***>•: 



« « * 4c 4[ 3 1 i«c 4i * :» :4c * * 4c 4< 4i 

* INITIALIZE ♦ 

* TABLES, * 

* SHITCHES, AND ♦ 

* AREAS DSED BI * 

* IP. ♦ 

***i»***4c***4c****4' 



* PROCESS "NOT* 
->*AND LEADING' (• 



*itijki:lL*m*********** 



COLLECT *. YES 

OPERANDS .♦ 

. VALID .* 



IFERR 

4:4c4<4c«E 14=>«<*4<'*'>»**4c4c 

* DISCARD STMT. * 

♦ GEN ERR TEXT. ♦ 

* RESET TABLES ♦ 

♦ AND SWITCHES * 

*■ * 

«**>»:««*«**4c4c4c4>4c4:4c 



♦ n * 

* *-> 

*♦♦♦ 
IPSO 1 

*«4<**Fl«*«««>|c*«4c4c 

* FINISH IF * 

♦ PROCESSING, * 

♦ GENERATE FALL * 
*THRODGH LABELS * 

* OR GO TO ♦ 
4c«4<*4'«4c:»**4'«***4c>|c 



CLASS OR 
SIGN TEST 
. NEXT 



J——*. REQ 



♦ COLLECT AND ♦ 

♦ PROCESS * 
— >* LEFTHAND AND ♦- 

*RIGHTHAND NAMES* 

♦ * 

4c4>«4c««i«c4c4c4c4:«4:4c4:4'« 



.♦ VALID *. YES 

^>*. COMBINATION .* 

A +.0? TERMS .♦ 



* 
->* 



'-] 



***♦ 



♦COLLECT AHD/OR ♦ 

*PROC LEFT- AND ♦ 

->*HIGHTHAND TERMS*- 

♦ (IMPLICIT OR ♦ 

* EXPLICIT) * 

itc4[itc*4c4i*4c*4c*4t***4i* 



Hi****Y2********** 



4i**^************** 



«>tc4t4<4'4i***4c4'*4c4c4c** 



* SUBSTITUTE ♦ 
*DDMMY STATEMENT* 

* FOR INCORRECT *- 

* ONE * 

* * 

4:*«*4c**4c4c4c*«4c4c4c«4< 



GENERATE 

ERROR-FREE 

STRINGS 



«4c4c4c4c««4c4c*4c4c:»>)c>«<** 

* * 

* F1 * 

* * 



u 



SEE CHART 
KA01C3 
4[«4c*G2********* 

* RETURN TO * 

* MAINLINE * 

* * 

4i4c>»*4<****4:4c*4c«4c 



4<4c*«*4:4:*4c«4'4'**4c4c* 



♦YES 

L**** 
>♦ ♦ 

♦ E3 * 
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Chart KC. Phase aO: PERFORM Processina 



* * 

* PERFORM * 

* ♦ 



BRANCHED TO 
FROM IDENT 
OR SORT 



B3 ♦. 
.* *. 
.* 
->*. VALID PN2 



SEE CHART 
KA01C3 

* RETURN TO * 

* MAINLINE * 

* * 

4: Dc 4: ^ « « :tc >gc :» « He :|c 4c igc 4c 



* * 

* DISCARD THRO * 

* PN2. PUT OUT * 

* ERROR TEXT. * 

* * 



* FIND LOCATION * 

♦ OF END OF * 

* PERFORM * 

♦ * 



* E3 ♦ 

* ♦ 

* * 

* STORE * 
>* APPROPRIATE *- 

* STRINGS * 

* * 



:^**^,*^-p2********** 



]tc«« «4:«* * *4'«4c*4c4' 4c«: 



4c4c**4c4c>0'4iA4c**4c4c«*4: 



iti*:ti^iifll2********** 



«itc4:4c4c4c4i4:i|c)» 



* ♦ 

* SAVE PN2 TO * 
>* FIND END OF * 

* PERFORM ♦ 

i(c lOc 

>Ocl»: « 4< « 4c 4: Xc 4' * « 4c « ♦ He * 4c 



PERFORM *. YES 

CALLED BY .* 

. SORT .* 



****E5********* 

* * 
->* EXIT TO SORT ♦ 

* 4t 
4c**4:4<4t4t4:*#*4c4'4c4c 



SEE CHART 
KA01C3 
4c 4e * it< G 5 '^^ ■)"*** 't' '*<'<< * 

♦ RETURN TO * 
->* MAINLINE * 

* * 

4:4c*4c4<4c>)c>«c4c4t4c4t4r4t4t 



4: 4i 4: 4c 4= « * ♦ « 4c« « 3«c * ♦I'^i 



GENERATE ♦ 

STRINGS FOR * 

CONDITION * 

4c 

4c*«4c4c4c4c4:4:4c4:4c4:4c4' 



*N0 

L4c**4" 
>* ♦ 

♦ E3 * 



4:4c4c4c4c4c4c4'4c4i4c4c4i4c4c4:4: 
**** 



u 



♦ NO 

L4c4'«4c 
>4c * 

4c G4 * 
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Chart LA. Phase 50 (ILACBL50) : Overall Logic 



* * 

* ILACBL50 * 

* * 



* ♦ 

♦ B2 



♦-> 



**** 
PH5CTL 

*GETNXT * 

*_*_♦_*_*_♦_♦_♦_* 

* GET NEXT * 

* ELEMENT ♦ 

* * 



i^Ai*^i>i])2******'^*** 



:(:«4c:«c:4c««>«i>t'*«4' 



* * 

* UPDATE ANY * 

* SOBSCRIPTED * 

* ITEMS * 

* * 

4: itL :tc 4^* 4^ 4: * :ti itc 4i * ** * 4i3t' 



PH5BVB . . 

G2 *. 
.* VERB ♦. 
.♦NEEDS REGS *. YES 

♦.1-5 AT OBJECT. ♦ 

♦. TIME .♦ 



♦WRITE OUT VERB ♦ 

♦ HEADER AND * 

♦ OPERANDS AS ♦ 

♦ P2-TEXT ONTO * 

♦ SYS002 ♦ 



J2 ♦. 
.♦ VERB ♦. 

REQUIRES ♦. 
CALL TO 
.0-RODTINE.+ 



NORMAL EXIT 
FROM PH5CTL 
IS IN GETNXT 



* DESTROY ♦ 

* SUBSCRIPT ♦ 
->* OPTIMIZATION ♦ 

♦ TABLE ♦ 

♦ ♦ 



♦ WRITE ♦ 

♦ INTERMEDIATE 

♦ OPTIMIZATION 

♦ A-TEXT 

* 



n 



:^i^i:tf**Y2********** 



4i*««#**4;«:tc4:**«4:«* 



* * 

♦STORE SUBSCRIPT^ 
->♦ REGISTERS 1-5 ♦ 

* IF NECESSARY ♦ 

* * 



LC01A1 

3|c « « :ii :» Q q 4c :tc * l|c « * « itc* « 

♦GENERATE ♦ 



♦ GENERATE PROC ♦- 
♦A- OR INTERMED ♦ 

♦ OPT A-TEXT ♦ 



*. 



.* 



J3 ♦. 
.♦ MUST ♦. 
.♦ DESTROY ♦. YES 

->♦. SUBSCRIPT OPT.^ 

♦. TABLE .♦ 



♦ NO 



->♦ 



LD01A4 

♦KILSUB ♦ 

DESTROY ~ ♦- 
♦ SUBSCRIPT OPT ♦ 
TABLES ♦ 



**;****4****** 
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Chart LB. Phase 50: GETNXT (Part 1 of 2) 



c 



* * 

* GETHXT * 

* * 

:»: itc * * « :tc * * « « 4c >«c * 4c« 



♦ ♦*♦ 
♦01 * 

♦ B1 *-> 



]tc4c4:*«B 1********** 
* ♦ 

POINT TO NEXT * 

->♦ ELEMENT IN ♦ 

BUFFER * 



>4c«4:4'«4c«*4'4c«4c*4'«4:*#>0c 



*«*4c«C1*^****** 



* 4c4'*>t:4< 4c*4e«4c4' >|(««4c* 
♦ **♦ 



*^li:ti*i)ili2********** 



*.END OF RECORD. ♦- 



->*. EOF 



l(c4cl|i*4ci«c«4' 



* * 

* WHITE AS ♦ 
->♦ INTERMEDIATE * 

* ERROR TEXT * 



u 



* ♦ 

* B1 * 

* * 
♦♦♦♦ 

.*. 
F2 ♦. 



>♦ * 

* EH * 



,t:itil^:HLitiQ2********** 



.* I\3 CODE ♦. YES 
*. (FOR OPT) .* 



*ili^fitiiti23********** 



u 



4c)tc«4c4c4c*4c4i4c4c4c4i^4c4'4> 

♦ ♦ 

' * D1 * 

* TORN ON SH TO » 
♦SUPPRESS OOTPOT+ 

->+0F ALL CALLS TO^- 

* ILBDDBGO ♦ 

* SUBROUTINE ♦ 



G3 ♦. 
.♦ ♦. 

.♦ 

->♦. 430U CODE 



n 



♦ * 

♦ ♦ 
->+RELEASE TABLES ♦- 

* ♦ 

♦ ♦ 

♦ ♦♦* 

♦ E4 
♦♦** 

* * 
♦TORN OFF DEBUG * 

♦ CALL SUPPRESS * 

♦ SWITCH * 

* * 

* • ♦ 

* ?H * 

* * 



♦***D5+++**+**+ 
♦RETURN TO PHASER 
->♦ 00 ♦ 
♦ ♦ 



^cifritc*^'^^^^^^^^*^^^ 



* ♦ 

>♦ 0PTSW=1 ♦ 



* WRITE AS ♦ 

* INTERMEDIATE ♦ 
PROCEDURE ♦ 

A -TEXT * 



^^■•[^^^^^^[♦♦♦♦♦♦♦♦♦*« 



->♦ 



L^ 



* )0c 4c * « i(c « * :(c 4c 4c 41 4c)|c « 4t « 



*iti**:ffll2********** 



♦NO 

>♦ ♦ 

* FU ♦ 



L 



4c 4c •»:***** 

♦ *♦♦ 

* ♦ 

* F4 ♦ 

* ♦ 



♦. OPTSW ON 



1^ 4c 4c*>tc 4c 4c 4c 4' 4c 4c 4c 4c 4: 4c 4c 4c 



u. 



♦ F** ♦ 

♦ ♦ 

4c4c*4c 

SEE CHART 
LA01C2 

4c4c4c4cJ2^^^«^^^*^ 

♦ RETURN TO ♦ 

♦ PH5CTL ♦ 

♦ * 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c*4c 



♦. .♦ 

♦. .♦ 

♦NO 



4:4c 4c 4c 4c 

♦ 02 ♦ 

♦ A1^ 
* 4c 



4:44c 4c*K2^^^^^^^*^^ 

♦ WRITE START ♦ 

♦ MACRO ELEMENT ♦ 
->♦ AS IMMEDIATE ♦ 

♦ PROCEDURE ♦ 

♦ A-TEXT ♦ 

:» 4c 4c 4c 4c 4c 4c 4c 4"0c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 

.>4= 4C 

♦ B1 ♦ 



L 
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Chart LB. Phase 50: GETNXT (Part 2 of 2) 



♦02 * 
* A1* 



* START * 


YES 


DECLARATIVES 

♦. BREAK .* 

♦. .* 


—J 


*. .* 


*♦*♦♦ 


*N0 


♦ 01 * 






* B1* 






♦ ♦ 



END * 


. YES 


DECLARATIVE 


*-l 


.^ BREAK ^.* 


*♦. .♦ * 


♦ ♦♦♦♦ 


♦NO 


♦ 01 ♦ 


1 


♦ B1* 




♦ ♦ 



i^^^^tf^cB********** 



WRITE OUT 

OPTIRATION 

A-TEXT 



n 



♦ ♦ 

♦ WHITE OOT ♦ 

♦ PHOCEDORE ♦ 

♦ A-TEXT ♦ 

♦ ♦ 
^♦♦^^'♦♦♦♦♦♦♦♦♦♦♦^ 



4c ^[♦♦♦B !♦♦♦*♦♦♦♦♦♦ 

♦ DESTROY ♦ 

♦ SUBSCRIPT * 

♦ OPTIHRATION * 

♦ TABLE ♦ 

♦ ♦ 
^♦♦♦^[♦♦♦♦♦♦♦♦♦♦♦^ 



********************** 
♦01 ♦ 
♦ B1 + 



SEE CHART 
LA01C2 
♦♦♦♦D2^^**^^^^^ 

* RETORN TO * 

* PH5CTL ♦ 

* t 
*************** 



I 



**** 
>*01 * 
B1 
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Chart LC. Phase 50: A-text Generator 



* ♦ 

* GENERATE * 

* * 

4c itc 4: j|c lOc A * * * * 4^ * * 3ti * 



4:i»:4c*«cQ 1ltc«4<**)f *♦ 



it,^tdlc,tLif*.:ti**^:i**i**:t*^c 



* CALCULATE * 

* LENGTH FIELDS * 

* OB REGISTER * 

* FIELDS * 

* * 



* D1 * 

* ♦_ 
♦ *** 

GCK0P3 

« >^:«c :|c4c Q 1 >tc « 4< 3tc4c )|c* :^4c « 

♦DETERMINE FIRST* 
♦ADDRESS OPERAND* 

* AND SET UP * 

* A -TEXT ♦ 
» ♦ 



.♦. 

El *. 
* * 

LITERAL 

♦. .* 
♦. .♦ 



n 



♦ * 

♦ A3 ♦ 

♦ *. 

PLDS1 

itc 4c )» * 4c j^ 3 4t * lOc * * 4c 4< 3«c >» * 

♦ ♦ 

♦ SET UP PLUS * 

♦ ELEMENT IF IN ♦ 

♦ EXISTENCE ♦ 

♦ ♦ 
I0c4c]|c4ci0c4t4::('*«4:4c*4i4c4citc 



♦. INSTRUCTION .*- 



.♦ SECOND ♦. 
->♦. ADDRESS 

♦.COMPLETED. ♦ 



♦ ♦ 

♦ CHANGE ♦ 
->*WORK-AREA 2 TO * 

♦ WORK-AREA 1 ♦ 



:^:t: 4c 4c 4c incite* 



4c « 4c 4c 4c 4c 4c 



♦NO 



*:»4[4'*E2^^******** 

♦ GENERATE ♦ 

♦ OPTIMIZATION ♦ 
>* A-TEXT ON ♦- 

♦ SYS003 * 

♦ * 



4c4c4c*4cF2*^*^*^**** 

♦ GENERATE ♦ 

♦ INTERMEDIATE * 
->* OPTIMIZATION *- 

♦ A-TEXT ON * 

♦ SYS002 * 

4c4c4c4c4c4c*««>Cc4i4c4c4'«4c* 



♦ WRITE ♦ 

♦ CONSTRUCTED ♦ 

♦ A-TEXT * 

♦ * 
4c 4c *: 4^ 4c 4c 4c * >l< 4> 4= >tc 4c 41 4c If' 41 



4:4c 4c4c 4c D34c 4c 4e)tc 4c 4c 1* 3|c 4c4: 

* CLEAR WORK ♦ 

* AREAS AND * 

* POINTERS, ♦ 

* RESTORE * 

* REGISTERS ♦ 
4c4c4c4c*4c4c4c4c4c4:4c«4c4c4c4c 



SEE CHART 
" LA01B2 

4c4:4c4cE3^*^****** 

♦ RETURN TO ♦ 

♦ PH5CTL ♦ 

4c 4c 

4t:^4c4c*4c4c4c4:«:4c4c4c4c4c 



4c 4c 4c 4c 4c C5^^^*^***** 
4c 4c 

* CHANGE EACH ♦ 

* POINTER 2 TO ♦ 

* POINTER 1 ♦ 



4t 4c 4c 4c 4c :^ 4c* 4c 4c 4: 4: 4c 4c 4c 4c 4c 

4c4c4c4c 

4c 

D1 ♦ 

v * 

♦ 4c 4c* 



u 



4c4c4c4:4cG1*^***^*«** 



4c4c4c 4c4c4c«4c*4c ***** 



u 



♦ A3 * 

* * 

**** 
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Chart LD. Phase 50: XSPRO and KILSUB Routines 



* * 

* XSPRO * 

* * 



B1 *. 
.* * 

.* 

*. Q-BIT ON 



♦ * 

* WEC005 * 

♦IF 'OPT* WRITE * 

♦ C005 * 

♦ * 



4t: 4c * 4c :tc J) f « :(< :tc Jtc « * « « 4c * 

* ♦ 

* GENERATE L 2, * 

* GHREP FOR * 

* Q-ROOTINE * 

* * 

4c4c4c4c«4c4:4c4c4:4c4c4c4c4c4c4c 



.* *. YES 

*.OPT REQUESTED.* 



4c4c4c4c4cB2******4"f** 
4c 4c 

* UPDATE * 
->* SUBSCRIPT OPT * 

* TABLE ♦ 

4c 4c 

4c 4c « 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c« 4c 4c 4> 



4I4C4C4C4CC2********'*'* 



4c 4c 4c 4c 4c 4c 4c «♦ 4c 4c 4c 4c 4c 4c 4c 4c 



, SEE CHART 
* LA01J3 

4c4c*4cD2******'lc** 

* RETURN TO * 

♦ PH5CTL * 
4c * 

4c4c4c*4c4c4e4c4c4c4c4c4c4c4c 



4c4c4c4:«g2********** 
4c * 

4c 4c 

->*ADD 1 TO RGNCTR* 

* 4c 

* * 

4c 4c 4c 4< 4c 4c 4c 4c * 4c 4c 4^ 4: 4c 4c 4c 4c 



4c4c4c* A44c4c4c4c4:4:4c 4c4c 
4c 4c 

♦ KILSUB ♦ 

* 4c 
4c 4c 4c*4c 4c 4c 4c 4c 4c 4c 4< 4c 4:4c 



4c4c4c*4cB<|4'4c4c4c4c4c4c4c:^4c 

* ZERO OUT * 
♦DISPLACEMENT IN* 

* SUBSCRIPT OPT * 
♦TABLE (XSCRPT) * 

4c 4c 

4c 4c 4c 4c 4c 4c i» 4c *4c 4c 4c 4c 4c *4c 4c 



4c4c4c*3^CU ****♦♦**♦* 
4c 4c 

* ZERO OUT * 
♦DISPLACEMENT IN* 

* XSSNT TABLE ♦ 

4c 4c 

4c 4> 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4: 4c« 



SEE CHART 
V LA01B2 

♦ 4c 4c 4cD4 *♦♦♦♦♦♦♦* 

* RETURN TO ♦ 

* PH5CTL * 

4c 4c 

4c 4c 4c^4c 4c 4c 4c 4c 4< 4: 4c 4c 4c 4c 



4c 4c 4c 4c 

4c 

G1 * 



4c4:4c4c4cp2***^*****^ 



4c 4c«4c 4c 4:4c 4c 4c 4c 4c* 4c 3^ 4c 4c 4c 



.♦ NUMBER OF ♦. NO 

♦.Q-HOUTINE TO .♦ 

♦. CALL=0 .♦ 



SEE CHART 
LA01J3 

4c4c4c4cH 14c4c4c4c4c+*4=4c 

♦ RETURN TO ♦ 

♦ PH5CTL ♦ 
4c 4c 

4<4c4c4:4c4c4c4c4c4c4c4:4c4c4c 



:^4c4c4c4:G2^^^^^^***^ 

* 4c 

* GENERATE BALE * 



4c4c4c4:4c4c4c4c4c4:4c4c4c4c4:4c4c 



4c4c4c4c4cH2**^*****^* 

♦SUBTRACT 1 FROn^ 

♦ NUMBER OF ♦ 

♦ 0-ROUTINES TO ♦ 

♦ CALL * 



4c 4c 4c 4< 4c 4c 4c 4c 



u 
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Chart LE. Phase 50: DPGTEST 



♦ ♦ 

* DBGTEST ♦ 
Hiif ************* 



B1 


* 


SWITCH OM 


*. .♦ 

*. .* 
*N0 

1 



iH^:^**C -|4c4c*««)tc**4:4c 



4i4>****««4<4=*it<4'*«>0c« 



#iHti:t^iD-\i^:f ******** 

♦ * 

♦GENEEATE L 15, * 

♦ VCON BALE 11».15*<- 

♦ DESTROY 114,15 * 

♦ * 



* * 

* * 

*TOPN SWITCH ON * 

* * 

* ♦ 



* * 

* RETURN ♦ 

* ♦ 



* * 

■* RETURN * 

* * 

^iff^it:^'********** 



* * 

* DBGRTNOO * 

* * 



iH:lf*i,l^2********* 

* * 

* DBGRTN01 * 

* * 

^i^mn^t:*********** 
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Chart MA. Phase 51 (ILACBL51) : Overall Logic 



* *. 

* ILACBL51 ♦ 

* * 

]|t 4i 4c *:»::» * itt^c >0i* «3«i 4: * 



♦GET TXT ELEMENT*- 
♦PHOCESS UNLESS * 
* VERB STRING ♦ 

:ti 4t « * i«> 4c * 41 ♦ :^ 1*: * *« « 4^ 4i 



NORMAL EXIT 
FROH PH5CTL 
IS IN GETNXT 



:^,4::^*^^^Q2********* 



♦ EXIT TO PHASE » 
->* 00 * 



«i«c4c«4c4c4'«iC»tc4c*4c4[4t>tc4< 



:^4c*)^4cD3*4<4'**4ii»**4c 

* * 

* WRITE ELEMENT * 
->* AS PROCEDDHE * , 

* A-TEXT * I 

* * V 

* * 
»*** * B2 * 

* E3 * **** 

♦♦♦*^ I 
V 



VERBS IN LIST ARE: 

READ 

READ(REHON) 

WRITE 

WRITE (RERON) 

OPEN 

CLOSE 

RELEASE 

RETURN 

START 

REWRITE 



-*.VZRB IN LIST .*- 



MB01A1 

♦DBGTEST * 
♦_*_*_*_♦_*_*_♦_* 

♦ GEN LOAD AND * 
*BALR IHST»S FOR* 

* ILBDDBG4 * 



«*4[4c4:«4:*4:««4<4c4:«* 



♦ * 

♦ SELECT ♦ 

♦ APPROPRIATE * 

♦ VERB ANALYZER * 

♦ * 

4i«*4i**4:4c4c«*«4>*4'4c« 



SEE CHARTS 
ME-MP 

* * 

* GO TO ♦ 

* APPROPRIATE * 

* VERB ANALYZER * 

* ♦ 



u 



*** 



u 
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Chart KB. Phase 51: 



DBGTEST 



* * 

* DBGTEST * 

* * 



♦♦♦♦B2********* 

* * 
->* RETURN * 

* * 
***♦****♦*♦*♦*♦ 



♦*«**ci********** 



♦♦♦♦♦♦*♦»*♦*♦*♦*♦ 



♦♦♦**D1********** 

* * 
♦GENERATE L 15, * 
♦VCON BALR 14,15*<- 

* DESTROY 14,15 ♦ 

* * 



♦♦♦♦C2********* 

* * 

* DBGRTNOO * 

* * 
*♦*♦♦*♦♦♦♦♦*♦** 



♦♦**D2********* 

* * 

* DBGRTN01 * 

* * 



♦ * 

♦ * 

♦TORN SWITCH ON * 

♦ * 

♦ * 
♦♦*♦*♦♦**♦****♦♦* 



* * 

* RETURN * 

* * 
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Chart MC. Phase 51: 



GETNXT Routine 



* * 

* GETNXT ♦ 

♦ ♦ 

* >^ ^t * I*' « * 4< >tc * ^c * 4> :«i :|c 

♦ ♦ 

♦ B1 ♦ 

**** 

4c4c4t4c4:B I********** 

* * 

♦ POINT TO NEXT * 

* ELEMENT IN * 

♦ BUFFER ♦ 

* * 



:t:^i^i4i*C^********** 



* * 

♦ D1 



♦-> 



♦ *** 



.* INTERMED * 
♦.OPTIMIZATION 
*. A-TEXT .* 



♦.SEGMENTATION . 

♦. CONTROL .♦ 

*. BLOCK. ♦ 



♦ 

♦ WRITE 

♦ OPTIMIZATION 

♦ A-TEXT 



* * 
♦HOVE IN CORRECT^ 

->♦ PROCEDURE ♦- 

* A-TEXT CODE ♦ 

* ♦ 

4: ]^ !^ « 4i !» 4c 41 41 4c:ti 4c « * 4i 4: * 



4<4c4c4c4cB3^^^^^^^*^^ 
4c 4c 

♦ WRITE ♦ 
->♦ SEGMENTATION ♦- 

♦ CONTROL BREAK * 

♦ * 



4c4<4c4t4:4c4c>^4:4'4<4c 

4c*** 

* 

B1 ♦ 
♦ * 

**** 



U^ 



INTERMED 
PROCEDURE 
. A-TEXT .' 



**«**£3*«**4<***** 



************* 



F3 ♦. 
.* ERROR ♦. 
.♦ MESSAGE 
->*. DEFINITION 



MD01A1 
*****]^ (4 ********** 

♦PDTDEF ♦ 



->^CHANGE DEFINI- 

♦ TIOM TO PRO- 

♦ CEDURE A-TEXT 
*4c************ ******* 



n 



***B4*** ******* 



**4c***** 



n 



«4c********** 

* ♦ 

* B1 ♦ 

* * 
♦ *** 



*4c***D4*****^^*^^ 



*4c*****4c**** ********* 

* * 

* B1 ♦ 

* * 
***♦ 

*4c***£((********** 



n 



* 4c** **4c****** ******** 

* * 

* B1 ♦ 

* * 
**** 

*****p44c4:****4c4:** 

* * 

* * 

->♦ TEST SEVERITY ♦ 

* * 

* * 

**4c** ************ 



*****G2+*+++*+^** 



*4c***g3^^**^^^^*« 



*.EHD OF RECORD. *- 



*****4c********** 



L 



4c****** 

**** 
* 
B1 ♦ 



SEE CHART 
MA01B2 
****!] 1********* 

♦ RETURN TO * 

♦ MAINLINE ♦ 

♦ * 
*************** 



4c*** *J2* ********* 



*****J3********** 



*4c***BU********** 

♦ WRITE LAST ♦ 

♦ SEGMENTATION ♦ 
->♦ CONTROL BREAK * 

♦ AS PROCEDURE * 

♦ A-TEXT * 

*4c*************** 



*****Jt)******4c*** 



* POINT TO NEW * 

* BUFFER ♦ 

* ♦ 

* * 

4c*** ************* 


* * 

* RELEASE TABLES ♦< , 

* * 

* * 
***************** 


♦MAKE LAST ENTRY^ 

* IK SEGTBL ♦ 

* * 

* * 

*******4c********* 


**** 
l_>* * 

♦ D1 ♦ 

* * 
**** 








L*****4C** 

; EGTBL ♦ 

ric ♦ 




****K3* 

♦ EXIT T( 

♦ 0( 


:4c****** 

D PHASE ♦ 
) ♦ 


♦ ****KH4c=( 

♦ MAKE £ 
1 ♦ STA!1 



**4t************ 
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Chart KD, Phase 51: 



PUTDEF Routine 



****A1»******** 



4:«««4>4c*4'*«*>ti**« 



♦.VN DEFINITION. *- 

*. .♦ 

♦ . .* 



* * 

♦WHITE VN DEF AS* 
->♦ PROCEDORE *- 

* A-TEXT ♦ 

* * 



4i4c*>«i*BU********** 

* * 

♦WRITE VN DEF AS* 
->* OPTIMIZATION * 

* A-TEXT * 

* * 



****C3********* 

* * 

* RETURN * 

*■ * 



iti^ic^i^ili2********** 



*,PN DEFINITION. *- 



->*. GNLIST FOIL .*- 



->*.OPT REQOESTED.*- 



«*4c4c4c4'**4c*«4c*)|c4<*4c 



«i|c>f)|iD5********* 



I0c4c******4'4c**4:4<4: 



«*«*#£ -f «4t>tci|c«***4c4c 



*4'«4c>»:**«4'«««iOc4c)«'«4< 



1tLi^if**f^********** 



* SET CODE FOR 

* PNEQO STRING 



4c>|l4c4'*iC'*«*4'**4'^4:«* 



«itc*«*G 1********** 



4i:f>('4i«*4:«4c*4c4:itc**'(c* 



:tL***:t:-E3******** 



* SET CODE FOR 

* GNEQD STRING 



4: 4c « * DC 4c * 41 3tc »: « * « >tc * 4c 



♦ 4c 4c 4c 
4c 4c 

* H5 * 



F3 *. 

* 

PNEQO 



4>4c4c4cF5********* 

* 4c 

* RETURN * 

* * 
*4»|c4c4i4>*4t*4c4!*4c4>4c 



4c4c4c4c4cG5********** 



♦.GENEQU STRING. *- 



4c4c4:4<4>H4********** 



WRITE PNEQU 



4c4c4c*4e4c4c4c4c4:4:4:*««** 



4c4c4c4c4>J44c4c4c>tc4c4c4<4:4c* 



♦4c*«4c*4t4c4c4>4c4c4c4c4c4<4c 



4c4c4c4>4cH5********** 



* WRITE GNEQU * 



4c4:4c4c4c4c*««>»:4r4'4c«itc4:* 



4c4c4c4c4cJ54'«)«c4c4c4c4c**« 



4>4c4c«4c4c4t4c4c4:4c4c«4c4>4c4: 



*4c4c4:Klt********* 
4c « 

♦ RETURN * 

4< * 

♦ ♦4c 4c 4' 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



♦ ♦♦♦♦♦♦♦♦♦♦ 4,^^^«4c 



****K5********* 

♦ ♦ 

♦ RETURN * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Chart ME. Phase 51: SET Verb Analyzer, Format 1 



4c :ti ^c 4' A 1 '*''*'*■•■*'*'*'* ■*' 

♦ 4c 

♦ SET * 

♦ ♦ 

4i4<4:**4i**4c>t[4c>t'«>»4' 



:t!ilc^i'Q2**********- 



.♦ D0P1 = ♦. HO 

->*. INDEX .♦ 

*.DATANAME .* 



4>*4c***4c*4i*4c>tc4<4<4>i«c4c 



.* D0P2 = ♦.NO 

->♦. NUMERIC .♦ 

♦. LITERAL .♦ 



♦YES 

U 



♦ F1 ♦ 

* * 
♦ ♦♦* 

,ti*it:^,*C3* ********* 



4c4c4c>tc4c«4<4c4'« 



D1 ♦. 

.♦ DOP 1 ♦. 

.♦ AND 2 ARE ♦ 

♦.SAME TYPE OP 

♦. INDEX .♦ 

♦.NAME .♦ 

♦. .♦ 

♦ YES 



MG01A4 

4c4i4i*«J)2^ ♦♦♦♦♦♦♦♦♦ 

♦LOADLIT ♦ 

♦ GENERATE LOAD ♦ 

♦ FOR LITERAL ♦ 

♦ * 
*]«ii(i *4c4c4c4i * 4< 4c* J^*** * 



4c4c*4c4c£2*^^^^^^^^^ 

4c 4c 

♦ GENERATE ♦ 

->♦ L 1, INDEX 2 ♦- 

4c 4c 

4c * 

«4>4c«:»4c4c*4c4c4c4c*4c4c4c«: 



MG01A2 

4c4c4c4c4c£3*4c4c4c4c4c*«4c4c 

♦SETLEH ♦ 



4c4c4c» 

*;^3|c4c4c7 I4c4c:^4c4c4c4c4c4c* 

* 4c 

* GENERATE MVC ♦ 

* opi(a),oP2 ♦ 

4t 4c 

* 4c 

* 4c4'4c 4c 4c4c«4c 4c 4c4c 4c«4c4c4c 

4' 4c 4c 4c 

* 4c 

* G1 ♦ 
4c 4c 

4c4c«* 

SEE CHART 
HA01B2 

*4c4c«G1*^*^*^^^^ 

* RETDRN TO ♦ 

* MAINLINE ♦ 
4c 4c 

4:4c4c4c 4c4c«4c 4c4c4c 4<«4c* 



♦ (FOE D0P1) ♦ 

4c 4c « 4c 4c 4c 4c 4c 4c 4c 4c 41 4c 4c 4c 4c 4c 



4c 4:«4c 4c p3 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4c 4c 

♦GENERATE LH 2, ♦ 
♦LENGTH OF DOP 1* 

4c 4c 

4c 4c 

4c 4c 4c * 4c 4c 4c 4c 4c 4c 4c 4c 4c :» 4c 4c 4c 



4c4c#4c4cG3^^**^^^^^^ 
4c 4c 

* * 

♦GENERATE MH 0,2+ 

* 4c 
4c 4c 
4c4c4c4c*4c*4c4c:^4c4c*4c*4c4c 

4r4'4c4c 

* * 

* H3 ♦ 

* ♦_> 
4c 4c 4c 4c 

4c4c4c4c4cH3^4<^*^ 
♦SETLEN ♦ 

*_*_*_4c_4'_4c_4c_4«_4c 
4c 4c 

* (FOR DOP 2) ♦ 

4e 4:4c 4c 4c 4c 4c 4c 4c 4c*4c 4c 4c 4c 4c 4c 



4c4c4c4c4cJ34c4c#4c4c4:4c4c4:4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c4c4c4'4cK3**4c4c*4c4c4c4c# 
4c 4c 

4c 4c 

♦GENERATE DR 0,2^ 



4c4c4c**Bl|^^^^^^^^^* 

4c * 

4c 4c 

->^GEHERATB SR ,0+- 
4c * 

4c 4c 

4c4c4c4c4c4c4c4c4c4c>»4c«4c*4c4i 



MG01A4 

4c4c4'4c4cB5^^**4c4c>»4c*4c 

♦LOADLIT 



4c 4c 4c 4c 4c 4c 4c 4c 41 4c««4i 4c 4c 4c 4c 



L 



.* D0P2 = 


4c 


YES 




->♦. INDEX 
♦.DATANAME 
♦ . .♦ 


4c 


'-1 




* . .♦ 




**** 




♦NO 




* * 










♦ F1 ♦ 


4c 4c 4c 4c 








4c 4c 


* 4c 








4c 4c 4c 4c 


♦ D5 ♦ 

4c**4c 










NRATOR 








4c4c4c4c4cD44c4c4c**4<4c4c4c:^ 


D5 



♦ CONVERT AND ♦ 
♦LOAD D0P2 INTO ♦ 

♦ Rl ♦ 
4c * 
4:4c4c4c4c4c4c4c4c4:4c*4c4c4c*4c 



>»4cEl{4c4c4c4c4c4c4:4c4:4< 



GENERATE 
BCTH 1,0 



4c 4c 4c * 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4c 4c 



HG01A2 

4c4c4c4c4cp44c4>4c4c**4:4c4c:» 

♦SETLEN ♦ 

4c_4c_4c_4c_4:_4c_4c_4c_4c 
4c 4c 

♦ (FOR DOP 1) ♦ 

4c4c4:*4c*:4c4c4c«4c4c4c4c4c4c4c 



4c4c4c4c4:G4^^^^^^^ 



4>4c4c 

4c 



*******•■ 



YES .♦ DOPl = ♦. 
♦. INDEX NAME .♦ 



4c4c4:E5^^^*^^^*^^ 



4c4:4:*«4c4c4c4:4t4c:»4c4c4c4c4c 



4c4c4c4c4cHl(^^^^^^^**^ 

♦ GENERATE ♦ 
♦ST 1,INDEXNAME ♦ 

♦ OR ♦ 
♦ST 1, IDENTIFIERS 

♦ 4c 
4c 4c 4c 4c 4c 4c 4c >^4c«*4c 4c 4c 4c 4c 4c 



L 



4:4c*4c4c65S^^^*^^^^^ 



GENERATE 
CVD 1,TS2 



4c4c4c4c*«*4<4c4c4<4c4c4c4c«4c 



DOPl = 

INTERNAL 
. DECIMAL 



4c4c4c4c4cJ54c4<4c4c4c:»*4c4c4c 



♦ GENERATE 

♦ ZAP D0P1,TS2 



L 



4i 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4- 4c 4c 4c 4c 

4: 4c 4c 4c 
4c 4c 

♦ G1 ♦ 
4c 4c 

4c*4c4c 

4c4c4c4::»K5S^^S^^^^^^ 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c#4: 4c* 

4c 4= 4c 4c 

4c 

D5 ♦ 

4c 4c 

4c4c4c4c 



u, 



4c4:4c4c4c4c4c4c4c*4c4c4c4c*4c4c 
4c 4c 41 4c 



L 



>♦ 

♦ G1 ♦. 

* / 
4c 4c 4c* 
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Chart MF. Phase 51: M0VE4 



* * 

* MOVEU * 

* * 



^^i^:t::^C2********** 



:fHt:i)LHi*Q2********'f* 



GENERATE 
ST 0,VN 



4c 4^ :^ *:3«c 4: * * 4> * >(c * >l<>«c 4= 4c 4c 



* 4c 4c 4c He 4c )tc 4c * * * ♦ 4c 4c 4c 4c 4c 



*. D0P1=VNREF 



4c 4c 4c 4c 4CD2*'*' '*"*'<'*'•'* ^'t' 
4c 4c 

* GENERATE * 
•>* L 0,VN *- 

* ST CPFMSAV * 
4c 4c 
4ci|c4c4c4c*4c4c4c4c4c4c4c4c4:4c:^ 



itLHi:t::^^:-22********** 



*. D0P1=GNREF 



* WRC001 * 

->* WRITE C001 *- 
* ELEMENT * 

4c 4c 

4c 4c 4: 4c 4c 4: 4c 4: 4< 4c 4c 4c 4c4c 4c 4c 4c 



«4:4c4cD34c4c4c4c4c4c4c4c4c 
4c 4: 

* RETURN * 

♦ 4c 
4c 4c 4< 4c 4c 4c 4: 4c 4c 4< 4c 4c4c 4c 4c 



4c 4c «4c 4c £34c 4c 4c 4c 4c 4c 4c 4c 4c 4: 
4c 4: 

* POTGNPER * 

->*POT GN PERFORM *- 
* ELEMENT * 

4c 4c 

4c 4c 4c 4c 4c 4c 4> 4c 4c 4c 4c 4c 4: 4: 4c 4c 4c 



4i4c4c4c4cE44c4c4c*4c4c4c 4t4c4c 
4c 4c 

* GENERATE * 
>* L 0,GN * 

♦ ST 0,VN * 
4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c* 4c4c 4c 



4c 4c 4c 4c 4c F 1 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4: 4c 

* WRC003 * 

* WRITE COOS * 

♦ ELEMENT * 

4c 4c 

4c 4c « 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*4' 4: 



4c 4c 4: 4>4cG 14c 4c 4c 4c 4c 4:44c 4: 4c 

* 4c 
4c 4c 

* WRITE PNUREF * 



4c 4c 4c 4c 4cH 14c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



GENERATE 

L 0,PN 
ST 0,VN 



4:*4c4cJ I4c4c*4c#4c4c4c4: 
4c 4c 

* RETORN * 

4c 4c 

4c 4c 4c 4c 4:4c 4c 4c 4c 4c 4c 4c 4:4c 4c 
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Chart MG. Phase 51: SETLEN and LOADLIT 



♦♦**A2********* 

* * 

* SETLEN * 

* ♦ 



.* D0P1 = 

. VABIABLE 
*. LENGTH 



:^ili,t:iti:t:C2'**''>^******* 



*t:************** 



* * 

* SET A-TEXT * 
>* BUFFER FOR ♦ 

* LITERAL * 

* * 



* ♦ 

* RETURN ♦ 

* * 



****AU********* 

* * 

* LOADLIT ♦ 

* ♦ 



* ♦ 

* GENERATE ♦ 
♦L 1j.LITERAL OR ♦ 

* L 1, INDEX * 

* * 

:(c % « 4l * 4:^1 41 * !»: itc ♦ « 4c 4<4> If 



♦ ♦ 

♦ RETURN * 

♦ * 

4ci|c!^:*:4c*4e4c«4*4c4i «4c 
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Chart MH. Phase 51: SET Verb Analyzer, Format 2 



^::tc*:t^J^2********* 



4:4c]|c4c*4t)|c**4c*)t:*:tc4c 



* * 

* ♦ 

* SET SETOPSH * 

* * 

* * 



.* DOP 2 = 

NOHERIC 

*. LITERAL 



* GENERATE * 

♦ CONVERT AND * 
♦LOAD OF LITERAL* 

♦ INTO R1 ♦ 

* ♦ 



HG01A1 
♦LOADLIT 



]|c4'**4<>tc**4<«4ci|c«>|c4citc4< 



H601A2 
♦SETLEN 



* (FOR DOP 1) * 

♦ ♦ 



ilr*ilntLit'p2********** 



1^#i)^:lfiti4i*********** 



62 


*. 


,it*inintiQ2********** 


.* 


♦ , 


* * 




*. NO 


♦ GENERATE * 


SETOP* 


;W ON .♦ 


^>* S 1,INDEX1 * 



itiit^***E2********** 



GENERATE 
A 1, INDEX 1 



>tc « 4c 4< 4: 4. 4c 4ii|c 4i « * * i|c 4c * 3^ 



4c4c4c«4>E3********** 



GENERATE 
LCR 1,1 



4c4c4c4c«4c4c4c4c4c4ti»4:4c4'4<:4c 



4c4c4c4i*J34c4:4<4:4c4c4c4c4:« 



GENERATE 
ST 1,INDEX1 



4c4c4c4c4<*«>«c>tc*4<4c4>*4c4c4c 



^ SEE CHART 
V MA01B2 
4c4i4>4<K3***4c>l'***« 

♦ RETURN TO * 

* MAINLINE * 



**** 



*** 
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* * 

* PERFORM * 

* * 



DOP 2 = *. 

NUMERIC 
LITERAL .* 



* GENERATE * 
♦CONVERSION AND * 

* LOAD OF DOP 2 * 

* IN R1 * 



i>f:ilp**^l^2********** 



4c4'>tc>«'*«*4'«4'**4>4'«*« 



*#* 



i«i««4c>0ci|citc:«c:O'**3tc4E 



* :Cc « J) 1 4c *: « 4: :{c itc :» « :«< :tc 



GENERATE 
ST 1,PFMCTL 



*i^ijH^:ffi:#.^H^:ti*it:itfilf 



^c^^t^c^E l^c^tcitc^c^c 4c4c*4c« 

♦ * 

* HRCC005 * 

* WRITE COOS » 

* ELEMENT * 

♦ ♦ 

4:4'««4=«4<«4:*>f«4'**«« 



* * 

* ♦ 

♦GENERATE GNDEF * 

* * 

* * 



* * 

* E3 ♦ 

* * 

:^iitiif3iiAfi^2** ******** 



'-] 



itc4i4c«itcitc4:4c4[*««« 

L**** 
>* ♦ 

* K1 * 

♦ * 
*♦♦* 



*^ii::f^4ii^Q2********** 



♦, PN IN ROOT 



4: 41 4: ^^AHI* ♦♦*♦♦♦♦*♦ 



4c « 4< * 4c 4: 4c:»: i» « 4< « « * « 4< >tc 



4c«4<4'>tc J 1««4:«4c4c«:«4'« 



4c4c«4c4c4:«*«>0c4c«4:*:*^«« 
***4c 



4c4:4*«4'*4E«*3)c4t«4'*«4i 



:^#ilf,i:itiYl2********** 



4c 4c 4c 4: * 4c 4c :^ 41 ^^c 



*.OPT REQUESTED. *- 



♦***A4********* 

* * 

* TRANSFORM ♦ 

* 4c 
« 4c « 4< * >0c 4c 4c 4c 4c 4c >^ 4c 4C4C 



4c4c>0c4c4cBU**>«'>O>>ic4c* ♦♦♦ 

* GEN MOVE OF ♦ 

* TRANS TBL ♦ 
♦ILBDVTRO, INTO * 

* TEMP STORAGE * 

* ♦ 
4c 4: « 4c 4c 41 « 4c * tc 4c 4c 4c 4c 4c* 4c 



4c* 4c 4c4cC4 4c 4c *4c4c 4c4c 4c4c 4c 

♦GET LENGTHS OF ♦ 

♦ OPD 3 AND a ♦ 

♦ (»T0» AND * 

♦ 'FROM' * 



4c 4c 4c 4c 4:D4 ♦♦♦♦♦♦♦♦♦♦ 
♦CHANGE 0PD3 AND+ 

♦ 4 INTO ♦ 

♦ ALPHANOMERIC ♦ 

♦ LITS, IF ♦ 

♦ FIGCONS ♦ 

4c:|c4:4c4c4c4c4c 4c 4c 4c 4c 4c 4c 4c 4c* 



*4c*4c4cB4^^^ ♦♦♦♦♦♦♦ 



4c 4c 4c 4c 4c 4c 4c 4c * 4c 4c 4c 4c 4c 4c4c 4: 



OPD 2 = 

VARIABLE 
. LENGTH 



4c4c4c4c*G4^^^^^^^^^^ 

* * 

* GENERATE ♦ 

* TRANSLATE ♦- 

* INSTRUCTION ♦ 

* * 

4c4c4c4c4c4'*4c4c*4'4'4'4c 4c4c* 



4:4c4c4c4>p54c4c4c4c4c*4c4c4c* 



**4c4c4c**4c4c4c4c4c4c4c4c4c4c 



SEE CHART 
HA01B2 

*4c4c4:G5^^^^^^^^^ 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 

♦ ♦ 
4c 4c 4c 4c 4c* 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c****J3********** 



CODE 


NUMBER TO BE GENERATED IS AS FOLLOW: 


1. 


0PD3 IS A LITERAL NOT GT 8 BYTES AND 




0PD4 IS A FIGCON OR LITERAL = 1 BYTE. 


2. 


0PD3 IS A DATA NAME GT 1 BYTE OR A 




LITERAL GT 8 BYTES. 


3. 


0PD3 IS A DATANAME = 1 BYTE. 


4. 


0PD1 IS A 1-BYTE FIGCON OR LITERAL AND 




0PD4 IS A DATANAME. 


5. 


0PD3 AND 0PD4 ARE LITERALS LT 8 BYTES, 




GT1 BYTE, AND OF -EQUAL LENGTH. 



* *_> 

♦*** 

SEE CHART 
MA01B2 

****Kl**4c****** 

* RETURN TO ♦ 

* MAINLINE ♦ 

* ♦ 
*****♦***♦♦**♦* 



*****K2*^*^^^^** 



**4c************** 

**** 
* 
E3 ♦ 
* ♦ 
♦♦♦* 



*****4c*********** 



****I^3********* 

♦ * 

♦ RETURN * 

♦ * 
*************** 



L 
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Chart MJ. Phase 51: DISPLAY and EQUATE 



* * 

* DISPLAY * 

* ♦ 



*iii:iti*i^]^2*******'^** 



* GENERATE LA * 
->*2,=(PR0GBAM ID)* 



4i4ciOc4*4<3«c««*4c*«4>4c>«'* 



****AU********* 

* * 

* EQDATE ♦ 



* ♦ 

* * 

* PDTDEF FOR VN * 

* * 

* ♦ 

^ )tc >tc « 4: 4c * 4< « :^ itc * >» 4c # 4c * 



itc4c3(c4ciOcQ 1)0:«4c4c* )0c*4c4c4c 



D0P2 



4c]tcitc4c4cC5********** 



4c 4c 4: 4c * l|c « :» « 41 4: * 41 ic 4t 4c 4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4:4c 4c 4c 4c >tc 4c 



4t4c4:4c4cD2********** 
4c 4c 

* GENERATE * 
->♦ PARAMETER FOR *- 

♦ CONSOLE * 
4c 4c 
4c4c4c4c«4c4c4c4<4<4c4c4c«4c4c* 



4>4c4c4c4cE2********** 
4c ♦ 

* GENERATE * 

>♦ PARAMETER FOR ♦ — > 

* SYSPCH * 
4c 4c 
4c 4c 4' 4c 4c 4c 4' 4c 4c «* 4c 4c 4c 4c 4c* 



4c4c4c4> 4CD4 ***** 4c* *** 



*****F1********** 

* * 

* GENERATE * 

* PARAMETER FOR * 

* SYSLST * 

* * 

4:«**«*********«** 



SEE CHART 
" HA01B2 
****E4********* 

* RETDRN TO * 

* MAINLINE *< 

* * 

******4c******** 



*****Q1********** 

* * 

* GENERATE * 
♦PARAMETERS FOR ♦ 

* OPERANDS * 

* * 
***************** 



SEE CHART 
MA01B2 

****ui********* 

* RETURN TO * 

* MAINLINE * 

* * 
*************** 
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Chart KK. Phase 51: IHINIT^ IMGEN, RESET, and EXITPGM 



* IMINIT * 

♦ ♦ 



#^^7^4:^2********** 



* TEST AND * 
♦PROCESS HOMERIC* 

* LITERAL IF ♦ 

* PRESENT * 

* * 



^iTtf^Ai************* 



A4c«4c4<C24<********* 

* GENERATE CODE ♦ 

* FOR BRANCH ON * 
*RESOLT OF MOVE * 

* OR COMPARE * 

* ♦ 



* * 

* RESET ♦ 

* * 



♦ GENERATE * 
♦INSTRUCTION TO ♦ 
♦TORN OFF TRACE ♦ 

♦ SWITCH ♦ 

♦ * 



SEE CHART 
V MA01B2 

* ♦ 

* RETURN ♦ 

* ♦ 

,«<««*«« :^ « >tc « 4< 4c :(c « 4c 



* RETURN * 

* * 



♦ * 

♦ IMGEN ♦ 

♦ * 

«4c4c)tc*4c4c3ec4:A4c4c>ic«:4c 



♦ GENERATE ♦ 
♦NECESSARY MVCS ♦ 

♦ OR CLCS FOR ♦ 
♦HOVE OR COMPARE^ 

♦ * 

4c*^:|c4c4c4c«l|c4c:(c4c4c4c4c4'4c4c 



* * 

* RETURN ♦ 

* * 

4c4:«4c« >«c4c:tc4c 4c« 4c4:4:* 



4c«4c«Q44:4c*«:4c«4c i|c4: 

* *. 

* EXITPGM ♦ 

* * 

« « 4c 4c 4c 4c He « 4c 4c 4c « 4c 4c4c 



4c«4c4ci«cH4*^*^^^^^ 
* 

♦ DESTROY 

♦ REGISTERS 14 

♦ AND 15 

* 

4c 4c 4c 4c 4c 4c * 4c 4c 4: ♦ 4c 4c4c 4: 



4c4c4c4c4cJH*4c4c4c4c4:4c4c*4c 



4c4c4c4c4c4c*4c4c4c*4c 



SEE CHART 
MA01B2 

4c4c4c4:KU**^^+^*^^ 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 

4c 4c 

4c4:4c4:4c4c4c4c4c4c*4c4c4c4c 
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Chart ML. Phase 51: DEBUG, READ, TRACE, and GOBACK Routines 



* * 

* DEBUG * 

* * 



flDETER 

♦TERMINATE LAST * 

* DEBUG OR, IF * 

* THIS IS FIRST * 

* DEBUG, MAIN * 

* PROGRAM * 



:(c:OcA*ACl*>«<««****** 



««](< 4:* **4: >»*>)( Xc^4c**>tc 



^^citc^^DI*** ♦♦♦♦*♦♦ 



4L4c:«c3|c«4c:tc««4c4c4: 



:tc « l|i « itc £ 1 « >tc 4t « itc *: « * 4^ * 



:gi « >tc Xc « « 4c* 4c * « :«c :«: A 4^ ^ 4: 



♦♦♦**F1*** ******* 



>(c4c>f4:4:4c4c4c4:««4c****4c 



SEE CHART 
V MA01B2 

«)»:4c«:G I********* 

* RETURN TO * 

* MAINLINE * 

* ♦ 

it:*:************* 



4: « « 4c li 1 « 4c « « 4c « iOc4c « 
4c 4c. 

♦ READY * 

4c 4t 

4: 4c 4c 4c 4c 4: 4c 4: 4c 41 4c 4c 4c 4c 4c 



4c 4c 4c 4< A3********* 



4c 4: 4c 4c 4c 4: 4c 4c 4c 4c 4c * 4c 4c 4c 



4c4c4<:4c4cB3********** 



«4c4:4c4c4c4c4c4c4c4c«4c4c4c4c« 



4c4i4c**C3********** 
4c 4c 

* GENERATE * 

* PARAMETER FOR * 

* SYSLST * 

* 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 



I ENTER FROM 
- PH5CTL 



4c 4c 4c 4c 4CD34C 4c 4' 4c 4c 4c 41 3^ 4c 4c 
4c 4c 

*GENERATE DC FOR* 

* CURRENT * 
*PROCEDURE NAME * 

* 4c 
4< 4c 4c 4c 4c 4c 4c 4c * 4c 4c 4c 4c 4c 4c 4c 4c 



SEE CHART 
MA01B2 

4c4c4:4cE34c4c4c4:4c4c4<4c4c 

* RETURN TO * 

* MAINLINE * 



4c 4c 4c 4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4: 4c 4cF34c 4c 4c 4c 4c 4c 4c 4c 4c 
4c * 

* GOBACK * 

4c 4c 

4c 4c 4c 4c 4c 



4c4c4c4c4cG3********** 
4c 4c 

* DESTROY * 

* REGISTERS 14 * 

* AND 15 * 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*4c 4c 4c 4c 



4c4c4c4c4cH3********** 

* WRITE VIRTUAL ♦ 

* DEFINITION ON * 

* FILE 3 FOR * 

* ILBDMNSO * 



41 4c 4c 4c 4: J 14c 4c 4c 4c 4c 4c 4c«4c 4' 

* GENERATE * 
♦INSTRUCTION TO * 

* TURN ON TRACE * 

* SWITCH * 

* 4c 

4c 4c 4c 4: 4c 4: 4c 4c 4c * 4: 4c 4c 4c 4c 4c 4c 



SEE CHART 
MA01B2 

*4c«4cKl********* 

* RETURN TO * 

* MAINLINE * 

4c 4c 

4c4c*4c4c4c4c4c4c4c4c *4:«4c 



4c 4c 4c 4c 4c 4c « 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 



4c 4c 4c 4c 4c J34c 4c 4c 4c 4c 4c 4c 4c 4: 4c 



FLOW, *. YES 

STATE, OR .* 

. SYMDMP .* 



4c 4c 4c 4c 4c 4: 4e 4c 4c 4c 4c 4: 4c 4: 4c 4c4c 



4c 4c 4c 4c 4: J54c 4c 4c 4c 4c 4: 4c 4c 4: 4c 



4c4c4c4c4c4c*4c4c4c4c*4c4c4c4c4c 



4c 4c 4c* 

* 4c 

* K4 * 



4c4c**K44c4c***«4c4c4c 

* RETURN TO * 

* MAINLINE * 

* ♦ 

4c 4c 4c 4c * 4c 4c 4c 4c 4c 4c 4c 4c 4c * 



U^ 
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Chart MM, 



Phase 51: IF-Index Routines 



*♦*♦ A 1 **♦♦**♦** 



*4c«:|c:4:Q 1X>4:>tc«4'<<:»:«4'* 



* *SEE NOTE BELOW 



Itc:{c30c«««4i4i3tci«c:4'«**«4:4' 



**♦♦ 
* * 

* A3 ♦ 

♦ ♦ 
**♦♦ 



TES 


* 


D0P2 = *. 


r'- 


* 


NUMERIC .* 
LITERAL .* 
*. .* 


**** 




*. .♦ 


* ♦ 




'NO 


» H2 * 








* * 








♦♦*♦ 




\ 




iti:t,:t:,ti4i-p ^****i>i***** 


* 






* 


G:;! LENGTH OF * 


* 




DOI 


>2 ♦ 



iOc«:4'>tci«'4:4' 



A*^'**^: «:»:*«« 



*7tf.*i)i^^2********** 



:«c4'*4'#:tc« 



YES .♦ D0P1 (OLD *. 

*.D0P2) = INDEX.* 

*. NAME .* 



* D0P2 = 

INDEX DATA 
*. NAME 



* GENERATE * 
♦CONVERSION AND * 

* LOAD OF D0P2 * 

* INTO R1 * 

* * 



♦****g2********** 

* * 

* GENERATE * 
->* CLC D0P1,D0P2 *- 

* * 

* * 

* * 

* H2 



*-l 



♦ *♦♦ 

* * 

* A3 * 

V 

4c «(*«« A3* *♦***♦**'*' 
» ♦ 

* * 
♦GENERATE SR 2,2* 

* * 



,tL4c«:(c«Q34:4'««« 



GENERATE 
L 3,D0P1 



4c:«c:tcA:«'*««4c*4c«#4<* 



MG01A2 
♦♦♦**C3********** 
♦SETLEN * 

^ ^ _*_*_*_♦_♦ 



* (FOR D0P1) * 



4<4c«««D3********** 

* ♦ 

* GENERATE ♦ 
»LH 0, LENGTH OF » 

* D0P1 * 

* ♦ 



* ♦ 

* * 

♦GENERATE DR 2,0* 

* * 

* ♦ 



*****F3*#****** 



4: **«* Alt ********** 

* * 

->*GENEHATE SR 0,0* 

* ♦ 

« « :(i * 4i * :«c « « 4c 4: I*: « )^ «i4i!Ce 



V MG01A2 

4c«4c>tc«Q4««4c#4=4c««4:4c 

*SETLEN 

* (FOR D0P2) 

4c4c4c>tc4:4c«>«c«4c*«>«c«« 



« « 4c >«c >ec Q 4 4c A 4c 4c 4c « >»: 4: * :4c 
4c 4c 

* GENERATE * 
*LH 2, LENGTH OF * 

* D0P2 * 

* * 

4i 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4>4c«D4 ********** 

* 4c 

* * 

♦GENERATE DR 0,2* 

* * 
4c * 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c«4c 4c >tc 4c 4c 



4c 4c 4c 4c*EU ********** 
4c 4c 

4c * 

♦GENERATE CR 3,1*- 
♦ ♦ 

4c 4< 

4c 4c 4: 4c 4c 4c « « « >«c A 4c :«c 4: 4c« 4c 



4c 4i 4c 4c 
4c * 

* A5 * 

4t * , 

A*4c4c I 

V MG01A2 

4c 4c 4c 4c 4c A5* ********* 

*SETLEN * 

4c_4c_4c_4c_4c_4c_4c_*— 4c 
4c 4c 

* (FOR D0P1) * 

4c ' 4c 

4c 4c 4i 4c 4c 4c 4c 4c 4c^4c* 4c 4c 4c 4c 4c 



4c4c4c4c4cB5********** 

* 4" 

* GENERATE * 
*MH 1, LENGTH OF * 

* D0P1 * 
4c 4c 

4c4:4c4c4c4c4c4c4c*4c4c4c*4c4:4c 



4c4c4:4c4cC5********** 



«« 4c 4c 4c 4c 41 4< 4c 4c 4c 4c 4c 4c 4: 4c 4c 



4c4c4c4c4cD5********** 



4c « 4c 4c 4c: 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4( 



4:4c 4c 4c 4cE54c4c4c4c 4C4C4C 4c «4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4c 4c 4: 4c 4=4:4: 4c 4:4c 4c 4c 4c 



SEE CHART 
MA01B2 

4c4c 4c 4CF5 ********* 

* RETORN TO * 

* MAINLINE * 

4: 4c 

4c 4c 4c 4c 4:4c 4c 4c 4:4c 4c 4c 4c 4c 4c 



NOTE 

FOR IFINEQUA, 
FOR IFINNEOn, 
FOR IFINOOEA, 
FOR IFINNQUE, 
FOR IFINLESS, 
FOR IFINNLES, 



SET CODE AND C0D2 TO ••='» 

SET CODE AND C0D2 TO "NOT =" 

SET CODE AND C0D2 TO "GT" 

SET CODE AND C0D2 TO "NOT GT" 

SET CODE AND C0D2 TO "LT" 

SET CODE AND C0D2 TO "NOT LT" 



4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4:4: 4c 4: 4c 



4c*4c4:4cj 14c*4c4c4c4c4c4c4c 



4c 4c 4c 4c 4: 4c 4: 4c 4c44c 4c 4c 4:4c 4c 4c 



L 



A5 * 

4C 4c 
4c 4: 4c 4c 
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Chart MN. Phase 51: GO^ and GODEPM 



4= 4c « 4: A 1 :•> # « # * 3»: 4:* 3«> 



«4'4c>»4e4c4c4=««4'«4e^4c4c 



GN 

*. .** 
*N0 



4c 4: 4c ^c 4t D 1 >)' i^c ><' * 't' »= ■t' =» 't' « 
« * 

4c 4c 

*SAVE VN NOMBEF * 
4c 4c 

4c 4c 

4i 4c4c4:4i 4t 4c4l 4c4l 4e4c 4c 4c 4c4c4c 



4c :» 4c 4c 4c B2*>^*4''^ *'*=■<'** 
4c 4t 

* 4t 
->*SAVE PN NOMBEB *- 

* 4t 
4c 4= 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 4c 



4c 4c 4c 4c 4c C2 '•'>•'<<*'*=*'•"•''•< '•' 

♦ * 
4c 4c 

->*SAVE GN NDMBER * 

♦ 4c 
4c 4: 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c )^ 4c 4c 4c 4c 



4c 4c 4c 4c 4cp 14c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c )» 4c 4c 4c E 2 "t" **'•'*'•"•' ■t' "•" * 

* GENERATE * 

* L REG,PN, OR * 
->* L HEG,GN, OR *< 

* L REG,VM * 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c :^ 4c 



4c 4c 4c 4c 4c F 2 "*= * 4< 't' ^t' 't' '•^ '•' '•"•' 



4c 4c 4c 4c 4c 4c 4c 4= * 4: 4c 4c 4c 4c 4= 4: 4c 



4c4c4c4c4cG 14c4:4c4c4c4c*4c4c4c 
4c 4c 

*PASS PARAMETERS* 

* OF PRIORITY * 

* NOMBER * 
4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c«4c4c 4c 



4c4c4c*4c4c4c4:4c4c4c4c4c4c4c4c4c 



SEE CHART 
MA01B2 
4c4c4c4cH 1********* 

* RETURN TO * 
» MAINLINE * 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4e 



GODEPM 

****H2********* 

* ENTER FROM * 

* PH5CTL * 
4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 



4c4c4c4c4cJ24c4c4c4c4c4:*4:4c4c 

♦GENERATE ADCON * 

♦ OF PN * 

♦ REFERENCED IN * 
♦GO DEPENDING ON* 

♦ STATEMENT ♦ 

4c4c4c4c4c4c4c4c4c«:»4c4c**4c*: 



SEE CHART 
V MA01B2 

4c«3»«K2********* 

* RETURN TO * 

* MAINLINE * 

4c 4c 

4c4c4c4c4c4c4:4c4c4c4c4c4c4c* 
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Chart HO. Phase 51: GODEPL and GO DEPENDING 



♦ ♦ 

* GODEPL ♦ 



♦GENERATE ADCON * 

* OF PN * 
->* REFERENCED IN * 

♦GO DEPENDING ON^ 

♦ STATEMENT ♦ 



«*4c4cA3^ ♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ GO DEPENDING ♦ 

♦ ♦ 

)«c 4c 4c ♦ >|i >•: >«> 4i *4< 4: « * * * 



4c«4:4c*B3^^^^^^^^^^ 

♦ GENERATE LOAD ♦ 
♦OF BINARY VALUED 

♦ OF DATA NAME ♦ 

♦ INTO R1 ♦ 

♦ * 
*4'«**^*4«*4c>|c*)»:4<4c4< 




'' M001A3 

14ii|c4i*4':|*«4<* 



4i«4c4c4c*4i4c*«4i***4c4i* 



♦.OPT RE0OESTED.+ 



->♦. SEGMENTED 



GENERATE L 



SEE CHART 
MA01B2 
«4i4c4cD !♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ MAINLINE * 

♦ * 

*)tc*4c4c«4'3«'*«1':tcitc«4< 



♦ * 

♦ GENERATE ♦ 
♦COMPARE OF DATA^ 

♦ NAME TO CODNT ♦ 

♦ ♦ 



* CALCULATE ♦ 
♦DISPLACEMENT T0+ 

♦ USE IN BRANCH ♦ 

♦ INSTRUCTION ♦ 

* * 
«4c4'%*4>*4c4c«*:^4'«>»4'4c 



* * 

♦ GENERATE ♦ 

♦ SR 2,2 ♦ 
♦LH 3, HO OF PNS^ 

* * 



^cUc^cE^^^^^^^^^ 



**^**dlf**ifi4f** *«4c 



* 4c 4: « 4: 4c 4: 4c * 4> 4c 4c « * 4i 4c 4c 



4c4c4c4c4cD5^^4c4>*4c*4c4c* 

♦ 4c 

♦ 4c 

♦ CALL ILBDGDOO ♦ 
4c 4c 
4c ♦ 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*« 4c 4c 4c 



4c4c4c4c«F2^^^^^^^^^^ 



4c4c4c4<4c4c«4c4:4c4c4(4c4ci|:4c4c 



4c 4c 4c 4c 4c G3 4c 4c 4c 4c 4c«4c 4c 4c 4c 

♦ SAVE ♦ 

♦ DISPLACEMENT ♦ 

♦ FOR A-TEXT ♦ 

♦ GENERATOR ♦ 

4c 4c 

4c 4: 4c 4c 4c 4c 4c 4: 4c 4c 4:4c 4:« 4c 4c 4c 



4c 4c 4c 4c 4c H4 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c « « 4c 4c :» 4c 4c 4c 1^ 4c 4c « 41 4c4c 4c 



4c:»;»4:*J34c4c4c4c4c4c4>4c 



4c 4=4c 4c 4c 4: « 4c 4c 4c* 4c 4' 



SEE CHART 
MA01B2 

4c4c4c4cK3^4^^4c^^^^ 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4i 4c 
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Chart MP. Phase 51: Nonumeric IF (IFANAL) and Class Test (CLANAB) Processors 



:0t :(c)t: >» j^ 1 * i«L « *4= « * * ^t 

♦ * 

♦ CLANAB * 

♦ * 

4: :)c )tc 4c 4c :tc 4c>«c « itc ^Oc 'I' 4^ « itc 



Q14c4c4cA4:>|c*>tc*4^ 



4:4c4c««4c4c4:!tc4c4c4c*«>tc«« 



4i 4c*4:«C 1 1"t= <'<■')' '•"<"t'*=4c 



« 4c 4c 4c * « 4c )tc 4c 4c !«■ « * « ic :0c 4: 



4i 4c 4c 4c 4=0 l*'!'^:^*:***^: 4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: >tc 



.* VARIABLE *. 

. LENGTH OR . 

♦.LENGTH GT.* 

*. 256 .* 



CLASS TEST 
PROCESSOR 
ENTER FROM 
PH5CTL 



1. ALPHABETIC 

2. NOT ALPHABETIC 

3. NUMERIC 

U, NOT NUMERIC 



1. ILBDATBO 

12. ILBDETBO 

3. ILBDITBO 

a. ILBDWTBO 

5. ILBDUTBO 



4c4c4c4c4'B2********^><' 



4c 4c 4c 4:4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4: 4c 



4c4c4c4c;4cF 14c4c*4c4:4c4c*4c4c 

* 4c 

* GENERATE TRT * 
♦INSTRUCTION IN * 

* LINE ♦ 
4c * 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4:4c 4c 



4:4c4c«A4^*^*^***^ 
4c 4c 

♦ IFANAL ♦ 

4c 4c 

4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 



4c4c4c4:4cB4^^^*««^^^^ 

♦ SET CODE FOR * 
♦TYPE OF IF {=, ♦ 
♦NOT =, GT, NOT ♦ 
♦GT, LT, OR NOT ♦ 

♦ LT) ♦ 

4c4c4c4:4c4c4c4c4c4:4c44c4c4c4c* 



MK01A1 
4c4c4c4c4cC4^^^**^4^4« 
♦IHINIT ♦ 

♦~ PERFORM ~ ♦ 
♦INITIALIZATION ♦ 
♦ FOR IF MOVE ♦ 

A4:4:4c4c4c4c4c4c4:4c4:4c4c4c4c4c 



4c4c4c4c4cDt|^^^^^^^*^^ 

♦TEST LENGTH AND^ 
♦SAVE NUMBER OF ♦ 

♦ CHARACTERS TO ♦ 

♦ BE COMPARED ♦ 
4c ♦ 
4c 4= 4c « 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 



V MK01G1 
4c 4c 4c 4c 4c£(( 4c 4< 4c 4c 4c 4c 4c 4c 4c* 
♦IMGEN ♦ 

4c_4c_4c_4c _4c_* _4c_4c_* 

♦ GENERATE "IF" ♦ 

♦ CODING ♦ 
4c 4c 
4c4c4:«4c4c4c4c4c4c4c4c4c4:4c4c4c 



SEE CHART 
MA01B2 

4c4c4c4cpl(4c4c4c4c4c4c4c4c4: 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 
4c 4= 

4c 4c 4:4c 4: 4: 4c 4c 4c 4c 4c 4^ 4c 4c4c 



IF PROCESSOR 
ENTER FROM 
PH5CTL 



444446 1*444444444 
4 4 

♦ GENERATE ♦ 
♦INSTRUCTION FOR+ 

♦ ALPHA TEXT ♦ 
4 4 

4444444 



1. ID— NOT NUMERIC TEST 

2. ED — NOT NUMERIC TEST 

3. ID — NUMERIC TEST 

4. ED — NUMERIC TEST 



SEE CHART 
V MA01B2 

4C444H 1^^^^44444 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 
4 4 

44444 4444 444444 
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Chart HQ. Phase 51: SEGAL and SEGCAL3 



* ♦ 

* SEGCAL * 

* * 



iti^^L^i*lQ2********** 



-*.OPT REQUESTED.* 



^]0i« «** « *:«c4:4«4i:tc i«c:(i « 



MQ01F2 

*SEGCAL3 * 



^,dt:jmitcC3********* 



♦WEITE PARAMETER* 
* * 



♦**#D2********* 

* * 

* RETURN * 

4i :): 4: ♦ 4^ 4c >K * « <[ 4: >«c * * 3ti 



«>tc4i>0c4<4c««4c4c**4c4[4c«« 



it:jtL:t:,^:ti])2********** 



4:4c4:««^4'>tt4c)tc*«««4'4:« 



4<4t4t44<E3A«4c4' 



>|i;tc%4cF2********* 

* * 

* SEGCAL3 * 

* * 



* WRITE BC * 

* ELEMEHT FOR * 

* PARAMETER TO * 

* PASS TO * 

* SDBRODTINE ♦ 

:ti^f^f^ilHti^*:f ******** 



*****Yi2********** 

* PNDSED * 

*SET PNOTBL BITS* 
♦FOR REFERENCED * 

* PNS * 

♦ * 

**i)i******Hi******* 



****J2********* 

* * 

* RETURN * 

*^i:ti^i*********** 



SEE CHART 
HA01B2 
****-p2********* 

* RETURN TO * 

* MAINLINE * 

* * 
*************** 
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Chart MR. Phase 51: A-text Generator, and GATXTC and GATXTV Routines 



•-] 



* a-TEXT * 

* GENERATOR * 

* * 

* « 4c « « itc )(c *4c 4c:«c 4: ^i * 4c 



41 * itc i|c 4c Q 1 >«c 4c « lOc 4c « * « :•< « 

* * 

* SET UP TYPE * 

* CODE (RR IF * 

* LOAD, ETC) * 

* * 

4[4c4c4c4c4c4c4c««>«c4c4c«4c4c4: 



4c4c4:*4tClt<<'')''0'4:«*i«c** 

* CALCOLATE * 

* LENGTH FIELDS * 

* OR REGISTER ♦ 

* FIELDS * 

* * 

4c4c4c4<4c4c4c4<«*4=4c4c*4c4:* 

4c>tcitc4< 
4< * 

* D1 * 
4C *_> 

4:*** 

GCK0P3 

4c 4: 4: 4c 4: D 1 '«' '^ "t" '^ 't' <"•" 'I' * "•■ 

♦DETERMINE FIRST* 
♦ADDRESS OPERAND* 

* AND SET DP ♦ 

* A-TEXT ♦ 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4i 4c 4: ♦ 4c 



.* VIRTUAL 

. LITERAL OR 
*. FIGC0N3 . 



THERE ARE VARIOUS 
ENTRY POINTS TO 
THIS ROUTINE. IT 
IS CALLED BY 
DIFFERENT ANALYZERS 
TO GENERATE PRO- 
CEDURE OR OPTIMI- 
ZATION A-TEXT 



4c*4c* 

PLUSI 

4c4c4c4c>4cA3********** 

* * 

* SET DP PLUS * 

* ELEMENT IF IN ♦ 

* EXISTENCE * 

* ♦ 
4c 4< 4c 4c 4c ************ 



B3 ♦. 
.* *. 
.* SS ♦ 
*. INSTRUCTION 



4c*4c4c4c£;2*******4c** 

* 4c 

* GENERATE * 
->* OPTIMIZATION * 

* A-TEXT * 
4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4' 4c 



4c4c4c4c4cFl********** 



4: 4c 4c 4c 4c 4: 4c 4t 4c 4c 4c 4c 4c 

4c 4c 4c 4c 

4c 

A3 * 

4c 
4c 4c 4: 4c 



u, 



4c4c4c4<*C3********** 
4c 4: 

* WRITE * 

* CONSTRUCTED ♦<• 

* A-TEXT * 
4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c * 4c 4c 4c 4c 4c 4c 4c 4c 



4c4c4:«4cD3********** 

* CLEAR WORK * 

* AREAS AND * 

* POINTERS, AND * 

* RESTOBE ♦ 

* REGISTERS ♦ 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4:4; 4c 4c 4c 4c 



♦***E3********* 

* BETDRN TO * 

* CALLER * 

* 4c 
4c 4c 4c 4c 4c 4c 4c 41 4c 4c4c 4c 4c** 



4c4c4c4cp34c 4>4'4c«4<4c4c 4c 

* GATXTC * 

* GATXTVY ♦ 
4c 4c 

4c4c*4c4c4:4c4c4c4:4c*4c*4c 



4c4c4:4c4cG3********** 



.* SECOND *. 

ADDRESS 

♦.COMPLETED.* 



4c4c4c4c4cD4********** 
4c * 

*MOVE WORK-AREA * 
*2 TO WORK AREA * 
4c 1 4c 

4c * 

4: 4c 4c 4c 4c 4c4c 4c 4c4c 4c 4c 4c4c 4c*4c 



4c4c4c4c4cE44c4c4c4c4:4c4:4c4c4c 
4c 4c 

* HOVE POINTER * 
*2»S TO POINTER 

* TS 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4'*4c 4c 4c 4c 
4c 4c 

♦ D1 * 



n 



ENTER FROM VERB ANALYZER 

1. PROCESS PROCEDURE A-TEXT ONLY. 

2. PAHAMETEBS PASSED 

HAL R It, GATXTC OR GATXTV 

DC AL2 'DISPOSITION OF TEXT 

PROM BEGINNING OP DATA AREA' 
DC AL2 'LENGTH OF TEXT* 



4c 4c 4: 4c 4c 4c 4c 4c 4c: 



V 
4c*4:4c4cH3********** 

* ADD * 

♦DISPLACEMENT OF* 

* TEXT TO START * 

* OF DATA AREA * 
4c 4c 
4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 



4c 4c 4c 4c 4c J34C 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4c 4c 

*WRITE PROCEDURE* 

* A-TEXT ON * 

♦ SYS001 ♦ 

4c 4c 

4c 4c 4c 4c 4: 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4: * 



4:4c4:*K3********* 

♦ RETURN TO R14 * 

* PLUS 4 * 
4c * 

4c 4c 4c 4c 4: 4c 4c 4c*4c 4c 4c 4c 4c 4c 
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Chart NA. Phase 60 {ILACEL60) : Overall Logic 



* * 

* ILACBL60 ♦ 

* ♦ 
4t ^ lOc « *4c 41 3|c * 4< 4^ >•< * * * 



HB01A3 

*PH6 * 

♦INIT SWITCHES,"* 
♦TABLES, & AREAS* 
♦FOR TGT AND PGT* 



NC01A1 

*PRFTWO * 

♦_♦_*_*_♦_*_*_*_* 

* PROCESS * 

* OPTIMIZATION * 

* A-TEXT * 

itc 4i 4i « 4: * l|t4c 3tc 4i « 4(:(c « « 4[:([ 



ND01A1 
:«c4>:»4<*D3********** 

*SE6000 * 

* PROCESS ♦ 

* PFOCEDORE * 

* A-TEXT ♦ 



NE01A1 

♦PDATEX * 

*_♦_*_*_*_*_*_♦_♦ 

* PROCESS DATA ♦ 

* A-TEXT ♦ 

* * 



* GENERATE CODE * 

* FOR INTT2, * 

* INIT3, AND * 

* INIT1 * 

* * 



************** 



****I}3********* 

* EXIT TO PHASE ♦ 

* 00 ♦ 

* * 
*************** 
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Chart NB. Phase 60: PH6 Routine 



****fl3* ******** 

* * 

* PH6 * 

* * 



♦ * 

♦INITIALIZE AND * 

* HANDLE MAP * 

♦ SUPPRESSION * 

* * 

« « 4c « « >«: « « :tc :(c « 4c ^c * 4: it :«c 



«4c4c4c«Q44c4c«*4<>lc*4c4c)^ 



**^i:t:*C5*****'*-**** 



4:4citc>tc:4cD3********** 
4c 4c 

* INITIALIZE * 

* CODNTEES AND * 

* SWITCHES * 

4c 4c 

4c 4c 4c 4c ♦ 4c 4c 4c 4c 4c 4c 4:4c 4c 4c 4c 4c 



4c 4c 4c 4c 4C 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c4c 4c 



«« 4c 4: 4c 4t 4: 4c 4c 4c 4c 4c 4c 4c 4c 



E3 *. 
.* *. 

LIST MODE 



4:i(c4c4c4c£44c4c4c4c4c4:4c4c4c4c 



4c 4c 4: 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4c 4c 4c* 
♦COMPUTE SIZE OF* 

♦ TGT AND ♦ 

♦ DISPLACEMENTS ♦ 
♦OP ITS FIELDS. ♦ 

4c 4c 

4c 4c 4: 4c 4c 4c 4: 4c«4< 4c 4c 4c 4c 4c 4c 4c 



♦COMPUTE LENGTHS^ 
♦ OF FIELDS IN ♦ 
4c PGT ♦ 

4c 4c 

4c 4c « 4c 4c 4c 4c 4c 4c 4c 4c 4= 4c 4c 4c 4c 4c 



4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



♦ USE PNOTBL TO ♦ 
♦MAKE ENTRIES IN* 

♦ PNTBL/GNTBL ♦ 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c«4c 4c 4c 4c 4c 4< 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 



->♦ PNTBL/GNTBL ♦- 



4: 4c 4c 4c 4c 4c 4c 4c 4c 4c* 4c 4c 4c 4c 4c 4c 



SEE CHART 
NC01A1 

4:4c4c4cK5***^^**** 
* 4c 

->*EXIT TO PRFTWO ♦ 

4c 4c 

4c 4c 41 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
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Chart NC. Phase 60: 



PFFTWO Routine 



* * 

* A4 



.*-i 



* * 

* PRFTHO * 

* * 

4i <(« 4< 4e 4c« 4i« 4^* * 4'4::» 



* ♦ 
« * 

* PRIME TABLES * 

* :4c i«i i«c :C * « * :tc * « 41 4c :ti 4< 4c * 



*.GN EQU STRING. *- 



4c«4c4c4cC4 4"l'*>»*'«'* -Oc^ilc 



u, 



4c4c** 4c 4C4C4' «*4' « «4'4<*4< 
«4c4'4: 

* El * 

* * 
4<*4c4e 

4c 4< 4: itE^BS-*: 4'**'^ '•'**'•'* 



4c4c4c4c*4t«4c4'4<4c4c4'4'4<4c 



u. 



4c4c*4c4i«4c4c4c4:4c«4c4' 



4c*4c4c 

* * 

♦ El * 



♦El * J 

♦ *** V 



El *. 

.♦ *. 

.* *. 

*.END OF BLOCK .*<- 

*. .♦ 

*. .* 

♦- .* 

*N0 



G1 *. 

* 

VN REF 

*. 

*. .* 
*N0 



* INSERT ONIQDE ♦ 

->*VIRT IN LVIRTB *- 

*0R CVIBTB TBLS * 

4c 4i 

4c 4c 4: 4c 4c 4: 4c * ♦♦♦A 4^4: 4c « 4< 



4c4c«4<4'4c4'4c4'4c4'«4c4'4c4c4c 



♦ INSERT UNIQUE * 
>♦ LITERAL IN *- 

♦ CONTBL * 

♦ 4- 

4c4:4c4'4c4'4:4c4:4e4:4c««4'4:4i 



* SYS003 FOR * 
>* SXREF/XREF * 

* ELEMENTS * 
4c * 

4c4c4t4'4c4:4'4'4'4:44c4c4c4'4'* 



4c 4c 4: 4c 4cE3'«* ♦♦♦*♦'*'♦♦ 

* * 

♦RESOLVE GNTBL, * 

* CALCULATE * 

* LENGTH OF PGT * 

* ♦ 
4c4c4c4c4'4c4c4c4<4c4>4c4<4c4<«4t 



♦VIRTDALS, ESD'S* 

4c 4: 

* * 

4 4t 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c i^ 4c 4' 4c 4: 



* PUNCH TEXT * 

* CARDS FOR TGT * 

* AND PGT * 

4c 4c 

4: 4'4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4< 4c :^ 



4c 4c 4c«4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c4c4c4!»J34c4c*4c*4c 



4c « 4c 4c 4c 4 4= 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 

4c*** 

* * 

* E1 ♦ 

* * 
***« 



u 



*4c4c^**£4 «**:): 4c****« 



* PRIME 

->* RLDTBL/OTBL 



**********4c**«*** 



*****Q4 ********** 

♦ * 

* COMBINE SECTS * 
♦OF EQU PTY INTO^ 

♦ SEGMENTS ♦ 

* * 

*****4c*********** 



SEE CHART 
V NC01A1 

****{]4***4c***** 

* * 
♦EXIT TO SE6000 ♦< ' 

♦ * 
*************** 



♦NO 

I *♦♦* 

l_>* * 

♦ A4 ♦ 



********** 



*********4c******« 
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Chart ND. Phase 60: SE6000 Routine 



* * 

* SE6000 ♦ 

* ♦ 

* B1 * 
♦ *** 



4c:0t>^>«c«4<*>«c«*4c*4i«*4c 



♦. END OF FILE 



*^^■^^*^^Q2********** 



->*LIST LAST LINE ♦- 



♦ D1 * 

* *_> 

***♦ 
SE6025 



.*0P CODE AND*. YES 

*. ADDRESS .♦ 

♦. ELEMENT .* 



* PN REF *. YES 

AND/OR FILE .♦ 

*. REF .* 



* MACRO * 

INSTROCTION 
*. ELEMENT .* 



* * 

* SPECIAL ♦ 

* INTERNAL *- 

* ELEMENT * 

* * 

:|c :tc « * :(c « )tL * :(c !|c 3tL 4c 4c 41 4c * * 



* 4c i|t * 4< ** * * >Cc ♦ 4c *4c « * 1^ 

**♦♦ 

* * 

* D2 
* 

*♦♦* 

CPPRO 



♦PROCESS UP AND * 
->* ADDRESS *- 

* ELEMENTS * 

* * 

]^** fiOc 4c :4c 4i4c)t'«*>l< >»:♦** 



'1 



♦LIST CALCULATE ♦ 
->♦ RELOC CREATE ♦ 

♦ RLDTBL ENTRY ♦ 

* * 
4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c «*« 4< 4: 



u 



♦ B1 ♦ 

4c 4c 

*4c4c4c 

PNBRRO 

4c4c4c4c4cF2*^^^^**^*^ 
♦CREATE IN-LINE ♦ 

♦ CONSTANT FROM ♦ 
>*PREVIOOS SYS004+ 

♦ ELEMENT ♦ 



4c 4c 4c 4c 4>4c4c 4c 4c 4c 4c 4c 4c 4c 4c 3^ 4c 



u 



♦ ♦4c 4= 

4c4c«^^G2^*^*^^*^** 

♦ REWIND AND ♦ 
♦WRITE ON SYS003^ 

->*FOR PHASE 61 IF^ 

♦ SXREF/XREP ♦ 

♦ REQUESTED ♦ 

4c 4c^^^^^^^^^^^^^*^ 



u 



♦♦♦♦ 
MACPRO 

4r:»4c^^H2^*^^^**^*^ 

♦ ♦ 

♦DETERMINE TYPE.+ 
>♦ GO TO ROUTINE * 

♦ TO PROCESS ♦ 

♦ ♦ 

4c^^4c«^^^^^*^^^«^^ 



♦♦♦♦ 
SEGPROC 

4c^4c^«J2^^**^**^** 

♦ ♦ 

♦ SEARCH SEGTBL ♦ 
>♦ FOR DISK ♦- 

♦ ADDRESS ♦ 



4c^^4:*^^4c^^^^^^^«^ 



GIDENL 

4c4:^^^K2^*^^^^**** 

♦CREATE IN-LINE ♦ 

* CONSTANT FROM ♦ 
>♦ SPECIFIED ♦ 

♦ ELEMENT ♦ 



4c4c^^^*^^*«^^^^^ 



u 



ENDPTX 

4c4c^^^C3^^^^^^^^*^ 

♦ TERMINATION ♦ 

♦ ROUTINES FOR ♦ 
^>^PROCEDURE-TEXT ♦- 

♦ PROCESSING ♦ 



4c^^^^^^4c^^^^««^^^ 



4c^^Q3^4c^^^^^^^^^ 

♦ READ NEXT ♦ 

-> ELEMENT FROM 

♦ SYS001 ♦ 

4!4c^^^^^^^^^^^^^^ 



4c^^4c^4c^*^«^4r^^^« 



nvE .♦ , 



♦ ♦♦♦ 

♦ ♦ 

♦ D2 ♦ 

♦ ♦ 
♦♦♦♦ 



SEE CHART 
•' NEOlAl 
♦#4c^D5^^^*^^^*« 

♦ * 
♦EXIT TO PDATEX ♦ 

♦ ♦ 
*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



4c4c^^^El| ♦♦♦♦♦♦♦♦♦♦ 

♦ FORMAT LIST ♦ 
♦LINE, LIST, PCH* 

♦ FROM PREVIOUS ♦ 

♦ INSTR RESET ♦ 

♦ AREA ♦ 
4c 4c^^^^^^^^^^^^^^^ 



u 



♦♦♦* 



POINTO 

4c4c^^«J3^^«^^^^^^^ 

♦ GET SEGMENT'S ♦ 
♦A-TEXT ADDRESS ♦ 

>♦ FROM ROUTINE ♦ 

♦SEGPNT IN PHASER 

♦ 00 ♦ 
4c 4c^^^^^^^^^^^^^^^ 



u 
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Chart NE. Phase 60: PDATEX (Part 1 of 2) 



* * 

* PDATEX ♦ 



* ♦ 
♦GEHEBATE INIT2 * 

* AND INIT3 *- 

* CODING * 

* ♦ 



* SYSOOU. 
-> POSITION TO 
* DATA A-TEXT * 

:4c>tc 4c « * « * « 4> 4: 4^ « * :tc )4c « 



*-> 



PDT020 

*GET DATA OR EBB* 

* ELEM OR * 
, >* SXREF/XREF OR * 

* DBF ELEHENT * 

* * 



D2 *. 

.♦ *. 

.* ♦ 

*. END OF FILE 



PDT030 

♦RELEASE TABLES * 

* NO LONGER * 
>* NEEDED HAKE ♦- 

♦RLDTBL ENTRIES ♦ 

♦ DIRECT ♦ 

41 ^^olc^i**^!* **4:i*:4c «4e# 



* IDENTIFY AND 
->* PROCESS DATA 

* A-TEXT 



D6SR10 

4c4'4c4i «D4 f***** ♦ ♦'('♦ 

♦SORT RLDTBL IN ♦ 
♦ASCENDING ORDER* 

>♦ OR TARGET *- 

♦ ADDRESS ♦ 



4c 4c 4c *: * * 4: 4c 4< * 4«*^ 4c 4i « 



4c 4c* 4c 4c 4c 4: 4c 



4c4c4c4c4:>«<*4c 
4c#4>4c 
* C2 ♦ 



L 



♦PUNCH TEXT AND ♦ 

->♦ RLD'S FROM ♦ 

♦ RLDTBL ♦ 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*4c«4: 



4c 4c 4c 4c 4c E 5 4c 4' 4c 4c 4c 4: 4c « * :tc 
4c 4< 

♦SET OP REGISTERS 
♦ASSIGNMENTS FOR+ 
♦ PROGRAM. ♦ 

*: 4c 

4c«4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4: 4c 



F2 ♦. 

DBF'S 



4c4c4cF34c4c4'4:4'**4c4c4c4c 

♦ WRITE ON ♦ 
-> SYS001 FOR 
♦ PHASE 61 ♦ 

4c4c4i4c4e4c4c*4c4c4c4:*4:4:4: 



4c 4: * 41 4c 4c * 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 



u 



C2 ♦ 

f * 

**** 



I 



4c 4c 4c 4c 
->^02 ♦ 

-2 ♦ 



4c 4c 4c :^4cG2*^ ♦♦♦♦♦♦♦♦ 
4' 4c 

♦PLACE E-TEXT IN* 
-♦ TABLE FOR ERR ♦ 

♦ PROCESSING ♦ 

* * 

4c4c4c4:4c*4c4c4:4c4c4:4c4c4c4c4e 
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Chart NE. Phase 60: PDATEX (Part 2 of 2) 



♦*♦♦ 


**** 


♦02 * 


* ♦ 


* B2 * , 


* B3 * 


* * 


* * — 1 


GI11IT2 V 


.♦. 


itiilntiH,*'Q2********** 


B3 ♦. 


* * 


»♦ * 


* GENERATE PGT * 


.♦ IS PGM 


♦INITIALIZATION * 


♦. SEGMENTED 



4c«4c*«4'««itc««4^)|c«i4.4c* 



* * 

* GENERATE * 
->*DEBDGGING INIT *- 

* CODE ♦ 

* ♦ 



**:tfti************* 



♦GENERATE CODING^ 
->♦ TO INITIALIZE ♦ 

♦ VN CELLS ♦ 

* ♦ 



EINRG 

♦ GEN CODING TO ♦ 
♦INIT ANY Q-SODT+ 
♦THAT DEPEND ON ♦ 
♦WORKING-STORAGE^ 

* * 



iti4iSti:^:iti-p2********** 



* RELEASE 

♦ RELEASE QTBL 



« ifc )|c :(c * 4< 3|c 4c « 4c 4c >^ >» * 4t >tc 4c 



4c4c*4:4cD3^^^^^^^^^^ 

♦CPY OBJ MOD FOR+ 

♦ NON-RESIDENT ♦ 

♦ SEGMENTS FROM ♦ 

♦ SYSOOa TO ♦ 

♦ SYSLNK ♦ 
4c4t4c4c4c4c4c4>4c4c4>*4c4c4c4c4c 



4c4c4<4c4c4<4<4:4c«*4c4c4c4c4c4c 



4t 4c4c 4cF34t 4c 4c4c4c4c4< >» 4c 

♦ EXIT TO PHASE ♦ 

* 00 ♦ 

4c 4c 

4c 4c«4c 4c 4c 4:41 4c 4c 4c 4c 4c 4c 4i 



4c 4: 4c 4c 4c 4c * 4c 4c 4: 4c 4c * 4c 4c 4c 4c 



♦PONCH AND LIST ♦ 
♦ INIT1 CODIMG ♦ 
♦PONCH LAST CARD+ 

4c 4c 

4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 



4c 4c 4c 4c4c J 2 4c 4c 4c 4c 4: 4c4c 4c 4c 4c 
4c 4c 

♦ RELEASE ♦ 

♦RELEASE PNTBL, ♦ 
♦QNTBL AND VNTPY^ 
4c 4c 

4c 4' 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c«4c 4c 4c 4c 
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Chart OA. Phase 62: Overall Logic 



* ♦ 

* ILACBL62 ♦ 

* * 



V OB01A3 

*PH6 * 

♦_♦_*_*_♦_*_♦_♦_* 

♦INIT SWITCHES, ♦ 
♦TABLES & AREAS * 
♦FOB TGT AND PGT+ 

>«c « 4l itc 4c 4c -Oc 4c )tc 4c 4: lOt « « « 4c * 



OC01A1 

4c 4c 4: 4i4cC3^4 ♦♦♦♦♦♦♦♦ 

♦PHFTWO ♦ 

♦ PROCESS ♦ 

♦ OPTIMIZATION ♦ 

♦ A-TEXT * 

4c 4c *4<4c 4c4c4c >» 4c 4c4c4 4 4c4c4c 



OD01A1 

4c4c4'4c4cD34c4 4c4c4:4c:»4c4<4c 

♦SE6000 ♦ 

♦~ PROCESS ♦ 

♦ PROCEDDRE ♦ 

♦ A-TEXT ♦ 

4c4c4c4c4c4c4c4:4>4<4c4c*4c4c4c4c 



ENTER FROM 

PHASE 00 IF 

OPT IS SPECIFIED 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4c 4c 4c*4< 4c 4c 



4c4c4c>»H3^^^^^^^^^ 

♦ EXIT TO PHASE ♦ 

♦ 00 ♦ 
4c 4c 

4c4c4c4c*4c4c4c4c4:*4c4c4c4c 
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Chart OB. Phase 62: PH6 



****A3********* 

* * 

* PH6 ♦ 

* * 



* * 

♦INITIALIZE AND * 

* HANDLE WAP ♦ 

* SUPPRESSION * 

* ♦ 

:»: i|c« DC lOc )»:4c « i(( 4c 4t * 4t «:>«'♦ >•< 



:t:it:**itiCH********** 



]»: i|c * 4i * Q5 4c 4c 4c* * * )|c ifc * * 



:|:i^4c4'4c4'4<4c4<4:*4<4<4:4:4c4c 



4c4c*4c4e4c*4c4c*:*4c4c4c4c** 



4<*4c*4cD3********** 

♦ ♦ 

♦ INITIALIZE ♦ 

♦ COONTERS AND » 

♦ SWITCHES ♦ 

♦ 4" 

itc 4c 4c 4c 4i 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4c£l|«4c 4c 4c 4c 4c 4c 4c 4c 4c 



LIST MODE 



TGTINT 

4c4c4c4:4cp34e4c4ci^*4c4:4c4c4: 

♦COMPOTE SIZE OF* 

* TGT AND * 

* DISPLACEMENTS * 
♦OF ITS FIELDS. ♦ 
4c 4c 
4c 4c 4c 4c 4c 4c 4: 4c 4c :»«4c 4:4c 4c 4c 4c 



4c 4: 4c 4c 4c 4c 4c 4c 4: 4: 4c 4c 4c 4c 4:**^ 



♦COMPOTE LENGTHS^ 

♦ OF FIELDS IN ♦ 

♦ PGT. ♦ 
4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



SEE CHART 
OC01A1 

4c4c4c4cH3^^^*^^^*^ 
4: 4c 

♦EXIT TO PRPTHO ♦ 

* * 

4c :^ 4c 4c ♦4:4c 4c 4c 4: 4c 4: 4c 4c 4c 
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Chart OC. Phase 62: PRFTWO 



* ♦ 

* PRFTWO * 

* ♦ 

4c * 4c 4c 4c * * * 4citc« * 411^ 4< 



4> 4^ 4c 4c 4^8 1* *=•'>*'* '•"•"t'*^' 



* PRIME TABLES 



4i 4c 4c 4c 41 4c 4c 4c « 4i 4c 4c 4c 4c 4c* 4c 



4c 4c 4c* 

♦ ♦ 

♦ AU * 

4c 4c 

4c 4c 4> 4c 

A4' 



L> 



4c * 4c ** A5 '*"•"•"•' *■** "t" '•' '•' 

♦ ♦ 
* INSERT ♦ 

>♦ INSERT IN ♦ 

♦ CONDIS TABLE * 

♦ ♦ 

*4c4i4c4c4>*4<4c4c*4c*4c**4c 

*4c*4c 

4c 4c 

♦ El ♦ 

4c 4c 

4c4c4c4c 

4c*4c4(4cB54c4c4c*4c4c4c4c4c4c 
4c ♦ 

* INSERT ♦ 

->♦ MAKE ENTRY IN ♦ 

♦ GNATBL ♦ 

4c 4c 

«4c4c4c4c*4c4c4c4c*4c4c4c4'4c4c 



u, 



4e 4c 4c 4c 4c 4c 4c4c 4c 4c** 4c 4c 4:4c 4c 



L>, 



EOF 

*. .* 
*N0 



.'■'-1 



♦*** 

* * 

* F3 * 
» ♦ 

**** 



* INSERT * 

* INSERT UNIQUE * 
->*VIRT IN LVIRTS"^ 

♦OR CVIBIB TBLS * 

* * 
4c**4c#**4c********* 



*****G2********** 

* * 
* INSERT * 

->* MAKE ENTRY IN * 

* 7NPTY TABLE * 



♦ *** I 
NCH V 



♦NO 

L**** 
>♦ ♦ 
♦ El ♦ 



E1 ♦ 

* * 
♦ *** 

****4cC5******^**^ 

* * 
* INSERT ♦ 

->♦ MAKE ENTRY IN ♦ 

* PNATBL ♦ 

* * 

*4c*******4c******* 

**** 
* 
El ♦ 

* * 
**** 

***:^4cD5****:****** 

* ♦ 

* INS ER T * 

->♦ MAKE ENTRY IN ♦ 

* BLVNTBL ♦ 

* * 

4c******4c********* 

L**** 
>♦ ♦ 

* El ♦ 

* * 
***♦ 

♦****E5*******+** 

* ♦ 
♦ INSERT ♦ 

->♦ MAKE ENTRY IN ♦ 

* VNPNTBL ♦ 

* * 

4<**********:****** 

*♦♦* 

* * 

* El ♦ 

* ♦ 
**** 



u, 



u 



>♦ 



♦NO 

L**** 
>♦ ♦ 

♦ A4 ♦ 



**4c************** 
♦*♦♦ 

46 

B1 ♦ 

« * 

♦*♦* 

4c**4c*|{2********** 

♦ INSERT ♦ 

♦ INSERT UNIQUE ♦ 
->♦ LITERAL IN ♦ 

♦ CONTBL ♦ 

♦ * 
4c**4c46*«*********4> 

**** 

* 
El ♦ 
**** 

4c****J2*********4c 

♦ * 
♦ INSERT ♦ 

>♦ INSERT IN ♦ 

♦ FILTBL ♦ 

♦ * 
i» 4c 4c*4c* *********** 

L**** 
>* * 

* El ♦ 

* * 
*♦*♦ 



♦VIRTUALS, ESD'S^ 



4c 4c*************** 



♦ PUNCH TEXT ♦ 

♦ CARDS FOR TGT ♦ 

♦ AND PGT ♦ 

♦ * 
***************** 



->♦ 



4c|}3********* 



4c**************** 



«****J3******«*** 



***4c********** 



4:***«K4********** 

♦ * 

♦ COMBINE SECTS ♦ 
♦OF EQU PTY INTO^- 

♦ SEGMENTS ♦ 



SEE CHART 
OD01A1 

4c**4cK5**^^^^^^^ 

♦ * 
->+EXIT TO SE6000 ♦ 

* * 

4c************** 
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Chart OD. Phase 62: SE6000 (Part 1 of 2) 



*■ * 

* SE6000 * 

* * 

* ♦ 

* B1 * 
» * 



r 



♦ * 

♦READ PROCEDDHE *EOF 

->*A-TEXT ELEHENT * 

^ FROM SYS001 * 



♦ 01 * 

* B1* 



EHDPTX 

♦MAKE FINAL REG * 

♦ ASSIGNMENTS * 
>♦ LIST REG *- 

♦ ASSIGNMENTS * 



♦ ♦♦* 

♦ * 

* C2 * 

OPPRO .*. 

C2 ♦. 
.♦2-BYTE *. 
.* BRANCH *. YES 
^>*. INSTRDCTION .* 



* ADDLGTH * 

* ADD LENGTH OF ♦ 
♦INSTRUCTIONS TO* 

* ACCUMCTR ♦ 

* COONTER * 
4c***4[4c***4' ♦«♦♦«** 



u 



«♦*♦ 



*ittit:**********i)i* 



* REFLD11 * 

* PROCESS PN * 
>* FOLLOWING *- 

* PREVIODS LOAD * 

* INSTRDCTION * 



« SAVE * 

* SAVE * 
->* INSTRDCTION *- 

♦UNTIL NEXT ELT ♦ 

♦ IS HEAD ♦ 



*■ * 

♦ ADD 4 TO ♦ 
>♦ ACCUMCTR ♦- 

♦ COUNTER ♦ 

♦ * 



* * 

♦ ADD U TO ♦ 
■>♦ ACCUMCTR ♦- 

♦ COUNTER ♦ 

* * 



IP NEXT ELEHENT IS PN OR GN 
REFERENCE, PREPARE TO GO TO 
REFLD11 WHEN 2-BYTE BRANCH 
FOR THE SAME REGISTER AS 
LOAD INSTRUCTION IS READ 



4c4:iic««F2^^*^^^**^^ 



♦. CO ELEHENT 



L 



Gl 

.♦ GN 
♦. DEFINITION 



**♦* 

* * 

* B1 ♦ 

* * 

.♦. 
G2 ♦. 



.♦ ENTRY IN ♦. 

♦. PNFWDBTB OR . 

♦.GNFHDBTB .♦ 



.♦ ACCUHCTR ♦. NO 

♦.WITHOUT ADDED.* 

♦. LOAD < .♦ 
♦.4095 .♦ 



G3 ♦. 

.* ENTRY ♦. 
.♦IN GNFWDBTB^. YES 

->♦. OR PNFWDBTB .♦ 

♦. TABLE .♦ 



n 



♦ ZERO ACCUHCTR ♦ 
♦RELEASE & PRIMES 

->^PN/GNFWDBTB ADD^- 
♦1 TO PROCBL CTR^ 

♦ * 



* * 

* ZERO CTR IN ♦ 
>♦ PNFWDBTB OR ♦ 

♦GNFWDBTB TABLE * 

* * 



♦DEPLD11 * 

*_*_*_*_*_*_♦_♦_* 

>* * 

♦ PROCESS LABEL ♦ 

* * 

* 

B1 ♦ 
* * 
♦♦** 



I 



■>* 



♦02 ♦ 

* A1^ 

♦ ♦ 



.♦ 


ANY CO ♦. YES 






♦ 


.♦ 




♦. .♦ 




♦. .♦ 




♦NO 




L>^***% 




♦ C2 ♦ 




* ♦ 




♦♦♦♦ 



iii^ii^**f^2********** 



*4c4[«*4c«:«4:*^4:4c*4'«^ 



L 



♦♦♦♦ 
>♦ ♦ 

* Bl ♦ 
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Chart OD. Phase 62: SE6000 (Part 2 of 2) 



***** 

♦02 * 
♦ A1* 



* ♦_ 
* H6I»00 * 

->*PHOCESS ADDRESS* 

* REFEREHCE * 

* * 

*il,*i^,t'*i^***:^^4i:ti*** 



L 



*♦*♦ 
>*oi * 

* B1 ♦ 



IP KOT PEHHANENTLY 
ASSIGNED TO A 
REGISTER BDILD 
DRPTBL AHD DRLPTBL 
FOR REGISTER 
OPTIMIZATION 



*.YN REFERENCE .*- 



.♦C004 SWITCH*. YES 



* Bl * 

* * 
**** 



*****j)2********** 



*4'*4c4:B3********** 

* TURN OFF COOa * 

* SWITCH; ENTER * 
->* CORRENT BL IN ♦- 

* BLVNTBL 



n 



**7^**:i^**m************* 

♦01 * 
* Bl* 



n 



*******;ti************** 
♦01 * 
* Bl* 



.*PEHMAN-*. 
.* ENTLY ♦ 
->*. ADDRESSABLE 



**i^*ilf^2********** 



n 



*YES 

>*01 * 
* Bl * 



**ili*****************^i* 
♦01 * 
* Bl* 



*. MACRO ELEMENT. *- 



#>|c4c**p2********** 



* MACRO * 

>* PROCESS MACRO 
* ELEMENTS 



n 



*N0 

L**** 
>*01 * 
* B1 * 



*01 * 
* Bl* 
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Chart PA. Phase 63 (ILACBL63) : Overall Logic 



* ILaCBL63 * 

♦ * 



*:4c4c*4cB2*'^*******'*' 



IF OPT IS SPECIFIED 



^iitim************** 



**4iHi*Q2********** 



«**i|ci|cc3>('4'*****4'** 



«*)|c4c*4c*4c*4c«4c ****>»: 



*.IS IT A MACRO. *- 



.♦IS IT AK OP*. YES 

*. CODE .* 

♦. .* 



4c4[*i^**4i4c***4c****« 



* BRAHCH TO ♦ 
>* APPROPRIATE *- 

*HACRO ANALYZER ♦ 

* * 



F0DRTY8 

* * 

* BRANCH TO * 
>*APPROPRIATE OP *- 

* CODE ANALYZER * 



Jll^llt^C**^*^^***!!^**** 



♦ * 

* BRANCH TO * 
>* APPROPRIATE * > 

♦ C007 ANALYZER * 

* ♦ 



♦RETURN TO PHASE* 
->♦ 00 * 



* * 

* BRANCH TO ♦ 

* APPROPRIATE * 

* ANALYZER ♦ 

* * 



NOTE: VARIOUS ANALYZERS 
ADD TO ACHCTR AND LOCCTR 
AND PRODUCE PROCEDURE 
Al-TEIT 



SEE CHARTS 
PB-PF 



♦OTHER PROCEDURE* 
-* A-TEXT ♦ 

* ANALYZERS ♦ 

* * 
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Chart PB. Phase 63: BRANCH 



* >«^ 

♦ BRANCH ♦ 

« * 



ENTER FROH 

BRANCH TABLE 

TO PROCESS BRANCH 

IHSTROCTIONS 



* i 

* B5 ^ 



DIFFERENT 
. PROC 
♦.BLOCK.* 



*«4:4<* B34C * 4c*>|:4c**i|[4c 

* * 

* CALL PHASE 00 ♦ 
->*T0 WRITE BRAHCH*- 

* INSTRUCTION ♦ 

* * 



4c«***C3********** 

* GENERATE * 
♦INSTRUCTION TO * 

->♦ LOAD NEH * 
♦PROCEDORE BLOCK* 

* INTO REG 11 * 



«itc4i«4cB4******* *** 

*ADD 2 TO ACMCTR* 

♦AND LOCCTR FOR * 

■>♦ THIS ♦- 

♦ INSTRUCTION * 

♦ ♦ 



1 



SEE CHART 
PA01C2 

* * 
->* RETURN TO GET * 

* * 



♦CHANGE RR-TYPE ♦ 

* BRANCH ♦ 
♦INSTRUCTION TO * 

* HI-TYPE ♦ 

* * 



*«4c**E2*****^^**^ 

♦ CALL PHASE 00 ♦ 

♦ TO WRITE NEW ♦ 

♦ BRANCH ♦ 

♦ INSTRUCTION ♦ 

♦ * 



4:*4ei|:«p2********** 

♦ADD 4 TO ACMCTR^ 
♦AND LOCCTR FOR ♦ 

* THIS ♦ 

* INSTRUCTION ♦ 

* * 



♦ CALL PHASE 00 ♦ 
♦TO WRITE CO OR ♦ 

* CC BLT WITH * 

♦ PN/GN HUHBER ♦ 

* ♦ 



u 
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Chart PC. Phase 63: GNDEF 



i|i*4c4cA2'('*****>l'** 



^^^itc^^c^'*:**^^**^^' 



* * 

♦ENTER DISPL IH * 
*PEOCEDDRE BLOCK* 

* INTO GHLBDTBL * 

* * 



*■ * 

* CALL PHASE 00 * 

* TO WRITE GN * 

* DEFINITION * 

* * 



♦ RLDSORT * 

♦MAKE RLD ENTRY ♦ 
->♦ IN RLD TABLE ♦- 

♦ FOR THIS GN ♦ 

* * 



♦ RLDSORT ♦ 

♦MAKE RLD ENTRY ♦ 
->♦ IN RLDTBL FOR ♦ 

♦ THIS GN ♦ 

* ♦ 



* 1 

♦ F5 



itiit,*itiil,Y3********** 



4c4c***i^***>»:*«**««* 



it:*^i*itiTpti*****'i^**** 



■|c)tc:»*4c4E**4c4c**4'«>«c«:>l' 



• 

1 



SEE CHART 
PA01C2 

* * 

->♦ EXIT TO GET ♦ 



G2 ♦. 
.♦ SAME *. 
.♦ PROCEDURE ♦. YES 
♦.BLOCK AS LAST.^- 



"1 

* * 

* F5 ♦ 

* * 



****'^;i2********** 



**:^iHt^f******iti****^ 



u 
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Chart PD. Phase 63: 



PNDEF 



* * 

* PNDEF * 

* * 



* * 

* ENTER DISP IN ♦ 
♦PROCEDDRE BLOCK* 

* FROM PNLBDTBL * 

* * 



♦ * 

♦ CALL PHASE 00 * 

♦ TO WRITE PN ♦ 

♦ DEFINITION * 

♦ * 






HEW *. YES 

PROCEDDRE .* 

. BLOCK .* 



H2 *. 
.* ♦. 
.♦ ♦ 

*.C2 SWITCH ON 



*■ * 

* * 

->*ZERO OUT ACMCTR*- 

* * 

* * 



* * 

* RLDSORT ♦ 

->♦ HLD FOR *- 
♦PROCEDURE BLOCK* 

♦ ♦ 



* ♦ 

* REPLACE OLD * 
->*PROCEDORE BLOCK* 

* WITH NEW * 

* ♦ 



♦ * 
* RLDSORT * 

>* MAKE PN RLD * 
*ENTRY IN RLDTBL* 

♦ * 



««:tt4:*G3********** 

♦ * 

♦ RLDSORT * 

>* MAKE VN RLD * 
*ENTRY IN RLDTBL* 

* * 



]tt:»*4<>t:H3********** 



4: «*#«:♦***>•'* *4c ♦ ♦*:«' 



u 









.* SAME * 


. YES 






* 


*. .* 
*. .* 

*N0 


■J 

♦ ♦ 


**** 










* Kft * 


« * 










« * 


* K1 * 










**** 


* ♦ , 












4>4'4c>*:*K1********** 




K2 *. 




* 


* 




.* ♦. 




♦ZERO PROCEDURE 


* 


YES 


.♦LAST JRAHCH* 


. NO 


♦ BLOCK 


*< 




. CONDI' 


CIOHAL 


.* > 



♦♦♦* 

* 1 

* K4 
♦♦** 



*-! 



**it^*^f^2********** 



^it^*4i^^*^,:^****^i***^i|^ 



L 



:tc:(i]|c**:(c4:4[*4c*4c«4:4E#« 



* EXIT TO GET * 

* ♦ 
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Chart PE. Phase 63: 



ADREF and ADINCR 



****A2********* 

* * 

* ftDREF * 

* ♦ 



ADDRESS 
ALREADY 
LOADED 



* CALL PHASE 00 ♦ 

* TO WRITE ♦ 

* INSTRUCTION * 
♦WITHODT CHANGE * 

* * 

♦*** 

* D2 ♦ 

SEE CHART 
PA01C2 

* * 

* RETURN TO GET * 

* * 



->*. BL OR DLL 



* * 

* CALL PHASE 00 * 
->*T0 WRITE ELT AS* 

* DO ELT * 

* * 



* SET FLAG TO * 

* INDICATE LOAD * 
♦INTO Ria OR R15*<- 

* FOR SB ♦ 

* * 



* * 

* CALL PHASE 00 * 

* TO WRITE * 

* ELEMENT * 

* * 



** 4E 4: 4c E 3 '•"•'**'*' >t=* *■•")' 

♦ADD a TO ACBCTR* 
♦AND LOCCTR FOR ♦ 

♦ LOAD ♦ 

♦ INSTRUCTION ♦ 

« * 



L 



L 



♦ ADINCR ♦ 

* * 



♦ * 

♦ ADD INCREMENT ♦ 

♦ TO VALUE IN ♦ 

♦ DIPSAVE ♦ 

♦ * 

4c >|c * * i»[ 4c 4c 41 « « 4c 4c 4> 4^ * * 4: 



)|i«4c4'4!H3^*^^^^^^^* 



4c 4c 4c 4c 4c J2^^^^^*^^^^ 
4c 4c 

♦ADD BYTE ACMCTR^ 
♦FOR EACH UNIT >♦ 
♦ 1095 ♦ 

4c 4c 

4c 4c 4c 4c 4c 4c 4c 41 4c 4c 4> 4< **4c 4c 4c 



4c4c4c4c4cK2^^^^^^^^^^ 
4= 4c 

♦ADD ^ TO ACMCTR^ 
♦FOR EACH UNIT >♦- 
♦ 4095 ♦ 

4c 4c 

4c4c4c4c4c4c4c4c4:4>4c«4c4c4c*4c 



4. 4c 4c 4c 4c 4c*4c 4c 4c 4c 4c 4c 4> 4c 4c 41 



4c4c#4:4cJ34c4c4c4c4c4c4c4c4c4: 
4c 41 

4c 4c 

->♦ ZERO DISPSA7E ♦ 
4c 4c 

4c 4c 

4c4c4>4c4c4c>^4c4c4c4c*4c#4c4c* 



4c4c4c4c4cK3^4c4c4c4c4c4c4c4c4c 
4c 4c 

♦ CALL PHASE 00 ♦ 

♦ TO WRITE ♦- 

♦ ELEMENT ♦ 
4c ♦ 

4c4c4c4c4c4c4c4c4c4c4c4c4c4c4:4c4t 



SEE CHART 

PA01C2 

4.4c4c4cK4^^^^^^^^^ 

4c ♦ 

->♦ RETURN TO GET ♦ 

4c 4c 

4t4c4c4c4c4c4c4c4c4c*4c4c *4c 
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Chart PF. Phase 63: C1REF, PNREF, and GNREF 



♦ *. 

♦ C1HEF * 

♦ * 



B1 *. 

.* PROC ♦. 
♦ BLOCK OF ♦.NO 

REF SAHE AS .* 

*. CORREHT .* 



* GENERATE LOAD ♦ 
♦INSTHOCTION FOR* 

>* HEW PROCEDURE ♦- 

* BLOCK ♦ 

* * 



*^it:itii*^2********** 



4l4c4:*4i4e**4i*4c**4'4:** 



* * 

* GENERATE LA * 
*IHSTHOCTION FOR* 

* REFERENCE * 

* * 



4c4i)tc4i «J) -[:» 4C4C** ***** 

*GENERATE C8 OR * 

* CC ELT FOR * 

* PROCEDURE * 

* A 1 -TEXT * 

* * 
***************** 



****«£ I**********: 



*9|c:*«*4c*4c********* 



SEE CHART 
PA01C2 

**i|[*p 1****41*4:** 

* * 

* RETURN TO GET * 

* * 

*********** :|ci^** 



****G 1********* 



****£3********* 

* ♦ 

* PNRBF * 

* * 
*************** 



ENTER FROM 
GET TIA BRANCH 
TABLE 



*****P4********** 



***************** 



*****G4******* *** 



.*C001 SWITCH*. NO 



*************** 



.*C001 SWITCH*. YES 



*****P5********** 


* CALL PHASE 00 * 


* TO WRITE * 


->* ELEMENT ON * 


* SYSD02 * 


* * 


***************** 


**** 




* * 




* G5 * 




* *_> 




**** 






SEE CHART 


'' PA01C2 


****G5********* 


* * 


->♦ RETURN TO GET * 


* * 


*************** 



***************** 



PFOlAl 
*****^H2********** 
*C1REF * 



PF01A1 
*****H3********** 
*C1REF 



***************** 



***************** 



*****J1********** 



*SATE IN SAVETBL* 



***************** 



u 



SEE CHART 
V PA01C2 
****K 1********* 

* * 

* RETURN TO GET * 

* * 
*************** 



Flowcharts 231 



Licensed Material - Property of IBM 



Chart OA. Phase 6^ (ILACBL64) : Overall Logic 



* * 

* ILACBL6U * 



* ♦ 

♦INITIALIZATION * 

* OF OPTIONS, ♦ 

* SWITCHES * 

* * 



NE01A1 
♦PDATBX * 



ENTER FBOM 
PHASE 00 
IF OPT IS 
SPECIFIED 



THIS ROOTINE PROCESSES DATA A-TEXT 
ELEMENTS IN THE SAME WAY THAT 
PDATEX OF PHASE 60 DOES 



itfilf:^:************** 



ND01A1 
♦SE6000 



i(c*4c4c*4'***4:>»:4c**4'*« 



* GENERATE CODE * 

* FOR INIT2, ♦ 

* INIT3, AND * 

* INIT1 ♦ 

* ♦ 
***************** 



*****P1********** 



THIS ROUTINE PROCESSES PROCEDURE A1-TEXT 
ELEMENTS IN THE SAME HAY THAT ROUTINE SE6000 
OF PHASE 60 PROCESSES PROCEDURE A-TEXT 
ELEMENTS SPECIAL PROCEDURE A1-TEXT PROCESSING 
IS DESCRIBED IN CHART QB 



***************** 



****G1********* 

* EXIT TO PHASE ♦ 

* 00 * 

* * 
*************** 
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Chart QB. Phase 64: ADREF, RCU, RC8C, and RD001 



* * 

* ADREF * 

* ♦ 

4c * ♦^i * *4i « ♦♦■I- :«<* * * 



m**:ii*B'\********** 



♦♦♦♦A3********* 

♦ ♦ 

♦ HC8C ♦ 

♦ ♦ 
^^^^(♦♦♦♦♦♦♦♦♦♦^ 



^n^:^nn^■Q2********** 



i^^^^i^^i^'**********: 



**4c4c*Cl^^******^* 

* GENERATE LOAD * 
*IHTO R1U OR R15* 

* OP BL BLL SBL * 

* SBS * 

* ♦ 



4i«:ti3«c4'Dl^^^^****** 

*PDT R1U OS R15 * 

* IH BASE PIELD * 

* AHD ♦ 
*DISPLACEHENT IH* 

* DISP FIELD * 
^^^^^♦♦♦♦♦♦♦♦♦♦♦♦^ 



SEE CHART 



^^'♦♦E !♦♦♦♦♦♦♦♦♦ 

♦ RETORH TO * 

♦ HAIHLIHE * 

♦ ♦ 



«*4c*«4[4c««**«*«4c^^ 



**«*«C3********** 

* GET DISPLACE- * 

* MEHT OFF R11 * 

* FROM LBDTBL * 

* FILL DISPL IN * 

* PRINT AREA * 
4c ^'♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



4c4c^^D3*«^^^^*^^ 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 

♦ ♦ 



♦ ♦ 

♦ RCU * 

♦ ♦ 



*FIND DISPLACE- * 

♦ MENT OF PRO- * 

* CEDDRE BLOCK * 

* CELL IN PGT * 

♦ ♦ 
^^'♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



^♦♦♦♦H1^^^^^^^^** 

* GENERATE BASE » 

* AHD DISPLACE- * 

* MEHT BLOCK * 

* NOMBER ♦ 

* ♦ 
He lie 4c ^^'♦♦♦♦♦♦♦♦♦♦♦^ 



SEE CHART 
QA01D1 
****j -!♦♦♦♦♦♦♦♦♦ 

* RETORH TO * 

* MAINLINE * 

* ♦ 



♦ ♦ 

♦ RD001 ♦ 

♦ ♦ 



4<4c4c^^G3********** 

* FILL IN BASE * 

* AHD DISPLACE- * 

* MEHT OOTPDT * 

* AREA * 

* * 



SEE CHART 



4c«4c^H3^^^^^**** 

♦ RETORH TO * 

♦ MAIHLIHE * 

♦ ♦ 

4c4c4c^^^^^^^^^^^^ 
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Chart RA. Phase 65 (ILACBL65) : Overall Logic 



* *. 

* ILACBL65 * 

* * 



PH65 

* PHASE * 
♦INITIALIZATION * 

* PBIME TABLES * 
*INIT DATA AREAS* 

* * 



♦ DETERHINE OP- ♦ 
*TIONS IN EPPECT* 

* SIMDHP STATE *- 

* FLOW ♦ 

♦ * 



ENTER PROH 
PHASE 00 IF 
SYHDHP. STATE 
OB FLOW IS 
SPECIFIED 



C3 


*, 






* 


1^ 










* 


. YES 


FLOW 


ONLY 
.♦ 


* 


•'-I 


*. 


.* 




**♦* 




*N0 




» F3 * 

♦ ♦ 

♦**♦ 



A BRANCHING TABLE 
IS DSED TO DIRECT 
CONTROL TO ONE OF 
SEVERAL ROUTINES 
FOR HANDLING EACH 
DEBDG TEXT ELEMENT 
CONTROL RETURNS 
TO THIS ROUTINE 
AFTER EACH ELEBENT 
IS PROCESSED 
UNTIL END-OF-FILE 

sysoo2 



RDF2 i 
GETF2 V 

* RD ELT AND * 

* BUILD TABLES * 
♦FOR SYHDHP AND ♦- 

♦ STATE ♦ 

I* * 



WRITE CARDINDX 
PROCINDX, 
SEGINDX TABLES 
ON SYS006 



.♦ SYHDHP 
->♦. OPTION IN 
♦. EFFECT . 



♦ E0F0N2 ♦ 

♦ COLLECT INFO ♦ 
-♦FOR PROGSDM TBL^ 

♦ WRITE DEBUG ♦ 
♦FILE ON SYS005 ♦ 



«)|c««4cD4^^^^^^^^*^ 
♦SORT SEGINDX BY^ 

♦ ASCENDING ♦ 
->♦ PRIORITY AND ♦ 

♦ PUNCH INTO ♦ 
♦OBJECT MODULES ♦ 

4[ 4:44: 4tit: * * * 4c * * * * 3|ci|c* 



* * 

* F3 ♦ 

* * 



4i4c>t:4i*F3«* 

♦ PNCHS W * 

♦PUNCH INFO FOR ♦ 

♦ TGT PUNCH END ♦ 

♦ CARD ♦ 

4: * 



4<4'>|i***4c* 



♦ COPY ♦ 

♦ INDEPENDENT ♦ 
->^SEGHENTS FFROH ♦- 

♦ SYSOOa TO ♦ 

♦ SYSLNK ♦ 

4c4t4:*4c4:Xc4:*4c4:«*»«*i|c 



4c 4<4t«4:HIt ♦♦♦♦♦♦♦♦♦♦ 

♦WRITE PHASE AND^ 

♦ INCLUDE CARD ♦ 
->♦ FOR SORT ON ♦ 

♦ SYSLNK ♦ 



)|c4c4:4:*4c#4c*4c4c)|c4c*4:3|c* 



4c4c4c4c4cJ34:4c>ic4c4:**4c)|c4> 



♦RELEASE TABLES ♦ 



4:4c4c4c«*4c4:i|c4c>^4c4c4c4c4c4c 



4:4c4c4cl^34c4:4c4c4c4c44c4: 

♦ EXIT TO PHASE ♦ 

♦ 00 * 

♦ ♦ 
4:4ci^4c*4>4c4c4c4:4c4<*4c4c 
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Chart RB. Phase 65: Debug-text Element Processors (TENPROC, TWENPROC, GTE010K) 



* * 

* TENPROC * 

* * 



ENTER PROM GETP2 
VIA BRANCH TABLE 
SEE CHART RA01D2 



itlHi,tt:ti:ti'Q2********** 



4[*4c*4[ 4c 4c****4c 4^***4: 



4c*4c 4: )^C !'•"•'**=<"*'**** 

* CALCDLATE * 

* RELATIVE ADDR * 
*0P CARD/VERB IH* 

* FRAGhBNT ♦ 

* * 



* TRENPROC * 

* ♦ 



♦ * 

♦CALCULATE DDHMT* 

♦ ADDR WITHIN * 

♦ FRAGBEHT * 

♦ * 



.♦ DDMHY ♦. N 
♦.ADDRESS < 64K.^- 
♦. BYTES .♦ 



ENTER FROM 
GETP2 VIA 
BRANCH TABLE 
SEE CHART 
RA01D2 



RBOIES 

♦GTEQ10K ♦ 

♦—*—*—*_*_♦—♦_♦_* 

->♦ END FRAGMENT ♦- 

♦ BEGIN NEW ♦ 

♦ FRAGMENT ♦ 



* * 

♦ RELATIVE * 
->+ADDRESS EQUALS ♦ 

♦ DUMMY ADDRESS ♦ 

* * 



RB01E5 
♦GTEQ10K ♦ 

->♦ END FRAGMENT ♦ 

♦ START NEW ♦ 

♦ FRAGMENT ♦ 



4i*4t**E !♦♦♦♦♦ ♦♦♦♦♦ 

♦ TXPNCH ♦ 

♦ENTER PREVIOUS ♦ 

* PROCTAB ENTRY ♦ 

* ON FILE ♦ 

* * 



it:*4'^:nti-p2********** 



*««***i|[4i:t:«i|t*4c**]»« 



♦ ♦ 

♦ MOVE RELATIVE ♦ 

♦ ADDRESS INTO ♦ 

♦ PROCTAB AREA ♦ 

♦ * 



♦ TXPNCH ♦ 

♦ENTER PREVIOUS ♦ 

♦ PROCTAB ENTRY ♦ 
♦ON FILE SYSOOS ♦ 

* ♦ 



RB01E5 

♦GTEQ10K *\ 

♦END SEGMENT BE-^ 
♦GIN NEW SEGMENT^ 
♦ G FRAGMENT ♦ 

4:**************** 



^^^^'^[FS*!^***^***^ 



***4'>C**4<***4c4c*>|:4c4c 



SEE CHART 
RA01D2 

* * 
♦RETURN TO GETF2^ 

♦ ♦ 



♦ * 

♦ GTEQIOK ♦ 

♦ ♦ 



♦ ♦ 

♦PUT DUMMY ENTHY+ 

♦ INTO PROCTAB ♦ 

♦ TABLE ♦ 

♦ * 



♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ * 



* * 

♦TURN OFF DISCSW^ 
♦SWITCH TURN OH ♦ 
♦CRDINXSW SWITCH^ 

* * 



SEE CHART 
RA0tD2 
>|i*4<4cK !♦♦♦♦♦♦♦♦♦ 
♦RETURN TO GETF2^ 

♦ RTNE ♦ 

♦ * 
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Chart SA. Phase 61 (ILACBL61) Overall Logic (Part 1 of 3) 



* *. 

* ILACBL61 * 

* ♦ 



>tc«*4c4[B 1<i'>t'**4' "•"•"**<•= 



♦INITIALIZATION 



>|citc##:|c>|c4[«4c:»>|c«>|c«*** 



*■ GETALL ♦ 

* GET MAXIMOM * 
♦AMOUNT OF MAIN * 

* STORAGE * 

* * 



ENTER FROH 
PHASE 00 
IF XSEF OH 
SXREF IS 
SPECIFIED 



*. SXREF BIT ON 



UH .^ 1 



*. 


.♦ 


***** 




* * 


^NO 


♦02 ♦ 




♦*♦* 

1 




* 




* 
READ D] 


♦EOF 

2F-TEXT 

♦ A 


*****-^2********** 
♦TORN ON BIT TO ♦ 
♦ INDICATE ALL ♦ 
->♦ DBF-TEXT HAS ♦ 
♦BEEN PROCESSED ♦ 



^i**i^**********it:iti 



F1 ♦. 

.♦ NAME ♦. 

.♦ PROCESSED ♦. 

.IN LAST CYCLE. 



4c«4c4c4:)|c4c4c4c)ac«*4c4:)^it<* 



L, 



n 



♦ A3 
*♦♦♦ 

**^i*^ij^2********** 
* BSEARCH ♦ 

♦ LOCATE DATA ♦ 

♦ RECORD BY ♦ 

♦ BINARY SEARCH ♦ 

♦ * 
i^^^m************** 

**** 

♦ * 

♦ B3 ♦ 

♦ * 
*♦*♦ 



.♦ HILL REF ♦. YES 

♦. FIT IN DATA .♦ 

♦. REC .* 



*^i*it.*'QH*:t:***it:**** 



u 



.♦REF FIT IN ♦. YES 

-♦.LAST OVERFLOW. ♦ 

♦. RECORD .♦ 



.♦IS OVERFLOW^. NO 

SPACE .♦ 

♦. AVAILABLE. ♦ 



***************** 

**** 

.♦ ♦ 

♦ HI ♦ 

*****QH********** 

* * 

♦ INSERT REF IN ♦ 
->♦ LAST OVERFLOW ♦ 

♦ RECORD ♦ 

* • 

*:il,***i^****n^****** 



u 



♦**♦ 

^m***'OH********** 
* SPLITRTN ♦ 

♦ SPLIT HIGHEST ♦ 
->♦ SODRCE ORDER ♦ 

♦ DATA RECORD * 

♦ * 
*iti*************** 



*itHlf**-£2********** 

♦ ADD NEW OVER- ♦ 
♦FLOW RECORD TO ♦ 

* CHAIN AND ♦ 

♦ INSERT REF ♦ 

* * 
*iti*************** 



u. 



**^i**Q2********** 



**** 

* * 

* HI ♦ 

* *. 
**** 

*,ti:Hill'\^i*********^c 



READ REF-TEXT 



****if**i)i****H:*** 



J1 ♦. 

.♦ ♦. 

.♦ ♦. 

.DATA NAME REF. 



.♦ DATA NAME ♦. NO 
BEING 
♦.PROCESSED. 



^ ^» **** 

♦YES ♦ ♦ 
I ***** HI ♦ 
L_>* ♦ ♦ 
♦ A3 ♦♦♦♦♦ 



n 



**:ti**:^^**************^L 



**** 



■-l 



:^^f.*^2*********** 

PRINT NAME 
♦DEFINING CARD ♦ 
-> NDM AND REFS ON — 
♦ SYSLST ♦ 

*1i:*ilf**:ti*******iH* 



J2 ♦. 

.♦MATCH- ♦. 

.♦ ING PROC ♦. 

. NAME BEING . 

♦. PROCESSED. ♦ 

♦. .♦ 

♦. .♦ 



H3 ♦. 

.♦WAS IT ♦. 

.♦ LAST NAME ♦ 

->♦. PROCESSED IN 

♦. CYCLE .♦ 



*:ilL***J2********** 



♦ *** 

* * 

* HI ♦ 

* * 
♦*♦♦ 



***************** 

**** 

* 
H2 ♦ 

**** 



u 



*******ie 

* * 

♦ LOCATE DATA ♦ 

♦ RECORD VIA ♦ 
♦DIRECT LOOK UP ♦ 

* ♦ 

***iti*itiiti**:tf^fitiitiifilf.*i): 

**** 

* 

B3 ♦ 
**** 



u 



.♦ HAVE ALL 
->♦. DEFS BEEN 
♦.PROCESSED. 



*****jH********** 

♦ * 

♦ SAVE HIGHEST ♦ 

♦ NAME JUST ♦< 

♦ PROCESSED ♦ 

♦ ♦ 
*iti*************** 



* * 

♦CLOSE REF-TEXT ♦ 

♦ FILE RESET ♦ 

♦ SWITCHES ♦ 

* * 
**iK*iie*^i******i^it=** 



*****J^***iHli***i^* 



**********:ti^i^,1Hi:tiiti 



^**ilfY:5*******'*'* 
♦RETURN TO PHASER 

* CO ♦ 

* * 

4c 9tC9|C««4[*l|c «:***«*« 



u 
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Chart SA. Phase 61 (ILACBL61) Overall Logic (Part 2 of 3) 



*♦♦♦ 








♦ * 






♦ Al ♦ 






* ♦ 1 






^^^^J^l*********.!!* 


*****I^2********** 






♦ TORN OH BIT ♦ 


* 


♦EOF 


♦ INDICATING ♦ 


, ^> REiD DEF-TErr 




— >♦ DEF-TEIT ♦- 


* * 


♦ PHOCESSED ♦ 








*i****************** 




i|i*4c*^*****«4:****4' 


*02 ♦ 








* A1» 








* * 








4^ 
















«♦. 






Bl *. 






.♦ »AS ♦. 






.*HaBE BEING * 


. YES 




♦.PHOCESSED IN 


•'-I 




♦.PREVIOUS .* 
♦.CYCLE.* 




♦ . .* 


♦ ♦♦♦ 




♦HO 


* ♦ 








♦ Al ♦ 








* * 








♦♦♦♦ 












.♦. 






CI *. 






.♦ ♦. 






.♦ IS HAIN ♦ 


. YES 




♦. STORAGE 


■•-1 




♦. PILLED .♦ 




*♦. .♦' 


**** 




♦HO 


♦ ♦ 








♦ A3 ♦ 


**♦♦ 






♦ ♦ 


♦ ♦ 






**** 


♦ D2 ♦ 


,■■ 






* ♦ ! 

*♦♦♦ 1 


Dl ♦. 




l^i^:^i*^i^J^2********** 


.♦ ♦. 




♦ ♦ 


.♦IS DBF FOR ♦ 


. YES 


♦FOEHAT DATA REC^ 


♦. DATA 


NAHE 


.♦ 


— >♦ FOB DATA HAHE ♦- 



n 



**** 



♦ CHAIHTRH ♦ 

♦ CHAIN DATA: ♦ 
->^PROC DATA HECS ♦- 

♦ IN ASC e DESC ♦ 

♦ SOURCE ORDER ♦ 
*:ti*i^4:*** ********* 



♦ INITRTN ♦ 

♦IHITIALIZE TREE^ 

->♦ STRUCTURE FOR ♦- 

♦TOURNAHENT SORT^ 

* * 



♦ COMPLETE ♦ 

♦SELECT H LOWEST^ 
->♦ ALPHABETIC ♦ 

♦ UNPROCESSED ♦ 

♦ NAMES ♦ 



♦ EXHAUST ♦ 

♦ REMOVE NAMES ♦ 

♦ FROM TREE ♦ 

♦ STRUCTURE IN * 

♦ ALPHA ORDER ♦ 



*****C5********** 

* BDILDRTH ♦ 

♦ BUILD SEARCH ♦ 
♦REC TABLES FOR ♦ 

♦ DATA RECS ♦ 

♦ ♦ 

♦♦♦♦ 

♦ ♦ 

♦ D5 ♦ 

♦ ♦. 
**** 



El ♦. 

.♦IS THIS^. 
FIRST 
PROCEDURE 
. NAME 



*. 



.* 



***iiti**^^:ti********* 



♦ CHAIHRTN — ♦ 

♦CHAIN DATA NAME* 
->♦ DATA RECS IN ♦ 

♦ ASC & DESC ♦ 

♦ SOURCE ORDER * 
***************** 



.♦ IS THIS ♦ 


. YES 




►♦.FIRST NAME OF 


•■-1 




♦. A PAIR .* 
♦. .♦ 




♦. .♦ 


♦*** 




^^HO 


♦ ♦ 








♦ Al ♦ 








* * 








**** 




4:*««*£3]|i«4c3^4t*4c*«* 


*itf**i*'Eti********** 


* 


* 


♦ ALFASRCH ♦ 


♦COMPARE NAMES; 


* 


♦ SEARCH FOR ♦ 


♦ INITIALIZE 


* 


♦ MATCHING DATA ♦<- 


♦ CONTROl 


. RECS 


* 


♦ NAME DATA REC ♦ 



READ REF-TEXT 



*4i:4c4i«4c****4c*4'4<4e« 



~1 

***** 
♦03 ♦ 
♦ Al^ 



^^'^^^^^^•'♦♦♦♦♦♦♦♦^ 



L 



:ti:i^1fi^:^ilL^fitim******** 



**** 
->♦ * 

♦ Al ♦ 



^^(♦♦♦F 1**********. 



***************** 



u 



♦ INITRTN ♦ 

♦INITIALIZE TREE^ 

♦ STRUCTURE FOR ♦ 
♦TOURNAMENT SORT^ 

* * 
***************** 



♦ * 
* EXHAUST ♦ 

♦ PROCESS DATA ♦- 

♦ NAMES ♦ 

♦ ♦ 



♦ BUILDRTN ♦ 

♦ BUILD SEARCH ♦ 
-* REC TBLS FOR ♦ 

♦DATA NAME DATA ♦ 

♦ RECS ♦ 
♦♦♦♦*♦*♦♦♦*♦♦*♦** 



nu 

**** 

* * 

♦ D5 ♦ 

♦ ♦ 
**** 



FU ♦. 
♦ IS ♦. 
HATCH IN ♦. 
.MAIN STORAGE .♦<- 
THIS .♦ 
CYCLE. ♦ 
♦. .♦ 
♦YES 



PROCESSING CONSISTS IN 
REMOVING DATA NAMES 
FROM TREE STRUCTURE 
IN ALPHABETIC ORDER 
FROM HIGH TO LOW 



:llfi^***.Y5********** 

♦ ALFASRCH ♦ 

♦ SEARCH FOR ♦ 
-♦ MATCHING PHOC ♦ 

♦ NAME DATA REC ♦ 

♦ ♦ 



^^^♦♦♦G5^^^^ ♦♦♦♦♦♦ 



♦ WILL REF ♦. YES 

FIT IN DATA .♦ 

♦. REC .♦ 



.♦REF FIT^. 
.♦ IN LAST * 
♦.OVERFLOW REC 
♦.IN CHAIN .♦ 



i^m*************** 



u 



->♦ 



.♦IS OVERFLOW*. 

SPACE .♦ 
♦.AVAILABLE.* 



♦ ♦ 

♦ INSERT REF IN ♦ 
->♦ LAST OVERFLOW ♦ 

♦ REC ♦ 

♦ ♦ 
^^(^^^^^^^'♦♦♦♦♦♦♦♦^ 

**** 
* 
D5 ♦ 

**** 

♦ ALFASPLT ♦ 

♦ SPLIT HIGHESTv^ 
->^ALPHABETIC DATA^ 

♦ REC * 

♦ * 



* ADD NEW * 
*OVERFLOW REC TO* 

* CHAIN AND * 

* INSERT REF * 

* * 
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Chart SA. Phase 61 (ILACBL61) Overall Logic (Part 3 of 3) 



***** 

♦03 ♦ 
* A1* 



*****;^1********** 

* REVEBSE ♦ 

* ALPHABETIC ♦ 

* ORDER OF DATA ♦ 

* RECS (LOW TO * 

* HIGH) * 
***4c4<************ 



***Q -|«********** 
WRITE NAME 
*DEF CARD NOH ♦ 
REFS ON SYSLST 



)tc4:***](c4t 4c 4c ******* 



CI *. 

.♦HIGHEST*. 
* NAHE ♦ 

PROCESSED 

♦=. THIS .♦ 

♦. CYCLE. ♦ 

♦ . .♦ 

♦YES 



*****C2^*^**^«**^ 



***************** 



HAVE ALL ♦. 
DBFS BEEN . 
. PROCESSED. ♦ 



♦RETORH TO PHASER 

>♦ 00 ■ ♦ 

* * 

*************** 



*****£ 1********** 

* * 

♦ SAVE HIGHEST ♦ 
♦NAME PROCESSED ♦ 

♦ IN THIS CYCLE ♦ 

* * 
***************** 



«**«*F1********** 



***4i*4c*********** 



***4'*G 1********** 



♦RESET SWITCHES ♦ 



***************** 



L 



**** 

>^02 ♦ 
A1 
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Chart TA. Phase 70 (ILACBL70) : Overall Logic 



« 4I 4t« A. 1 * * "^ * '*"*"^ * * 

* ILACBL70 » 

* * 



EHTEH FROM 
PHASE 00 
IF THERE ARE 
ERRORS 



4c4c4'4t«B2**'l'******* 
4" ♦ 

♦ PROCESS AND * 
>♦ LIST ERROR ♦- 

* MESSAGES * 
4> ♦ 
*«4.***«**4[***4c*** 



* SET ERRTBL ♦ 

* COHTAINING * 
->♦ MESSAGES TO * 

* LOOK LIKE ♦ 

* BUFFER * 
*4c4c4c«4<«:«4c4ti|c**i|i)|[4i4i 



->* GET A RECORD * 



ilcitc*************^* 



:tiJti^-^2*********** 



♦RETURN TO PHASE* 
->* 00 * 

4i * 

4[*4c*4c**4c*4c4i4t4'4i4c 



4c]tc*4'**4c4'4c4c*4c4:**4c 



Fl *. 
E-TEXT 



4i***]^G 1*4:***4c*4:4c4c 



*:***4:4'*«*4'4'4t4t4c4c4[4c 
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Chart UA. DET-FOOT Subroutine^ Report Writer Subprogram 



♦*♦♦ 

* A4 



''-I 



* DET-RODT ♦ 

♦ ♦ 



* * 

* SAVE RETORN * 

* ADDBESS IN ♦ 

* REPORT-SAVB-1 * 

* ♦ 



nB01A2 
♦1ST-RO0T * 

* "generate ♦ 

* INITIAL ♦ 

* HEADINGS ♦ 



OC01A2 
*CTB-ROnT 



CALLED AS 
A RESULT OP 
A GENERATE 
STATEMENT 



INDICATES 
HONTB SHOULD 
APPEAR ON 
PRINTED DETAIL 
LINE 



GN=03a 



*****4c4c**4t* 



-*! GP.0001 



* GENERATE ANY *- 
♦NEEDED CONTROL * 

* HEADINGS * 



UD01A3 
*USH-ROUT * 

♦COMPUTE AND SET* 

♦ SUMS FOR THIS ♦ 

* DETAIL ♦ 



IN ORDER 

OP PINAL 

THROUGH 

HINOR HEADINGS 



INDICATES 
DAT SHOULD 
APPEAR ON 
PRINTED DETAIL 
LINE 



PI ♦. 
.* * 
.♦ 
*. PRSGRP=1 



UP01A2 
♦PGP 



itc^f*ili*Cfi*****'****'* 



♦ ♦*«***4'4:**4i****4i 



♦ * 

♦ SET DATA IN ♦ 

♦ MONTH AREA OP ♦ 

♦ LINE ♦ 

♦ ♦ 



B4 ♦. 

.♦ ♦. 

.♦ ♦. N 

-^. 6P.0002 = .♦- 

♦ . .♦ 

♦ . .♦ 

♦. .♦ 

♦YES 

1 '■ 
*«**«p(|*)|ci|c*:»4c* **4c 



♦;no 



UP01A2 
♦PGP-ROUT 



i|:*«4':|c**]|c:^>^4c]|[*4c*4c>f 



GN=0»t5 V UG01A1 
♦RLS-ROUT ♦ 

♦ DETERMINE AND ♦ 

♦ SET LINE ♦ 

♦ SPACING ♦ 



u 



)ti*«*«4c4c4c****4c]|i**i|c 



UG01A1 
♦RLS-ROUT ♦ 

♦ DETERMINE AND ♦ 

♦ SET LINE ♦ 

♦ SPACING ♦ 



u 



*«*«4c*4c4c4:**4ci»* **<» 



* «*4:*Q4«« * *4[4c« **^f. 



4c**i|ci|i4ci|i*«**4c4:* **4c 



GN=0a4 V UGOIAI 

♦RLS-ROUT ♦ 
*_*_*_♦_♦_♦_♦_♦_* 

♦ DETERMINE AND ♦ 

♦ SET LINE ♦ 

♦ SPACING ♦ 



u 



«*4c4c**4'****>tc4c* *♦♦ 



" DHOIAT 
♦WRT-ROUT 



«*]fc4c**4"|ci|c**4:>^* *4c«: 



♦ *. 

♦ RETURN ♦ 



TO NEXT 
SEQUENTIAL 
INSTRUCTION 
ADDRESS IS IN 
HEPORT-SAVE-1 
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Chart UB. 1ST-R0UT Subroutine^ Report Writer Subprogram 



♦ IST-ROOT *• 



* * 

* SaVE HETOHN ♦ 

* ADDBBSS IN ♦ 

* REPOET-SAVE-2 ♦ 

* * 



EHTERED FROM 
DET-RODT OR 
RST-ROOT 



IS THIS 

FIRST 

.GENERATE 



* ♦. 

* RETOHH ♦ 

* * 



GN=073 V UHOIAI 
♦WRT-HODT 



*)|E«**4[*« ^^C^'* *3||]|C«* 



**B2******* 



*********** 



imY2******* 



*4'*«*«4c«**# 



DI01A1 

:tiit!:tciHiQ2********** 

*RPH-RO0T 



4c4e«*****4'****«*4c* 



* ♦ 

* GENERATE ANY *- 

* OTHER HEEDED * 

* HEADINGS * 

* * 



)ti***J2********* 



4c4c>|t4c*«*4c««**4:4c* 
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Chart ac. CTB-ROUI Subroutine, Report Writer Subprogram 



* CTB-ROOT * 

♦ * 



« * 

* SAVE RETURN * 

* ADDRESS IN *- 

* REPORT-SAVE-2 * 

* * 



RETORH IS 
PROM THIS 
ROUTINE OR 
PHOH RST-ROUT 



**C2******* 



)|i4=4c*4c4c***** 



.*. 

D2 ♦. 

.*IS THIS*. 

.* STILL THE 

FIRST 

♦.GENERATE . 



4c4c£2******* 



4L4c>tc«*4c«:|c4c«# 



^ii^Ji2******* 



4t4c4'*4»«i«**>l'4< 



nJ0lA2 

* EXIT TO * 

* RST.ROUT * 

* * 



,* 



P2 *. 
♦CTL.LVL*. 

EQUALS *. NO 

CONTROL LEVEL.* 

*.FOR MONTE.* 



♦ , 



.♦ 



.* 



]|c4:G2******* 



)|c*4c4c4c«4[*4c*4' 



mitiY3******* 



*««4c**4t4:«4i4c 



nK0lA2 

* EXIT TO * 

♦ ROL-ROUT * 



.* CTL.LVL = ♦. TES 

*. CONTROL LEVEL.* 

*. POR DAY .* 



i»4c>|[4<*4>*«*^)|c#4:4c4: 



4c4iJ2*4<***** 
♦ * 

* SET GRP.IND * 
* SWITCHES TO * 



4c4c**«i([*>tc*4c4: 



UK01A2 
****K2********* 

* EXIT TO * 

* ROL-ROUT * 

* * 
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Chart DD. aSM-ROUT Subroutine^ Report Writer Subprogram 



* USH-ROOT * 



* * 

* SATE BETOHH ♦ 

* ADDRESS IN ♦ 

* REPORT-SAVE-2 * 
>t= * 
)K I*: 4c ^t 4c * * * * 4c Id * * * 41 4< 4' 



* * 

* ACCOHDLATE * 

* TOTAL OP ♦ 

* NO-PDRCHASES * 

* ♦ 

4: * * 4c4c 4c*>l' 4c i»:4c*4c4c4c 4c4c 



**^*^Lji2********** 



4c*]|c4c4c***4c4:4:4cA4c**4c 



«4c4c)tcE3*'('*'('*'t'**4' 

♦ ♦ 

♦ RETORN * 
» ♦ 

icitc^otclcitc^c^c^^c^^c^^itc 



TO 

ADDRESS IN 

BEPORT-SAVE-2 
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Chart IJF. PGF-ROUT Subroutine^ Report Writer Subprogram 



* PGF-ROUT * 

♦ * 



* ♦ 

* SAVE BETORH ♦ 

* ADDS IM ♦ 

* REPORT-SATE-U * 

* * 



C2 ♦. 
.♦ LINE *. 
.♦ CODHTER *. YES 

♦.IKDICATES END.* 

*. OF PAGE .♦ 



ENTERED FROH 
DET-ROOT, CTF-ROOT, 
LST-ROOT, OR CFF-ROOT 



OHOtAt 
*HRT-RODT * 

->♦ SKIP TO NEXT ~* 

* PAGE * 

* * 



it:*iti*Af****** 



OL01A2 

*ALS-ROnT 



iti*:¥*******'¥****** 



*tmi^ii^-p2********** 



itiit=************i^** 



OH01A1 
*WRT-ROUT 



IS PROGRAM 
EXECOTING 
A TERMINATE 
STATEMENT 



)|i*4c4[4:4c**4:**4i*4c>l'*4c 



H2 *. 

.* *. 

* * 

TER.COD = 2 



Ht^eitc* H3********* 



*3tti|c«4c4')|[i^*4:4[**^i»:4' 



TO ADDRESS 

IN 

REPORT-SAVE-U 



GN=057 t 0H01A1 

:t:^f4'**J2********** 

*HRT-RODT 



4c4c***4c**4c«4c*4c4:4<*4< 



4:4c*4c4c4c* «4(*4[ *4c** 
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Chart UG. RLS-ROUT Subroutine r Report Writer Subprogram 



♦ RLS-ROOT * 

* * 



* * 

* SAVE RETORM * 

* ADDRESS IN * 

* RBPORT-SAyE-5 ♦ 

* * 



.♦ ♦. YES 

♦.LINE-COUNTER .♦ 

♦.INDICATES.* 
♦. .♦ 



ENTERED PROH 
DET-HOUT OR 
CTF-ROOT 



il^*^it^i^:C2********** 



i^i»*i^#4t4c*4i4c>tc*>ti*4c«* 



GN=064 . . 

D1 *. 

.* LINE- *. 
.♦COUNT BR IS ♦. NO 

♦. LESS THAN .♦ 

♦. LINE 9 .♦ 



.♦ 



it,:t:,ti:t*Ji2********** 



l^lll****]!!**^!^!***^:!^* 



♦SET LIN.NUM TO ♦ 

♦ ONE LESS THAN ♦ 
->^NnMBER OP LINES^ 

♦ TO BE SKIPPED ♦ 

♦ * 



♦ ♦ 

♦ ADD 1 TO LIN. ♦ 
>♦ NUM AND ♦ 

♦ LINE-COUNTER ♦ 

♦ * 



GN=066 



4c**#*4c*****:ti4^** 



TO 

ADDRESS IN 

HEPOHT-SAVE-5 
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Chart UH. WRT-ROUT Subroutine , Report Writer Subprogram 



It:4c3|c4c4:4c«4c4:>|c**4c«* 



* ♦ 

* SAVE RETURN ♦ 

* ADDRESS IN * 

* REPORT-SAVE-5 * 

* ♦ 



* MOVE CONTENTS * 
*0F WORK AREA TO* 

* OUTPUT RECORD * 

* AREA * 

* * 



*ILBDSPAO * 

♦"space PRINTER *- 
♦AND PRINT LINE ♦ 
* * 



ENTERED 

TO 

PRINT A LINE 

OP REPORT 



PRINTER SPACING 
SUBROUTINE PROM 
COBOL SUBROUTINE 
LIBRARY 



♦ HRT-ROUT * 

* * 



♦ *^ 

♦ SAVE RETURN ♦ 

♦ ADDRESS IN ♦ 

♦ REPORT-SAVE-5 ♦ 

♦ * 

« 4c 4^ 4< 4c « 4c « I' * 4i * )*: * >•: * 4c 



4c4c4e>^4:C3^^***^**** 

♦ MOVE CONTENTS ♦ 
♦OF WORK AREA T0+ 

♦ OUTPUT RECORD ♦ 

♦ AREA ♦ 
4c * 
4:4c4c4ci«c4c«4c4c4:4c4c4c4:4c4c4t 



4c4:4:*4cD34c4c4c4:4c4<«:4c4')l< 

♦ SET OUTPUT ♦ 
♦RECORD AREA TO ♦ 
♦INDICATE SKIP A^ 

♦ LINE ♦ 

♦ * 
4c4c4c4c4c>tc4c4c4c4c4<4'4c4c4c4c4c 



ENTERED 

TO PROVIDE 

A SKIP 

TO NEXT PAGE 



♦LOAD REGISTER 1* 

♦ POR BRANCH TO ♦ 

♦ GN=0 9 ♦ 
4c 4c 

*4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4c* 



4c4c4ci^4c4c4c4c4c4:4c4:4c4c*4c4c 



4c4c4c4c4:F3*4c4c4c4c4c4:4c4c« 



4c4c*4c4c4c4c4c4c4c4c4c4c4c4c*4c 



4c 4c 4c 4c* 4c 4c* 



4c 4c 4c 4c 4c*4c 4c 4c 4c 4c 4c 4C 4c 4c 4c* 



**H3******* 



4c********** 



****J3********* 

* *. 

* RETURN ♦ 

* ♦ 
*************** 



TO ADDRESS 

IN 
REPORT-SAVE-5 



246 Section 3. Program Organization 



licensed Material - Property of IBM 



Chart UI. RPH-RODT Subroutine^ Report Writer Subprogram 



* RPH-RODT ♦ 



♦ * 

♦ SAVE HETORH * 

* ADDRESS IN ♦- 

* REPORT-SAVE-U ♦ 



RETnRH 
IS FROM 
PGH-ROOT 



4ci»4c4i*4i4>***4i4c4c**4c* 



CI ♦. 
.♦ LINE- *. 
.♦ COOHTER *. YES 

♦.INDICATES NEW.* 

♦. PAGE .♦ 
— to.* 



OH01A3 
«4c4c**C2********** 
*WRT-RODT * 



♦ . 



*H0 



i|c«4»tc**4>4'4:**4[4c4i«4<4c 



*4<D1******* 



li^^^c^^^^'*** 



V DL01A1 
*ALS-HOnT 



*^i:tL*.4i******iti***i** 



* * 

* BUILD FIRST * 

* LINE TO BE * 

* PRINTED * 

* * 



OH01A1 

4c>|c*4'*Gl*******=*** 

♦WRT-RODT 



^^AU******* 



]»*4c*i|[]|c4c4i>([4c* 



UL0ia2 

*ALS-ROnT * 

* _♦_♦_»_♦_*_*_ ♦_♦ 

* SET LINE ♦ 

* SPACING ♦ 

* * 



*4c 4c *:*C1|* *♦♦*** *** 

♦ * 

♦ BOILD SECOND * 

♦ LINE TO BE * 

♦ PRINTED * 

♦ * 



♦J 

DH01A1 

♦WRT-ROOT * 
♦_*_♦_*_♦_♦_*_♦_* 
♦ WRITE SECOND ♦ 
♦LINE OF HEADING* 
« * 



0H01A1 

* EXIT TO ♦ 

* PGH-RODT ♦ 

* * 



*]tc«*4:##«**4c*i»*4c4c4c 
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Chart UJ. RST-ROUT Subroutine, Report Writer Subprogram 



* BST-ROOT * 



*110T£ DAT HUHBER* 

* TO WORK AREA * 

* -0004 ♦ 

* * 



♦♦D2* ****** 

* SET SDH * 

* CODNTERS 
-0005, S-0001, 

* AND HIN 

* * 

*4t**iteitt4c«*4i)|c 



E2 *. 

.♦CTL.LVL*. 

.* EQUALS *. 

*. CONTROL LEVEL. 

FOR DAY .* 



i»«*4c>«cB3********** 

* * 
*RESTORE RETORH ♦ 

->* ADDRESS FROH * 

* REPOHT-SATE-3 * 

* * 



1 DBOlAt 
****C3********* 

* EXIT TO * 

* IST-RODT * 

* * 
««*«*4ci»*4i****4ei» 



*. 



* HOVE MONTH * 
*NDHBER TO WORK * 

* AREA -0002 * 

* * 



**G2******* 

* *■ 

* SET SUH * 
* CODNTERS 0003 

* AND INT * 

* * 

**4:«**4c**«4: 



H2 *. 

.♦CTL.LVL*. 
.* EQUALS *. YES 

*. CONTROL LEVEL.* 

*.FOR MONTH.* 



i|i4c*jtc4cE3********** 

DC * 

*RBSTORE RETDRN * 

->* ADDRESS FROM * 

* REPORT-SAVE-2 * 

* * 
**4i4c*4c4c4c« «****«** 



Hitfi^^^YS********* 



4C4C4C4C4E4C********* 



♦RESTORE RETOEN * 

* ADDRESS FROH * 

* REPORT-SAVE-2 * 

* « 

***}|c«4:«4c4c*4(4c>|c*<«c*)^ 



*4c**K2********* 

4c *. 

* EXIT * 

« * 

4citc**«4:4:*4c*4c4c«** 



♦ * 

♦RESTORE RETURN ♦ 
->♦ ADDRESS FROM * 

♦ REPORT-SAVE-2 * 

♦ ♦ 



* *. 

* EXIT * 

* * 

4c4t)|c4i*>^itc**4c4c4c«:4c4c 



TO DET-HOOT 
CHART OAOtAI 
ADDRESS SAVED 
BY CTB-ROUT 



TO DET-RODT 
CHART DA01A1 
ADDRESS SAVED 
BY CTB-ROUT 
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Chart UK. ROL-ROUT Subroutine, Report Writer Subprogram 



♦ LAST-HOLL ♦ 

* ♦ 



♦ ♦ 

♦ SA7E BETOBH ♦ 

♦ ADDRESS IN ♦ 

♦ REPOBT-SAVE-2 ♦ 

♦ »■ 



* ROL-RODT * 

♦ ♦ 



ENTERED 

FROM 

CTB-ROOT 



♦ ♦ 

*ADD TOTAL (DAY)* 

♦ TO TOTAL * 

♦ (HONTH) ♦ 



OH01A3 
♦SAV-ROOT * 



* ADD TOTAL * 

* (HONTH) TO » 

* TOTAL (FINAL) * 



«*4c4c**4i*4c**4<>|c**4>* 



* *■ 

* EXIT * 

* ♦ 



TO CTF-BOOT 
FOR DAY 
CHART D001A1 



4c*«***4c**4c**«4t:^ 



DN01A3 
♦SAV-ROOT 



***#**#4c)tc**«***«4c 



* *■ 

* EXIT * 



TO CTF-ROUT 
FOR DAY 
CHART UO01A1 
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Chart UL. ALS-RODT Subroutine, Peport Writer Subprogram 



GN=021 

♦***A2********f 

♦ aLS-ROUT * 

* * 



♦ ♦ 

♦ SAVE RETaRN » 

♦ ADDRESS IN ♦ 

♦ REPORT-SAVE-5 * 

♦ * 



C2 *. 
.* LINE ♦. 

.♦ COOHTEH * 
*. INDICATES 



-ENTERED FROH 

IPGF-RODT, PGH-ROOT, 
RPF-ROUT, RPH-ROUT 
OR CPF-HODT 



«**4c4cC3'»:4c**4c4c*i|c4'* 



4c*4c*****4[4c*3(c***>|i* 



**D2*******' 



4c4c**4:***4:4c* 



*■ ♦ 

* SET COONTERS ♦ 
*FOR NEXT OOTPOT*- 

* LINE * 

* ♦ 

4c4t >tc)» Hole* ««««*** 4< itc* 



^iit'^^-pZ********* 



COMPUTES 

LIN. NUN AND 

LINE-CODNTER 

USING 

ABS.LIN COUNTER 



>|c««4'4c>«t**4'>ie**4t)*:4< 



TO ADDRESS 

IN 

REPORT-SAVE-5 
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Chart Ui3. PGH-RODT Subroutine ^ Eeport Writer Subprogram 



•^ 



* PGH-ROUT * 



*>|: ** 

** EXECDTE OSE ♦* 

♦* STATEMENT ♦♦ 

♦* PROCEDDRES *♦ 

** ** 



ENTERED FROM 
PGF-ROOT 
OR R PR -ROOT 



CI *. 






.♦PRINT- *. 






.* SWITCH ♦ 


. NO 




♦. INDICATES 
*. PRINT .* 
*. .♦ 


■—I 




*. .* 


*♦>*:* 




♦YES 


♦ CU ♦ 

* * 
♦♦♦* 




GH=OI»0 .♦. 




OH01A1 


D1 ♦. 




:^^(*7tiit^Jy2********** 


.♦ LINE- ♦. 




♦WRT-RODT ♦ 


.♦ COUNTER ♦ 


. YES 


♦_♦_♦_*_♦_*_*_*_* 


♦.INDICATES NEW 


,♦ 


— >* SKIP TO NEXT ♦ 


*. PAGE .* 




* PAGE ♦ 


♦.REQ»D.+ 




* * 



♦♦♦♦♦^^♦♦♦♦♦*+ ♦♦* 

♦ ♦ 

♦ BOILD SECOND * 

♦ LINE TO BE ♦ 

♦ PRINTED ♦ 

♦ * 



OH01A1 
■•[^^^■^[^'(♦♦♦♦♦♦♦♦♦^ 
♦WRT-ROOT 

* WRITE SECOND ♦ 

* LINE OF PAGE * 

* HEADING ♦ 

* * 

* CI ♦ 

* ♦_> 

****■ 
GN=029 

* * 

♦ SET ♦ 
♦PRINT-SWITCH TO^ 

* PRINT ♦ 

♦ ♦ 



■|c4'4:**4c***4'4c>»:>l<«.4c4c4i 



INDICATES 
SKIP IS NOT 
DUE TO AN 
EARLIER NEXT 
GRODP CLAUSE, 
VALUE OTHER 
THAN INDICATES 
SKIP TO NEXT 
PAGE BECAUSE 
OF ABSOLUTE 
LINE SPECIFIED 
IN NEXT 
GROUP CLAUSE 



>«c*Sl#4:*4<*4c* 



4c**4c:^i»***itc4c 



UL01A2 
♦ALS-ROUT ♦ 

♦ "set LINE ♦ 

♦ SPACING ♦ 

♦ ♦ 



4c * 

♦ BUILD FIRST ♦ 

♦ LINE TO BE ♦ 

♦ PRINT ♦ 

♦ ♦ 
*««4c4c4c*4c4c*4c4>4t4c*** 



UH01A1 

♦WRT-ROUT * 
*_♦_*_♦_*_*_*—♦_* 

♦ WRITE FIRST ♦ 

♦ LINE OF PAGE ♦ 

♦ HEADING ♦ 



ilEilcJI*^'***^'* 



*^^ii^^^^:^idm^ii^:i^^L 



UL01A2 

3)C4C#«:»K !♦♦♦♦♦♦♦♦♦♦ 

♦ALS-ROUT ♦ 



♦ ♦£!»♦♦♦♦♦♦♦ 



4c4c4c4c4<«4c^«4:itc 



UL01A2 
♦ALS-ROUT 



*****ti^c*iti^^i^filLiHli:ti^i 



UH01A1 
♦WRT-ROUT 



it^ift************** 



**liH*i^*'¥*** 



%*4:4:4c4c4'>«c4c>ic* 



♦ *. 

♦ RETURN ♦ 

♦ * 



LIN.SAV 
FRS.GRP 
GRP.IND 



TO ADDRESS 
SATED BY 
RPH-ROUT IN 
REPORT-SAVE- 



n 



4i3t:>tc*i|t4:>tc***:tc4c4:*4c**4'3icit'4c 
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Chart UN. SAV-ROUT Subroutine^ Report Writer Subprogram 



* SAV-BODT * 

♦ ♦ 



* * 

* SAV1B BETDHN * 

* ADDRESS IN ♦ 

* BEPORT-SAVE-5 ♦ 

* * 



* * 

* HOVE PRESENT * 
♦CONTROL VALOES * 

* TO SAYE AREAS * 

* * 



* HOVE PREVIOUS * 
♦CONTROL VALUES * 

♦ TO PRESENT ♦ 

* CONTROL VALUE * 

♦ AREAS ♦ 



****E3********* 



ENTERED PROH 
ROL-RODT 
OR CTF-RODT 



■t:4c4t*i|E4c* 4t 4:4ti([«4c4c* 
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Chart DO. CTF-RODT Subroutine, Report Writer Subprogram 



* CTF-ROUT *■ 

* * 



B1 



1. 


ENTERED FBOH 




ROL-HODT 


A. 


CTP-HODT FOR 




NEXT LEYEL (MONTH) 




IS SIMILAR. 


T. 


CTH-RODT FOR 




BOTH LEVELS 




ARE DUHHIBS 



♦. FRS. GRP =1 
♦ . 

♦ . .* 
♦NO 



.* 



^^^^^^^c^ci^^^^^^^itt^t 



GN=050 DEOIAI 
lHtl^:^i^ (22* ********* 
♦RLS-RODT 



.♦WILL REPORT^. YES 

♦.GROUP FIT ON .♦ 

♦. PAGE .♦ 



UP01A3 
*i|[4c**E 1*****11**** 
♦RET-ROUT 



***************** 



OF01A2 
♦PGF-RODT 



***************** 



nN01A3 

**:m*Q1it.im*:Htim*** 

♦SAV-ROOT 



***************** 



DP01A3 
tf**if*li2********** 
♦RET-RODT 



***************** 



DF01A2 

7tt:^:t„^*22********** 

♦PGF-ROUT ♦ 



***************** 



DN01A3 

*^i:t[^l*-p2********** 

♦SAT-ROOT ♦ 

♦"save CONTROL "♦ 

♦ NAME VALUES ♦ 

* * 



UGOlAt 

**ilf**Q2********** 

♦RLS-RODT 



4c*«)tc4<*4ii|E4i***«*4i«* 



**li3******# 

* SET ♦ 
♦LINE-COONTER ♦ 

♦AND LIN.NUM FOR+- 
♦ CONTROL ♦ 

♦ FOOTING ♦ 



*4c*4'**«***4c4c**#** 



GN=049 t DG01A1 
♦RLS-RODT 



♦ BDILD FIRST ♦ 
>♦ LINE TO BE ♦ 

♦ PRINTED ♦ 

♦ * 

im:ti4i,Hi^f4i4:******** 



' DH01A1 

^:itit,4fBH********** 

♦WRT-RODT 



***************** 



**Qti******* 

* SET ♦ 

♦LINE-CODNTER ♦ 

♦ AND DETERMINE ' 

♦ LIN.NDM FOR ♦ 

♦SECOND LINE^ 



ilii^il,:^4iJiH*ti**4iif**** 

* * 

* BDILD SECOND ♦ 

* LINE TO BE ♦ 

* PRINTED ♦ 

* * 

1i4,*3t:1i:tc*********** 



OH01A1 

♦WRT-RODT 



******,ti********** 



.♦CTL.LVL^. 
♦ INDICATES ♦ 

THIS IS DAY 
♦. LEVEL .♦ 



GN=051 DP01A3 

it,i^*^i*-p5********** 
♦RET-RODT ♦ 



♦ EXIT TO MONTH ♦ 

♦ CTF-RODT ♦ 



«i(c*4c*>^**4[4c««**«** 



:i^^t**G5********* 

* EXIT TO DAI ♦ 

* CTH-RODT ♦ 

* * 



***************** 



Flowcharts 253 



Licensed Material - Property of IBM 



Chart UP. RET-RODT Subroutine, Report Writer Subprogram 



* RET-ROUT * 



* * 

* SAVE RETURN ♦ 

* ADDRESS IN * 

* REPORT-SAVE-5 * 

* * 



* * 

♦RESTORE PRESENT* 
♦CONTROL VALUES ♦ 
♦FROM SAVE AREAS+ 

* * 



♦ * 

♦ RETURN ♦ 

♦ * 



ENTERED PROH 
CTF-ROUT 
OH CFF-ROUT 
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Chart UO. INT-RODT Subroutine, Report Writer Subprogram 



♦ IHT-HOOT * 



* * 

* SA?E EETDRN * 

♦ ADDRESS IH ♦ 

♦ REP0RT-SA¥E-2 * 

« * 



*^nti:t,^,Q2********** 



ENTERED 
FROH HAIK 
LINE PROGRAH 
INITIATE STATEMENT 



i^«#**4i*i^4c*«*^>|c**« 



* RETURN ♦ 

* * 



CTL.LVL 

PRINT-SHITCH 

GRP.IND 

FRS.GEN 

TER.COD 

PRS.GRP 

LIH.NOn 

ABS.LIN 

LIN. SAT 

LINE-CODNTER 

PAGE-COONTER 



TO 

NEXT SEQUENTIAL 
INSTRUCTION AFTER 
INITIATE, ADDRESS 
IS IN REPORT-SAVE-2 



Flowcharts 255 



Licensed Material - Property of IBM 



Chart UR. LST-ROUT Subroutine, Report Writer Subprogram 



♦ LST-ROOT * 

* ♦ 



* * 

* SAVE RETORN * 
*■ ADDRESS IN * 

* EEPORT-SAVE-6 * 

*■ * 



CALLED AS A 
RESULT OP A 
TERHINATE STATBHEHT 



HATE ANY *. MO 

GENERATES .♦ 

.OCCORRED .* 



♦ ♦ 

* RETDRH * 



TO HEXT SEQOEHTIAL 
IHSTRDCTIOH AFTER 
TERHINATE STATEHENTr 
VIA ADDRESS IH 
REPOHT-SAVE-6 



GN=07a 

**D2******* 

♦SET CONTROL* 

*LEVEL SWITCH * 

♦(CTL.LVL) TO * 



4c4c4'******4'* 



*«£2*****4"*= 



«4c«*4c4c4ci|i4c4c4c 



nK0lB3 
*ROL-RODT * 



INDICATES 

NO HORE 

CONTROL HEADINGS 



ENTER ROL-ROOT 
VIA LAST-ROLL 
(GH=019) 



4c)tc**4c***4c4c)|c«:4<4:4c*:» 



nsoiA3 

♦CFP-RODT 



4c*i»4c**4i*4c***«:4c**4c 



**fl2******* 



INDICATES 
NO HORE PAGE 
HEADINGS 



)|[*)|t«#4c*«*:»* 



OF01A2 

***«4cJ2********** 

*PGF-ROOT 



*« « 4:4e* * 4c:|c *>ti* 4c* * *« 



SEE CHART 

oroiA2 

****K2********* 

* EXIT TO ♦ 

* RPF-ROUT * 

* * 
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Chart US. CFF-ROUT Subroutine, Report Writer Subprogram 



* CPF-RODT ♦ 



♦ * 

♦ SATE BETORH * 

♦ ft DDR IH * 

♦ REP0RT-SA?E-3 ♦ 

♦ * 



UFO 112 
♦PGF-RODT ♦ 



^Ic*******^'!!!***:**** 



*:t^li2******* 



PIHAL COHTROL 
FOOTING IS TO 
APPEAR OH 
NEXT PAGE 
OP REPORT 



4c««*«4c4c**4'* 



OL0tA2 
♦ALS-RODT 



i^*:ti************** 



*4c***F34c*8|c*****i|c>|i 



;ti*i^m****mm***mmm* 



nnoiAt 

♦WRT-ROOT 



4c«***4[4l4:4c*)|c4i4'«*** 



0P01A3 
♦RET-RODT 



4c**«>»«4i4e«>*:**4ci»*** 



****J3********* 

* *. 

* RETURN * 

* * 
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Chart UT. RPF-ROUT Subroutine, Report Writer Subprogram 



* BPF-ROUT ♦ 

* * 



OH01A1 

♦WBT-ROOT 



i^L:^tC^***t'*** 



itt4'*****'t^*it'* 



nL0lA2 
*ALS-BOUT 



4c Jtc 4: * « :» 3«i 4i * « 1)1 « >|c * * 3(e 4c 



HO .* LINE IS -■ 

♦. BELOW PAGE 

*. FOOTING . 



**D2******* 

* ♦ 
SET LIN. HUH 

AMD LINE 
COUNTER 

♦ ♦ 



4t4c**4<>»:*>tc4<>|c>(c«4<4c4c4>4i 



♦*C3******* 



*««i|ciec4c4c4c**4c 



OL01A2 
♦ALS-BOOT 



4C4C4C************** 



4c**********:iti***** 



UH01A1 

♦HBT-ROUT * 
*_*_♦_♦_♦_*_♦_♦_* 

* WRITE REPORT * 

* FOOTING * 

* * 



♦♦♦*G3********* 

* ♦ 

* RETURN ♦ 

4c4:4c**>|t*9|c*4c«4c**4i 



TO ADDRESS 
STORED IN 
REPORT-SAVE-6 
BY LST-EOUT 
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TABLES USED BY PHASES 



r— ■ 1 " ■■ — "■"■ " ' ■"- '■" " " "■ ' ■ I 

1 1 Table and TIB Number I 


11 1 1 
1 Phase 1 Built or Changed by Phase | Referenced Only I 


1 01 1 REPTAB(29) | | 


1 10 1 CKPTBL(B), ENVTBL (3) , FNTBL (10) | | 
1 1 INDXTB(27), KEYTAB(26), 0D2TBL (9) ^ | I 
1 1 PI0TBL(7), P1ETBL(2), C)LTAEL(I), | | 
1 1 QNMTBL(2), RCDTBL (11) , RWRT5L (13) , | | 
1 1 SATBL(5), SPNTBL(21), SRATBL(6), | | 
1 1 SSATBL (7) , UPSTEL (25) | | 


1 12 1 CTLTBL(14), DETTBL(17), GCNTBL(21), | FNTBL (10) , RWRTEL (13) ^ SPNTBL (21) | 
1 1 NPTTEL(18), PI0TBL(7), P1BTBL(2), | | 
1 1 OALTBL (23) , QLTABL (1) , RNMTBL(12), | | 
1 1 R0LTBL(15), R0UTBL(16), SMSTBL (28) | I 
1 1 SNMTBL(35), SRCTBL (22) , SUMTBL (19) | | 


1 11 1 DICOT(20), GVFNTBL(4)^ GVNMTBL (3) , | DETTBL (17) , FNTBL (10) , PIBTBL (2) ^ | 
1 1 PI0TBL(7), PNQTBL(6), PNTABL (5) , | R0UTBL(16)r RWETBL (13) , SPNTBL (21) | 
1 1 QLTABL(1), RCDTEL(II), RNMTBL(12) | I 


1 20 1 VALGRP(6), VALTRD (33) , LABTBL(13) I | 


1 22 1 DTCOT(20)^ FDTAB (28) , GPLSTK(IO), | 0D2TEL (9) , UPSTBL (25) ^ VALGRP (6) , | 
1 1 INDKEY(31), MAST0D0(13), OBJSOB (5) ^ | VALTRU (33) | 
1 1 0CCTBL(2), 0FILE(23), QITBL (22) , | | 
1 1 QRTN(21), 0VAR(24), 0SBL(1), | | 
1 1 RDFSTK(II), RENAMTB(3), RNMTBL (12) r 1 1 
1 I SRCHKY(34), VARLTBL(15) | I 


1 21 1 ASCTAB(3)^ BLTABL (27) , BUFTAB (29) ^ | FDTAB (28) ^ DICOT (20) ^ PT0TEL(7) | 
1 1 CKPTBL(8)^ IND2TBL(35), SDSRATBL (1 1) , | | 
1 1 SRAHAX(IO)^ SRATBL(9) | I 


1 25 1 0CCTPL(2), ODOTBL(I^), VARLTBL(15) | DICOT(20), MASTODO (13) ,. 0D2TBL (9) , | 
1 1 1 QITBL(22), 0RTN(22), RENAMTB(3) | 


1 30 1 QFILE(23), QVAE (24) | DICOT (20) , INDKEY(31)^ VALTRU (33) ^ | 
1 1 1 QSBL(1) 1 


1 40 1 ^BGTBL(13)^ DEFSBS (18) , KEYTBL (20) , | | 
1 1 PPHTBL(12), PNO0NT(1U)r PSHTBL (17) , | | 
1 1 PSIGNT(15), PTRFLS(16), SETTBL(21), I | 
1 1 STRING (9)^ VARYTE(IO), VNTBL(II) | | 


1 50 1 BLUSTBL(IO), XAVAL(2), XINTR (1) , | | 
1 1 XSCRPT(3)^ XSSNT(4) | I 


1 51 1 BLUSTBL(IO), GNCALTBL (16) , lOPTBL (5) , | CKPTEL (8) I 
1 1 PNUTBL (6) , SEGTBL (15) | I 


1 60 1 C0NDIS(14), C0NTBL(9), CVIRTB (12) , | PNDTBL (6) ^ SEGTBL (15) | 
1 1 ERRTBL(IO), FILTBL(2), GNTBL (8) ^ | I 
1 1 LTLTBL (4) , PNTBL (7) , QTBL (3) , | | 
1 1 RLDTBL (NONE) r T6TADTBL (18) , VIRPTR(13), | | 
1 1 VNPTY(17) 1 1 


1 61 1 CNTLTBL (none) , DATATBL (none) , | I 
1 1 OFLOTBL (none) I 1 



Figure 62, Tables Used by Phases (Part 1 of 2) 
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Table and TIB Number 



Phase 



Built or Changed by Phase 



\ Referenced Only 



62 



BLASGTBL (16) , ELVNTBL (23) , CONDIS (14) , 
C0NTBL(9) , CVIRTB (12) , DRPTBL (24) , 
DRPLTBL (25) , PILTBL (2) , GNATBL (3) , 
GNFWDBTB(21) , GNLABTBL (19) , LTLTBL (4) , 
PNATBL(7) , PNFWDBT3(20) , PNLABTBL (18) , 
VIRPTR(13)r VNPNTBI (29) r YNPTY(17) 



r BLUSTBL(IO), PNUTBL(6), SEGTBL (15) 



63 



GNLBDTBL (27) , PNLBDTBL (26) , QGNTBL (24) , 
RLDTBL (28) , VNPTY (17) 



BLASGTBL (16) , BLVNTBL (23) , DRPLTBL (25) 
GNATBL (8) , GNLABTBL (19) , PNATBL (7) , 
PNLABTBL (18) , SEGTBL (15) , VNPNTBL (29) 



64 



BRRTBL (10) , QTEL (3) , RLDTBL (28) , 



BLASGTBL (16) , GNATBL (8) , GNLBDTBL (27) ^ 
LTLTBL (4) , PNATBL (7) , PNLBDTBL (26) , 
QGNTBL (24) , VIRPTR (13) , VNPTY (17) 



65 



CARDINDX (11) , PR0CINDX(5), SEGTNDX (16) 



TGTADTBL (18) 



70 



ERRTBL (10) 



80 



Figure 62. Tables Used by Phases (Part 2 of 2) 
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LINKAGE EDITOR MAP 



DOS LINKAGE FDITOR DI/CNOSTIC OF INPUT 



ACTION TAKFN- MAP RfrL" - - - - - 

LIST INCLUDF ILACPVS 

LIST PHASF FCOBOL »S 
■ LIST - if+CLUDIr ILAeBtOf*- - - 

LIST INCLUDF TLACBLOl 

LIST PHASF FCOB0L05tCLTP.(FCnBOL) 

tI5T - IN£-tHCVE^- ILAGf^LO^- 

LIST PHASF FCn80L06rCLTB(FC0F.0L) 

LIST INCLUDE ILACFLO^ 
- L I ST- - PH A-S-E -f CBB-et-07-t-£-bI-B-{ FC BBG-L-)- - 

LIST INCLUPF TLACBL07 

LIST PHASE FCCBCLOP. tCLIB(FCnBnL) 
~tT^^- ■ -TN-G-L-yrfP -ILAGBte^ 

LIST PHASF FC0B0L10,CLIB(FCnF0L) 

LIST INCLUHF ILACRLIO 
--Li-ST PHA-SF f C^FVeL-l-2-rCtrI-B^f^-^frOL ) — 

LIST INCLUDF TLACBL12 

LIST PHASF FCOBOLIl,CLTB(»^CnFOL) 
-t-I-^T Iff&4rLf&F- ILA C RL ll 



0001 

— OiJtt?- 

0003 

0004 

— e€K:-5- 



LIST 
LIST 
-- L-IST- 
LIST 
LIST 
-4^5-T- 
LIST 
LIST 



PHASE FCGBnL?0,PH0COPY(F 
INCLUDF ILACF.L20 



f FCOBOL) 

- PH-A^ C r C O B Bb2 2 y PI locor Y ( -FeOFeL-)- 

INCLUDF ILACRL22 

PHASE FCnBOLZltPHOCOPYCFCOBOL) 
— INC^. W>F-T L A C R L 2 1 

PHASE FCOBOL25,PHOCOPY( 

INCLUDE TLACFL25 



FCOBOL) 
PH-A^ F FC0 B- 0L 30, PH0CCr>Y(FC0B0L) 



0006 
0007 

-066^ 
000^ 
0010 

-CKHri- 
0012 
0013 

--00^1-4- 
0015 
0016 

-00-t7- 
0018 
0019 
0020 - 
0021 
0022 
0023 



0024 

0025 

-002-6- 



LIST INCLUDF ILACPL30 

LIST PHASE FC0B0L40,PH0TBDIC(FCnB0L) 
-\=ri^^ II^4rU DE I LACBL AC 



0027 
0028 
0029 



LIST REP 007B12 0014000 

LIST PHASF FC0P0L50,PH0TBDIC(FC0BaL) 
-t-I5T= INCLUDE ILACBL5 C 

LIST PHASE FC0B0L??ltPH0TBDIC(FC0P0L) 

LIST INCLUDE ILACPL51 
-trtST PH-AS E FC OB 0L 6 0TP H0TBniC(FC0B0L) 

LIST INCLUDE ILACBL60 

LIST PHASE FCOBOL62tPH0TBDIC(FCOBCL) 
-t-tST INCLUDE - ILACBL 62 



0953 
0030 
0031 
0032 
0033 
003 4 



0035 
0036 
0037 



LIST PHASF FC0B0L63,PH0TBDIC{FCDP0L) 

LIST INCLUDE ILACBL63 

LIST P i( ASE F COB0L 6^ »PH0TBDTC(FCOB0L) 



0038 
0039 
OOAO 



LIST INCLUDE ILACBL64 

LIST PHASE FCOB0L65,PH0TBDIC (FCOBOL) 
-t^€-T INCLUDE ILACBL -6S 



0041 
0042 

00 ^ r3 



LIST PHASE FC0B0L61»PH0TBDIC(FC0e0L) 

LIST INCLUDE ILACPL61 

LIST PHA S E FC OBOL70>PM0TB£Tl(FC0POL) 



0044 
0045 
00 ^ »6 



LIST INCLUDE ILACBL70 
LIST PHASE FCOBOL80, FCOBOL 
-\^iS^ INCLUDE ILACBLBC 



0047 
0048 
00 ^. 9 



LIST INCLUDE ILACBL&l 
LIST INCLUDE ILACBLP? 

-trf5T INCLUDE ILACBLB3 

LIST INCLUDE ILACBLB4 
LIST INCLUDE ILACBLB5 

LIST INCLUDE ILACBLOO 

LIST INCLUDE ILACBLe7 
LIST INCLUDE TLACRL88 

LIST INCLUDE ILACBL09 

LIST INCLUDE ILACBL8/i 
LIST INCLUDE JLACBL8R 

LIST INCLUDE ILACBLBC 

LIST INCLUDE ILACBLBD 
LIST AUTOLINK IJJCPD1^ 
LIST E N T R Y 



0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
005B 
0059 
0060 
0061 



0062 
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/'Sf yf^-^u LPCP'^L ^'TC.npf; D5^K~An f^^. lY^f LA'^^L 

I 0•7v^.^c^ 07['P7t C^^D^T 021 03 01 CSFfT ILAfBLOO 

CSPCT TLACBLOl 

CSFTT PM09rCT2 

CSFCT TJGWZMZU 

FNTRV IJGW?MZ7 

* - fNTRV - TJGW777Z- 

* FriTRY TJGW7RZ7 

* «^NTRV TjrwZZZU 

- * - FNTRY TJGWZI^ZU- 

CSECT JJJCPr^O 

- <-MTflY - IJvff^DfyN 

* PNTDY IJJCF^ni 
^-UJPy TJJCPP2 

FNTP^Y- --T-JJC*>r*5 

'i^ ^rJTRY TJJGPniN 



Ffn^'; 
Frr«i 






CSEC7 

- - C5^F€-T- 

CSECT 

Cf.FTT 

- 6fff-T 

rsFfi 

CSFCT 
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CT'-CT 
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OPIf.n^i opi Ob 0? CFFfT 
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CLTF 

D^T-A - 
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JLAOO? 

TLACPLO^^ 

ILAC-PL-0^6 

!l^r-L07 

ii/^r^LOP 



LP APED 
07D^7e. 
OPlORe 

r7F81C 

07FR1C 

CTFOf B 
07F05 8 
07P058 
07F0'"-8 
07F05B 
07F05 8 

C7FAE8 

(:7F4C-^ 

C7F4F8 

-07FAFe 

C7F'if^8 

f>7Fft^^tV 

CB0313 

rP071C 

086AF0-- 

08 000 
08108 

082*^^60 

orpQFo 

— C^P^r-'^f^- 
OP/r?.? 
Oft(;noo 
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07n87P 



070878 



ILACBLOO 
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-071^78--- 

07DB7P 

07D878 
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07D878 

07P878 
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0810PP 

08101:8 
-O^irOrH^ 



ILACBLOl 
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081088 

OROD('0 RFLnCATAFLF 

fVpfmftO- --R-FtOeATAP-t^- 

080000 RFLHCATABLF 

080000 RFLPCATABLF 



ILACBL05 
ILACBL06 
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ILACBL08 
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— ItA63f 

TLA632 
TLACBL64 

-TtA-tSf3 

TLA/^>4^ 
TL«^645 

— ILA6-^55 - 
TLA646 



ILA647 

--H:A-6-^rF 



FCCHrL6' 



or'07r; 



080710 oncp^ n?!^. 01 0*^ csfct tla6'=^i 

"- - -*- -OfT-lW — PMASf65- 



FCrriLL^-1 08r72: 



0['(^71P 0«:'^^FF 



CS'=CT 
CSECT 

------ - C S-FC-"^- 

^>75 02 0^ CSFCT 

CSFCT 

- -CS^CT 



ILA6^-? 

ILA653 

TtA6'^^--- 

TLA«^101 

TL/'.6303 

TiA^lC;?- 



L HAD ED 
08C710 
0P127F 
0B1F58 

--ee2A40- 

082070 
0F.3C<?0 

--Ge^-i3ft- 
0R46CB 
080710 

--0f^i5l>0- 
0F^2570 
080710 

- -e-B-f^A^^f^- 
OPlFAO 
0B26.C0 

--Ofr3^ 
0R3DFR 
OSA'^Cfi 
■©"f^ftp-*? ■ 
OR0710 

0BII6F 

C 8 1390 

--G^IGM^- 

080710 

0F13F0 



KFL~FR 

-0ae71t)- -RFUKAT-A1?tF- 
080710 
080710 

0-8Ct71C -- - 

0BG710 
080710 

-f>e^7i-o 

080710 

080710 RFLOCATAPLE 

--t>8iyri-o 

O80710 

080710 RELOCATABLE 
-PftfyTdf) 

080710 



ILACBL62 
CPhase 621 



ILACBL63 
(Phase 63) 



080710 

080710 -- 

080710 



ILACBL64 
(Phase 64 i 



08071C 



-aft07^^H 



08C710 RELOCATABLE 



080710 



080710 
.05^7^^ 

080710 RELDCATABLF 

nF0710 

(^07^6 



ILACBL65 
"(Phase 651 



"ILACBL61 
(Phase 611 
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PHA^,^ 


XF^-Af' 


LC'Cf r;F- 


y TCCRr 


DSK-AC 


EST- TYPF 


L /» H { L 


LrADFr^ 


REL~rR 






FCPF 01.70 


07PP'^C 


OTFPAB 


r p R «s A r 


0?^ 0^ 


01 CSrrT 
Cf'^CT 


ILftCr-L-'e 


07F8^H 
07Fo^^i 


07F.?^S 
-07FB^P 


RFLnrATA«^LF ] 














r.SFfT 


TLA7C? 


o^<o^^o 


07F84 8 




.. 












C5'^CT 
CSFCT 


Tl /7]? 
1L^7T"! 


r«lA30 


07FBA^ 




^ ILACBL70 
^ (Phase 701 










- 


CSFCT 
CS^CT 


TLA710 


08AA7C 


riFB^S 
07FS^8 















- 


CfPf T 


-AT. - 


C«^Af>3b 


07F{?-*'i& 


j 





Fcnrni. rc 


C7[.' -<v 


f 71 ?1P 


Crvo7n 


C25 »0C 


CI CfECT 
CC-FCT 


FcnFTji^r 
irsCAN 


r7nn7S 

07^0^0 


0700 7^ 
C7Fr^0 


REinCATARLE 


ILACBL80 
ILACBL81 












esFc-T- 


PKVSCAN* - 


oeooou 


-opoooo - 


- 


ILACBL82 












CSFCT 


HAT A SCAN 


08 0C60 


080C60 




ILACBL83 












CSF^CT 


PP/;CSCAN 


8 1 A f^ R 


0B1AF8 




ILACBL84 












CSFCT - 

fMTPY 

FMTRY 

CSFCT 


KSCWf'.TTE 
ppciK.ot»T 

FCPru/EtiF 
FIPSVT 


o<7^cr^-e 
c^^aBC 

0PA300 

07n<^DC 


07Dono 


- - " - 


' ILACBL85 
ILACBL86 




- 








- ' CSFCT -- 


■CMKf.t'r>y - 


n7Pi-2fv 


07Ft?„e- 


- --- - 


ILACBL87 












CSECT 


C^'KCLBLS 


07F?7P 


07F??8 




ILACBL88 












CS^CT 


G^-TWORD 


n7'^6BP 


07F6nB 




ILACBL89 












CSFCT 


-T.FTLfNE 


07FA3O 


07P430 - 


- - - 


ILACBL8A 


- 










CSECT 

CSECT 

- CPFCT 

CSECT 
- FNTRV 


PUTLTNE 

VER^BC+iK- 

IJJCFDIN 

-IJJCTH)3- 


r7F'^.F8 

07FA18 

f;7FC68 

C845EB 
OF^5F6 


G7FPf^^8 
07FA18 
0ffC6e- 
0P45E8 




ILACBL8B 
ILACBL8C 
ILACBL8D 
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SECTION 5. DATA AREAS 



COMMUNICATION REGION 



This chapter lists and describes the different cells that form the 
Communications Region (COMMON) . COMMON is resident in storage 
throughout compilation as part of phase 00. Its format is defined as 
DSECTs in the rest of the phases ^ and therefore each phase can refer to 
any cell in COMMON by name. Much of the information saved in COMMON by 
phases 10 through 51 is used by phase 60 or phase 62 to form the Task 
Global Table (TGT) and Program Global Table (PGT) of the object program. 
The TGT and PGT are described in "Appendix B. Object Module." 



No. of Displacement 
Cell Bytes Hex Decimal 
COS 12 000 



Purpose 

Phase 00 initialization coding. 



TIBO- 8 OOC 12 Tjable Information Blocks (TIBs) used by 
TIB35 each TAMER (see "Appendix A. Table and 

Dictionary Handling") . TIB20 is 
reserved for the DICOT table, and TIB 30 
is reserved for the HASH table. The 
rest are assigned to various compiler 
tables throughout compilation; one TIB 
may be reassigned when the table for 
which it was used is released. 



APRIME 


l\ 


12C 


300 


AINSRT 


each 


130 


30«* 


ADSTAT 




134 


308 


RELADD 




138 


312 


TAMNAD 




13C 


316 



Address constants of TAMER used by the 
phases in table management reguests. 



ACCESW 



AMAINF 



ALSTAK 



LOCCTR 



140 320 ACCESS initialization switch (see 

"Appendix A. Table and Dictionary 
Handling"). X»01» if DICOT primed. 

141 321 Pointer to the main free area for tables 

and the dictionary. This is also the 
address of the beginning of the HASH 
table. Routine ACCESS uses this field 
to locate the HASH table (see "Appendix 
A. Table and Dictionary Handling") • 

144 324 Pointer to routine TBDICSPC, which 
obtains space for a new dictionary 
section (see "Appendix A. Table and 
Dictionary Handling") . 

148 328 Contains the relative address of the 
next location available in the object 
program. It is initialized by phase 00 
to the length of the TNITI routine and 
incremented by phases 21 and 22 as they 
assign locations to data, and then by 
phase 60 or, under the optimizer version 
of the compiler, by phases 62, 63, and 
64 as they assign locations to the 
global tables and procedure 
instructions. 
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Cell 
PP.OGID 



No. of 
Bytes 
8 



Displacement 
Hex Decimal 
lac 332 



LABELS 
PRBLDISP 

PNCTF 



GNCTR 



154 



340 



156 342 
15B 344 

15A 346 



VIRCTR 



15C 348 



LTLCTR 



WCMAX 



15E 350 



160 



352 



TSMAX 



162 



354 



Purpose 

PROGRAM-ID from the Identification 
Division of the source program. It is 
saved for use as the CSECT name of the 
object module. If the program is 
segmented, the name is the CSECT name of 
the root segment, and its first six 
characters are used with priority 
numbers to name the other segments. 

Contains label information. 

Contains displacement of beginning of 
PROCEDURE BLOCK CELLS in the PGT. 

Used in phase 11 as a counter for 
assigning unique PN numbers to source 
program procedure-names. In phase 60 or 
62 r it is set to the displacement of the 
PN field from the beginning of the PGT. 

Used in phases 10, 11, 22, 40, 50, and 
51 as a' counter for assigning unique GN 
numbers to compiler-generated 
procedure-names. In phase 60 or 62, it 
is set to the displacement of the GN 
field from the beginning of the PGT. 

Used in phases 50 and 51 as a counter 
for assigning unique identifying numbers 
to virtuals (names of external 
procedures) . In phase 60 or 62, it is 
set to the displacement of the VIRTUAL 
field from the beginning of the PGT. It 
is initialized to 1 by phase 00. 

Used in phases 50 and 51 as a counter to 
save the number of literals. In phase 
60 or 62, it is set to the displacement 
of the LITERAL field from the beginning- 
of the PGT. 

Set by phase 50 to the size of the 
largest work area needed by any COBOL 
library subroutine. In phase 60 or 62, 
it is set to the displacement of the 
WORKING CELL field from the beginning of 
the TGT. 

Set by phase 50 to the maximum number of 
doubleword cells needed for temporary 
storage at execution time by arithmetic 
statements. In, phase 60 or 62, it is 
set to the displacement of the TEMPORARY 
STORAGE field from the beginning of the 
TGT. 
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Cell 
TS2MAX 



No. of 
Bytes 
2 



Displacement 
Hex Decimal 
164 356 



ODOCTR 



2 166 358 



CKPCTP 



2 168 360 



SBLCTR 



2 16A 362 



VLCCTR 



2 16C 364 



BLLCTR 

SEQERE 

DICND2 
DICND1 



16E 366 

170 368 

174 372 

178 376 



Purpose 

Set by phase 51 to the number of bytes 
needed for temporary work areas by 
nonarithmetic statements. In phase 6 
or 62, it is set to the displacement of 
the TEMPORARY STORAGE-2 field from the 
beginning of the TGT. 

Set in phase 22 to the number of 
O-routines generated to initialize an 
item in Working-Storage or in a file 
containing an OCCURS clause with the 
DEPENDING ON option. A Q-routine is a 
subroutine which, at execution time, 
calculates the length of a 
variable-length field created by the 
OCCURS. ..DEPENDING ON option, and the 
location of the variably located field 
which may follow it. It is used in 
phase 60 or 64 to set up table QTBL. 

Set in phase 21 to the number of 
checkpoint requests. It is used in 
phase 60 or 62 to allocate space for the 
CHECKPOINT CTR field of the TGT. Phase 
60 or 62 sets it to the displacement of 
the CHECKPOINT CTR field from the 
beginning of the TGT. 

Used in phase 22 as a counter for 
assigning uniaue identifying numbers for 
secondary base locators (SBLs) . 
Intermediate and final values are stored 
in SBLIMX. In phase 60 or 62 it is set 
to the displacement of the SEL field 
from the beginning of the TGT. 

Used in phase 22 as a counter for 
assigning unique identifying numbers for 
variable length cells (VLCs) . 
Intermediate and final values are stored 
in TLCIMX. In phase 60 or 62 it is set 
to the displacement of the VLCI field 
from the beginning of the TGT. 

Used in phase 22 to assign unique 
identifying numbers to Linkage Section 
base locators. In phase 60 or 62, it is 
set to the displacement of the BLL field 
from the beginning of the TGT. 

Count of source cards whose user-written 
card numbers are out of sequence* Set 
by phases 10 and 11, and used by phase 
70 in error message processing. 

Dictionary pointer for the last 
dictionary entry made in phase 22. 

Dictionary pointer for the last 
dictionary entry made in phase 11. If 
the UPSI feature was used, this cell 
contains instead the last dictionary 
entry made for an UPSI item by phase 22. 
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No. of Displacement 
Cell Bytes Hex Decimal 
WSDEF 7 17C 380 



Purpose 

Set in phase 22 to the last seven bytes 
of the Data A-text element for the 
Working-Storage Section address 
definition r which gives the first base 
locator number and the length of the 
Working-Storage Section. When phase 60 
assigns permanent base registers for 
base locators, it uses this information 
because it assigns base registers to the 
Working-Storage Section first. When OPT 
is specified r this field is not used 
since base registers are assigned 
differently. 



ERRSEV 



183 387 



DICADF 


4 


184 


388 


DLSVAL 


^ 


188 


392 


DICPTR 


1 


18C 


396 


DCPTR 


3 


18D 


397 


RPTSAV 


2 


190 


400 



SA2CTR 



LCSECT 



RGNCTR 



ERF4SW 



PTYNO 



2 192 402 

4 194 404 

2 198 408 

1 19A 410 

1 19B 411 



Name Bytes M eaning 

WSSTRT 3 Starting address of 

workingv storage 
WSBL 1 BL number assigned to 

beginning of the 

Working-Storage Section 
WSSIZE 3 Number of bytes occupied 

by the Working-Storage 

Section 

Set by phases 21 and 51 to the highest 
error severity level encountered in any 
phase. 

ACCESS communication cell (see "Appendix 
A. Dictionary and Table Handling"). 

ACCESS communication cell. 

ACCESS communication cell. 

ACCESS communication cell. 

Set by phase 10 if a Report Save Area is 
needed at execution time. Used by phase 
60 or 62 to determine whether that area 
should be set in the TGT and then set to 
the displacement of the REPORT SAVE 
field from the beginning of the TGT. 

Used to save register 14 in declaratives 
for return. 

Contains the length of the object module 
CSECT. 

Set by phase 60 to the number of unigue 
GNs or, under the optimizer version of 
the compiler, set by phase 51 to the 
number of GNs requiring an address 
constant cell in the PGT. 

Switch used by phases 60 or 62 and 64 , 
and 70. 

Priority number of current section . 
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No. of 
Cell Bytes 
COMMAD 2 



Displacement 
Hex Decimal 
19C 412 



AMOVDC 



SDSIZ 



SEGLMT 



1A0 416 
1A4 420 
1A8 424 



CDRSGN 



DATABDSP 



INDEX1 



1A9 

1AA 
1AC 



425 

426 
428 



lOPTRCTP 


2 


1AE 


430 


TS3MAX 


2 


1B0 


432 


TS4MAX 


2 


1B2 


434 



PLOWS Z 



RPNCNTR 



AGETALL 



IDENTL 



1B4 



1B6 



1B8 



IBC 



509 



ilO 



512 



>20 



Purpose 

Contains a comma followed by a decimal 
point. If the DECIMAL-POINT IS COMMA 
clause is specified, the order of the 
two is reversed; that is, a decimal 
point is followed by a comma. This is 
set by phase 10. 



Address of TAMER routine MOVDC. 
30 uses this cell. 



Phase 



Set by phase 22 to the size of the 
largest SD entry in the program. 

Contains the priority number of the 
highest numbered Procedure Division 
section to be considered part of the 
root segment. Set in phase 10 to the 
value specified in the SEGHENT-LIMIT 
clause or to 49 (hexadecimal 31) . If 
phase 11 finds that the program is not 
segmented, it is set to hexadecimal •??■ 
as an indication to later phases . 

Set in phase 10 to contain the literal 
specified in the CURRENCY-SIGN clause, 
and used by phase 20 to recognize this 
literal. 



Contains displacement into DATATAB, 
by Phase 25 for use by Phase 65. 



Set 



Number of index-names defined in INDEXED 
BY clause. Set in phase 60 or 62 to the 
displacement of the IND field from the 
beginning of the TGT. 

Number of input/output pointers 
resultincf from SAME RECORD AREA clauses. 

Set by phases 50 and 51 to the number of 
bytes needed for temporary storage for 
the SYNCHRONIZED option. 

Set by phase 5 1 to the number of bytes 
needed for temporary storage by table 
handling verbs. 

Set by phase 01 to the number of traces 
reguested for the flow trace option. 
The default is 99. Used by phase 65 to 
fill in the Debug table in the TGT. 

When OPT is specified, set by phase 51 
to the number of PNs requiring an 
address constant cell in the PGT. 

Address of routine GETALL in phase 00. 
This is used by phases 60 and 61 to 
obtain all available table space. 

Set in phase 6 or 64 to the relative 
location of the first executable 
instruction . 
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Cell 
BLCTR 



No. of 

Bytes 
2 



Displacement 
Hex Decimal 
ICO 448 



VNCTR 



1C2 450 



ONCTR 



PFMCTR 



PSVCTR 



XSACTR 



1C4 452 



1C6 454 



1C6 456 



1CA 458 



XSWCTR 



2 ICC 460 



PH6ERR 



2 1CE 462 



Purpose 

Used in phase 22 as a counter for 
assigning unique identifying numbers to 
base locators for files and the 
Working-Storage Section. In phase 60 or 
62, it is set to the displacement of the 
BL field from the beginning of the TGT. 

Used in phase 40 as a counter for 
assigning unique assign unique 
identifying numbers to variable 
procedure-names. In phase 60 or 62, it 
is set to four times the phase 40 value, 
which equals the number of bytes 
occupied by the YN cells. 

Used in phase 51 as a counter to assign 
unique identifying numbers to ON control 
cells. In phase 60 or 62, it is set to 
the displacement of the ONCTL field from 
the beginning of the TGT. 

Used in phase 40 as a counter to assign 
unique identifying numbers to PERFORM 
control cells. In phase 60 or 62, it is 
set to the displacement of the PFMCTL 
field from the beginning of the TGT. 

Used in phase 40 as a counter to assign 
unique identifying numbers to PERFORM 
save cells. In phase 60 or 62, it is 
set to the displacement of field PFMSAV 
from the beginning of the TGT. 

Contains the relative location within an 
EXHIBIT or SORT Save Area of the next 
area to be assigned. It is used by 
phase 51 in processing EXHIBIT or SORT 
and then set to the total number of 
bytes needed for the Save Area. In 
phase 60 or 62, it is set to the 
displacement of field XSA from the 
beginning of the TGT. (This counter is 
used and then incremented, unlike other 
counters which are incremented and then 
used. The increment is equal to the 
number of bytes in the Save Area used.) 

Used by phase 51 as a counter to assiqn 
unique identifying numbers to EXHIBIT 
first-time switches and special ON 
switches. In phase 60 or 62, it is set 
to the displacement of field XSASW from 
the beginning of the TGT. 

Used by phases 60, 62, 63, 64, and 65 to 
indicate that an error message is to be 
generated by phase 70. Pits 2, 4-7, and 
9*^10 are correlated to messages 
ILA6003I, ILA6005I-ILA6008I, and 
ILA6010T-ILA6011I. Phase 70 checks 
these bits and if a bit is set to 1, the 
corresponding message is generated. 
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Cell 

RELLOC 



GTLNG 



VNILOC 



VNLOC 



SUBCTR 



No, of Displacement 

Bytes Hex Decimal 

^ IDO 464 



1D4 468 

1D6 470 

1D8 472 

IDA 474 



PARMAX 



SPACING 
PRBLNUM 

CORESIZE 

INDEX 

FIL5BUF 

ADATAB 

DATATBNM 
OBODOTBN 

NODECTR 
PROCCTR 
AMICTR 



IDC 476 



1 IDE 478 

1 IDF 479 

4 lEO 480 

4 1E4 484 

4 1E8 488 

4 lEC 492 

2 IFO 496 
2 1F2 498 

2 1F4 500 

2 1F6 502 

2 1F8 504 



Purpose 

Set in phase 6 or 6 2 to the relative 

location, within the object module or 

root segment, of the beginning of the 

TGT. 

Set in phase 6 or 6 2 to the length of 

the TGT. 

Set in phase 6 or 62 to the relative 
location of the VNI field from the 
beginning of the PGT- 

Set in phase 60 or 62 to the relative 
location of the VN field from the 
beginning of the TGT. 

Used in phase 40 as a counter to assign 
unique identifying numcers to 
subscripted references. In phase 60 or 
62, it is set to the displacement of the 
field SUBADR from the beginning of the 
TGT. 

Set in phase 51 to the size of the 
parameter area needed for parameter 
lists for macro instruction expansion of 
some of the source statements- In phase 
60 or 62^ it is set to the displacem.ent 
of the PARAM field from the beginning of 
the TGT. 

Set by phase 01. Used for statistics. 

Set by phase 62 to indicate the number 
ot Procedure Block Cells in the PGT if 
the optimizer option (OPT) is specified. 
Phases 63 and 64 use this information. 

Set by phase 01. Used for statistics. 

Number of index names. 

Used by phase 01 to store the address of 
SYS005 buffer. Used by phases 25 and 
65. 

Note address for first block of the 
DATATAB table on SYS005. 

Number of DATATAB blocks on SYS 005. 

Total number of bytes used for OBODOTAE 
entries on SYS005, including the slack 
bytes needed to align each OBODOTAB 
entry on a fullword boundary. 

Number of node counters. 

Procedure-name counter. 

Used by phase 21 as a counter for 
assigning unique identifying numbers for 
File Information Blocks (FIBs). Phase 
60 or 62 sets the field to the 
displacement of the FIB field from the 
beginning of the TGT. 
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TIME 



8 



PH7L0D 4 

CRDNUMXX 2 

DTFNUM 1 

SDTFCTR 2 

DTFNOXX 2 



Cell 

FSTCDNMl 


No. Of 
Bytes 
2 


Displacement 
Hex Decimal 
IFA 506 


Purpose 
Number of 


CCB cells. 


SWITV2 


1 


IFC 


508 


Switch 

Name 
COMPAT 
MRGBIT 
CNTFDECL 


Bit 


1 
4 


Meaning 
ANS Version 2 
MERGE specified 
Phase 11 found a 
declaratives card. 




3 


IFD 


509 


Unused 






TMCNTBSZ 


4 


200 


512 


Size of timer count table- 




2 


204 


516 


Reserved 






CCBLOC 


2 


206 


518 


Displacement of 


first CCB cell. 


AMILOC 


2 


208 


520 


Reserved 






INTVIRT 


2 


20A 


522 


Initial routine 


virtual number. 


LOCTMCTT 


^ 


20C 


524 


Start of 


timer < 


20unt table. 




2 


210 


528 


Unused 






LISTERSW 


1 


212 


530 


Lister option switch. 










Name 

LSTRDECK 

LSTRCPCH 

LSTRCOMP 

LSTRONLY 

LSTRPRC2 


Bit 

1 
2 
3 
4 


Meaning 

Lister source deck 
Lister copy deck 
Lister and compile 
Lister only 
Two-column Procedure 
Division listing 




45 


213 


531 


Unused 






PI'iAPADR 


4 


240 


576 


COBOL entry add] 


tress. 


BUFSIZE 


4 


244 


580 


Size of buffers for compilation work 
files. Used for statistics. 


DATE 


8 


248 


584 


Set by ph 


ase 01 


to the date of 



250 592 

258 600 

25E 606 

25F 607 

260 608 

262 610 



compilation. 

Set by phase 01 to the time of the start 
of compilation. 



Used ^y phases 62 and 64 in sequencing 
the object deck. 

Used in phase 21 as a counter for 
assigning unique identifying numbers to 
DTFs. 

Used in phase 21 as a counter for 
assigning unique identifying numbers to 
secondary DTFs. 

Used by phases 62 and 64 to calculate 
the relative address of DTF cells from 
the beginning of the TGT. 



282 Section 5. 



Data Areas 



Licensed Material - Property of IBM 



No. of Displacement 
Cell Bytes Hex Decimal Purpose 

DNCNT 4 264 612 Number of data-names for statistics. 

Set by phase 10- 



VRBCNT 



CURCRD 



268 616 Number of verbs for statistics- Set by 
phase 11- 

26C 620 Contains the compiler-generated card 

number of the text item currently being- 
processed. If the text item is a verb, 
the high-order bit of CURCRD is on- 
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No. of Displacement 
Cell Bytes Hex Decimal Purpose 

SWITCH 2 26E 622 Contains TPACE^ DEBUG, SYMDMP, and 

Q-routine information. 



Name Bit 
SWTRCE 



DELDSW 1 



DSIDSW 2 



SPILL 3 

j^LDsw a 



MQVi^R 5 

LDECLSW 6 

MOFILE 7 

SYMIEP 8 



SYS5TD 



SORTPTN 10 
PERUNN 11 

SORTSW 12' 



Meaning 

Set by phase 11 if TRACE is 

encountered so that phase 

40 will generate TRACE 

coding at each 

procedure-name definition. 

Set by phase 1 1 if there is 

a DISPLAY on SYSLST in a 

LABEL declarative. Tested 

by phase 51 to determine if 

a call to subroutine 

ILBDASYO should be 

generated. 

Set by phase 11 if there is 

a DISPLAY on SYSPCH in a 

LABEL declarative. Tested 

by phase 51 to determine if 

a call to subroutine 

ILBDASYO should be 

generated. 

Used if SYMDMP needs note 

or point on SYS005. 

3et by phase 1 1 if there is 

an ACCEPT in a LABEL 

declarative. Tested by 

phase 51 to determine if a 

call to subroutine ILBDOSYO 

should be generated. 

Set by phase 22 if it 

builds a QVAR table. 

Set by phase 11 if there is 

a LABEL declarative. 

Set by phase 22 if it 

builds a QFILE table. 

Set by phase 25 if there is 

an internal floating-point 

data item and SYMDMP is 

reguested. Tested by phase 

60 to determine if a 

virtual for subroutine 

TLBDTEF3 should be 

generated. 

Set by phase 01 if SYS005 

is on tape. Tested by 

phase 65 to determine if a 

WRITE UPDATE can be done on 

SYS005 if it is a disk 

file. If SYS005 is a tape 

file, copy SYS005 

information on SYS002 and 

then recopy on SYS005. 

Set by phase 30 if the sort 

RETURN verb is specified, 

and used by phase 51. 

Set by phase 10 if RERUN is 

specified, and used by 

phases 21, 51, and either 

60 or 62 and 64. 

Set by phase 10 if SOFT is 

specified. 
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No. of Displacement 
:ell Bytes Hex D ecimal Purpose 



Name 
NOFITSff 



D0PH7 



Bit Meaning 

13 Phrase 70 must read SYS003 
for R-text, since KRjRTBL 
exceeded 256 bytes and has 
to be spilled. 

14 Tested by phase 60 or 62 or 
6^ to determine whether to 
call phase 70. 

RDERRFIL 15 Set by phase 60 or 64 if it 
did no processing. Tested 
by phase 70 to determine if 
SYS004 is to be read to 
find E-text. 



PHZSW 



270 624 Set by phase 01 from the compilation 

options. If the bit is on, the option 
was chosen. 



Name 


Bit 


LIST 





LISTX 


1 


DECK 


2 


LINK 


3 


SEO 


^ 


FLAGW 


5 


LIBR 


6 


ERRS 


7 



PHZSW1 



271 625 Same as PHZSW for additional options. 
Phase 10 sets BPTWR on if a Report 
Section is encountered. 



Name 
XREP 


Bit 



CLIST 


1 


SYM 


2 


FLOW 


3 


RPTWR 


4 


APOST 


5 


MAPSP 


6 


TRUNC 


7 



(Not a compiler option r 
this bit is tested to 
determine whether to load 
phase 12) . 

(SDPMAP) 



PHZSW2 



272 626 



Same as PHZSW for additional options. 



PHZSW3 



273 



627 



Name 


Bit 


SXREF 





STXTT 


1 


ZWB 


2 


CATALR 


3 


[unused ] 


4 


SYMCAN 


5 


STATE 


6 


SYMDMP 


7 


Same as ; 


PHZSW 


Name 


Bit 


OPT 





SYNTAX 


2 


CSYNTAX 


3 


VFRBR 


7 
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Cell 

PHZSW4 



No. Of 
Bytes 
1 



Displacement 
Hex Deciinal 
274 628 



Purpose 

Same as PHZSW for additional options. 



Name 


Bit 


VERBSUM 





VERBREF 


1 


COUNT 


2 


Reserved 


3 


LVL 


U 



PHIBYTE 



275 629 Switch for phases 10, 11, 22, 21, 50, 
51, 62, and 63. 

Name Bit Meaning 
Unused 

ADRSYM 1 Set by phase 51 when SYMDMP 
is in effect and a call to 
the ILEDVMOO subroutine has 
been generated. Phase 60 
tests the bit and generates 
a call to the JLBDADRC 
subroutine if the bit is 
set to 1. 

OPTDISP 2 Set by phase 50 if OPT is 

specified and a call to the 
ILBDDSPO subroutine is to 
be generated. Phase 51 
tests the bit and generates 
the call if the bit is set 
to 1. If the bit is set to 
0, phase 51 generates the 
call to ILBDDSSO. 

QRTNIPBL 3 Set to 1 by phase 6 2 if all 
Q-routine GNs are contained 
in 1 Procedure Block. If 
phase 63 finds this bit 
turned on, it does not 
generate load instructions 
of register 11 for branches 
to Q- routines. 

S370IN ^ Set to 1 by phase 10 if 

object-computer paragraph 
specifies IBM-370- Used by 
phases 50 and 51 to 
generate System/37 
instructions. 

DBLBUFIS 5 Set to 1 by phase 22 if 

there is an ISAM file with 
no RLSERVE NO clause which 
is opened input or I-O. 
Phase 21 tests to determine 
what module name to use for 
ISAM files. 

EOPPHl 6 Set to 1 if phase 10 

encounters an end-of-file 
condition in the source 
proQram. 

UPSIBT 7 Set to 1 if an UPSI clause 
is specified. 

The remaining bits are unused. 
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No. of Displacement 
Cell Bytes Hex Deciinal Purpose 
SWITCHIX 1 27 6 Compiler internal switch byte 



Nam.e Bit Meaning 

RENAMON Set to 1 by phase 22 if 

RENAMTB exists. Tested by 

phase 25. 
OCCTBON 1 Set by phase 22 if OCCTBL 

exists. Tested by phase 

25. 
DICTSPIL 2 Set by phase 00 if 

dictionary spill occurs. 

Used for statistics - 



SRTRERUN 



IPRECS 



8 277 631 

1 27F 639 

4 280 640 



File-name and logical unit number of 
file used for SORT checkpoint. 

Unused 

Number of source cards for statistics. 
Set by phases 10, 12, 11. Used by phase 
60 or 64. 



AHSEGMSG 



LNCOUNT 



284 644 



288 648 



Address constant of header line in phase 
00. Used by phase 60 or 64. 

Number of lines per page of compilation 
listing. Set to 1 by phase 01; used for 
statistics. 



ATPLENT 



2 28A 650 
4 28C 652 



Unused 

Length and address of Phase Length 
table- 



14 



290 656 



Unused 
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TABLE FORMATS 



This Chapter contains descriptions of 
all tables handled by the TAMER routines of 
Phase 00 r whether built, used, and released 
within a single phase or passed to a later 
one. These tables differ from others in 
that additional storage can be obtained for 
them and they occupy space in the TAMER 
area rather than within a phase. Their 
descriptions are not intended to be 
complete / but to provide a quick reference 
to which phases use a table and for what 
general purpose. More explanation is 
provided in the chapters on the individual 
phases. 

The tables are arranged in alphabetical 
order. Each description includes the TIB 
number (where applicable) and the format of 
an entry in the table. The TIB is 
explained in "Appendix A. Table and 



Dictionary Handling." The following notes 
apply to the format diagrams in this 
chapter: 

• The top row of figures shows the number 
of bytes in the field . 

• Shaded areas indicate optional fields 
or a series of similar fields. 

• n = the total number of bytes to follow 
in the entry. 

• c = the number of bytes in the 
following field. 

• Individual notes, applying to 
particular fields, are numbered 
consecutively with the numbers 
encircled. 



ASCTAB 
(TIB 10) 



Purpose 

Store address constants 

of DTFs for associated 

files when 3525 device 

if specified in ASSIGN 

clause. 

Entry Frequency 

One entry for each DTF 

for an associated file. 



1 



1 



Process- I System unit | Device 
ing byte I (SYSnnn) jcode 
I for associ-| 
lated file I ^-. 
I I © 



I 1 I 



-h 



-h 



Kopper IType IType off Address 

select I of |associ-|of DTF 

I file I ation j 

I ©I © I 



Phases Involved 
Phase 21 builds and 
uses this table 
for generating 
address constants 
for each DTF for 
an associated file. 



I Address of 
I address 
I constant 
I in this 
I DTF 




© 



Code Meaning 

00 R (READ file) 

01 P (PUNCH file) 

02 W or M (WRITE file) 



© 



Code Device 
80 3525 
ao 2560 



© 



Code Meaning 

80 V (READ, PRINT) 

40 X (READ, PUNCH, PRINT) 

20 y (READ, PUNCH) 

10 Z (PUNCH, PRINT) 



© 



Code Meaning 
80 Primary hopper 
40 Secondary hopper 
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BLTABL 
(TIB 27) Purpose 

Associate DTF numbers 

with buffers. 

Entry Frequency 

One entry for each FD 

in source program. 



I 



-f- 



I 



-+- 



I 1 I 



-+- 



H 



DTF I Buffer I Adjustment | FLAG | 

number I area j factor | ^-^ j 

inujoberl | (Y) | 

10 1 II 







© 



Bits 


1-6 

7 



Phases Involved 

Phase 21 builds and 
uses when generating 
buffers to determine 
how to initialize the 
base locator for each 
file. 

Meaning r if ON 
VSAM file 
(Not used) 
File is single buffered and 

unblocked/ or indexed 

seguential. 
X»01" for VSAM file 



BLASGTBL 

(TIB 16) Purpose 

Assign object-time 
permanently loaded 
registers. 

Entry Frequency 
One entry for each 
register: 6-10. 



Phases Involved 

Phase 62 builds this table 
using the BLUSTBL table. 

Phases 63 and 64 use the 
information to determine 
which BL or BLL or OVERFLOW 
CELL is in a permanent 
register. 

The type cell contains one of the 
following hex values: 



1 1 1 1 1 

I.I 1 


1 1 1 
1 Type cell | BL, BLL, I 
1 ^^ j or overflow j 
1 (Y) 1 number | 



© 



Code 


Meanina 


FF 


TGT overflow 


PC 


PGT overflow 


00 


data BL 


01 


data BLL 



Overflow cells for the TGT and PGT 
are assigned registers first. Since 
the number of PROCEDURE BLOCK ADDRESS 
cells has not yet been determined, it 
is impossible to know if another OVER- 
FLOW cell will be reguired for the PGT. 
Therefore, phase 62 assigns registers 
6 - 9 to the known OVERFLOW cells and 
to the most used data BLs and BLLs 
and reserves register 10 for the pos- 
sible PGT OVERFLOW cell. If no OVER- 
FLOW cell is needed, register 10 is 
assigned to the next most used data 
BL or BLL. 
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ELUSTBL 

(TIP 10) Purpose 

Contains a count of 
the references to 
each BL and BLL, 

Entry Frequency 
One entry for each 
BL and BLL assigned 
to the Data Division . 




BLVNTBL 
(TIB 23) 



Phases Involved 

Phases 50 and 51 build this 

table during the scan of 

P2-text. 
Phase 62 uses this table to 

assign registers to the 

most used data BLs/BLLs. 

BLs 1 through n are followed 

by BLLs 1 through m. 



Purpose 

Optimize generation 
of instructions to 
return control 
from a performed 
procedure to the 
GN return point. 




+ 



YN number | Block | 

I number j 

I I 



Entry Frequency 
One entry for each EXIT 
statement in the range 
of a PERFORM statement. 



BUFTAB 
(TIB 29) 



Phases Involved 

Phase 62 builds this table 
during Optimization A-text 
processing upon reading a 
GN PERFORM (24) element. 
It fills in the block num- 
ber during Procedure A-text 
processing upon reading the 
VNREF element which follows 
the C004 element at the 
PERFORM EXIT. 

Phase 63 uses this table to 
determine whether the GN 
return point (COOS) is in 
the same block as the EXIT 
statement and thus which 
Procedure Block is contained 
in register 11 on return from 
the performed procedure. 



Purpose 

Store adcons to buffers 

for files. 



Entry Frequency 
One entry for each 
address constant for 
for an I/O area that must 
be filled into a DTF. 



DTF 
number 



DTF jSAME ISAME 
number I AREA jRECORD 
I number I AREA 

I I 
I I number 
I I 



1 I 



Flag I 
byte I 
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© 



Bits 
0-1 



2-4 



Phases Involved 
Phase 21 builds and uses 
for buffer generation. 

Contents! 

Size^ minus ^, of DTF 

field receiving new 

(generated) address 
Alignment of generated 

area 

000 = at doubleword 



I 1 1 

I Address of | Adjustment | Maximum 
JDTF field lvalue (with jarea for 
jsign) for jthis gen- 
jarea address jeration or 
I I DTF 



lor FIB 
I field 

! (!) 



001 



at doubleword + 1 



© 



111 = at doubleword + 7 
5-7 Unique area number for 

individual area within a 
file 
1 X»01» for VSAM file 

The address, relative to the beginning of the object module, of either the DTF field receiving 
the generated address or, for VSAM, the FIB field (IRECOBL) receiving the displacement in the 
TGI of the record's first BL cell. 



CARDINDX 
(TIB 11) 



Purpose 

Store information about 
the first card number for 
each program fragment 
and user-written 
discontinuity within a 
segment for use by the 
COBOL library subroutines | 
when SYMDHP is specified. ^ 

Entry Frequency 
One entry for each 
program fragment and one 
entry for each non- 
contiguous section other 
than the first within a 
segment. 



I Card/verb number 
I for first card 
I in this aroup 
I 



© 



I Priority | Relative 
I fragment 
I number 
I within this I 
I priority 
I 



© 



Phases Involved 

Phase 65 builds this table 
while reading SYS002 and 
building the PROCTAB 
table. 

Phase 65 writes this table 
on SYS005 and COBOL 
library subroutines use 
this table to relate card 
numbers to entries in 
the PROCTAB table. 

Bits Contents 
0-19 Card number 
20-23 Verb number 

(verb number is always or 1) 
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CKPTBL 
(TIB 8) 



Purpose 

Save RERUN statement 
information from source 
program scan. 

Entry Frequency 
One entry for each 
RERUN statement. 



I 



h 



I 



-f- 



I External- 1 SYS jCKPT |DTF number I Number 

I name or (number | counter | |of records 

jSYSxxx I I number | | 

I I I I t . 



Phases Involved 

Phase 10 builds this table 

from RERUN statement in 

source program. 
Phase 21 adds DTP number 

and checkpoint counter 

number. 
Phase 51 uses to generate 

coding to count and test 

••integer" with RERUN 

file OPENS, READS and 

WRITES. 



CNTLT3L 







© 



Purpose 

Sorts data-names and 
procedure-names for the 
SXREF option. 



h 



I 



(Pointer to (Pointer to (Pointer to 
(associated (CONTROL (CONTROL 
Entry Frequency (DATA record (record for (record for 

One entry (CONTROL record) ( (lower name (lower name 

for each DEF-text element. ( (on first (on next 

( (compare (compare 

Phases Involved » ' ' — ' 

Phase 61 builds and uses 
this table to reorder 
data-names and procedure- 
names alphabetically for 
the SXREF option. 

There is no TIB for this table. 
Phase 61 uses the phase 00 routine 
GETALL to get space, but moves data 
in and out of the table by itself. 



CONDIS 
(TIB 14) 



Purpose 

Store DISPLAY literals 
during literal optimiza- 
tion. 

Entry Frequency 
One entry for each 
unigue DISPLAY literal. 



( Variable 
I 



I 

( Literal 

I 



Phases Involved 

Phase 60 or, when OPT is 
specified, phase 62 builds 
this table while process- 
ing Optimization A-text. 

Phase 60 or phase 62 uses 
this table with CONTBL 
and LTLTBL tables to 
eliminate duplicate 
DISPLAY literals. 
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CONTBL 
(TIB 9) 



Purpose 

Store each non-DISPLAY 
literal value during 
optimization of literals. 

Entry Frequency 
One entry for each 
unique nan-DlSPLAY 
literal . 




Phases Involved 

Phase 60 or, when OPT is 
specified r phase 62 builds 
this table while process- 
ing Optimization A-text. 

Phase 60 or phase 62 uses 
this table with CONDIS 
and LTLTBL tables to 
eliminate duplicate 
non-DISPLAY literals. 



CTLTBL 

^(TIB ^^) Purpose 

Store information on 
control names to check 
validity and build 
routines using them. 

Entry Frequency 

One for each control 

name. 



2 I 
h 



r- 

1 I 



-h 



n (Duplicate Jb'ave name |Flag|Level |GN number 
I name (-nnnn) | (-nnnn) in | byte | of this | for control 
I in EBCDIC I EBCDIC | |control | heading 

! ! G) I ©! ! 



Phases Involved 

Phase 12 routine RDSCAN 
builds this table. 

Phase 12 routine GNSPFT 
and most other routines 
use this table to 
create CTB-ROUT, 
SAV-ROUT, and RET-ROUT 
routines. 



|GN number for 
[control foot- 
ling 

I 
I 
I 



© 



© 



2 



Unused ISize of 
I previous 
(entry 
I 
I 
I 



Variable 



I Control-name includ- 
|ing qualifiers, 
(indexes, and sub- 
(cripts, if any, in 
jpo-text form. 
f 



In PO-text form: 

Bytes Contents 

23 

1 05 

2 - (hyphen) 
3-6 nnnn 

Bit Meaning r if on 

Control-name is subscripted or indexed 

1-2 Unused 

3 Control footing specified 

4-6 Unused 

7 Control heading specified 
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CVIRTB 
(TIB 12) 



Purpose 

Store virtual name from 
definition elements dur- 
ing virtual optimization. 

Bntry Freguency 

One entry for each unigue 

virtual. 



I 

Virtual I 



Phases Involved 

Phase 60 or, when OPT is 
specified y phase 62 makes 
an entry when it finds a 
virtual definition during 
Optimization A-text 
processing. 

phase 60 or Phase 62 uses 
this table with the 
VIEPTE table to elim- 
inate duplicate refer- 
ences to virtuals. 



DATATBL 



© 



© 



Purpose 

Store information for 

XREF or SXREF processing. 

Entry Freguency 

One entry (DATA record) 

for each BEF-text element. 

Phases Involved 

Phase 61 builds and uses 

this table in producing 

an XREF or SXREF 

listing. 



There is no TIB for this table . 
Phase 61 uses the Phase 00 
routine GETALL to get space, but 
moves data in and out of the 
table by itself. 



I 



33 



■+- 



I Pointer to | External name in EBCDIC, | Ascending 
I dictionary | defining card number, and | source order 
I entry for |a variable number of | pointer 
, jdata-name or|card numbers referring j (SXREF only) 
|PK number |to name | 



-f- 



-+- 



I Descending I Offset in bytes | Pointer | Length! Pointer 
j source jfrom start of |to cur- |of I to first 
I order | record to loca-|rent |exter- 1 OVERFLOW 
I pointer jtion for the j (last) | nal j record 
I (SXREF I next card num- | OVERFLOW [name | 
I only) jber referring | record | | 
I I to name | 1.1 
I I I I I 



DBGTBL 
(TIB 13) 



Purpose 

Store information on 
procedure-names referred 
to in DEBUG statements. 

Entry Frequency 
One entry for each pro- 
cedure-name referred to 
by DEBUG. 



Phases Involved 

Phase UO builds this table 

from PNs in Pi-text referred to 

in DEBUG statements and 

from GNs from GNCTR in 

COMMON. 
Phase 40 uses this table 

to issue P2-text CALL 



PN number 

for procedure-name 



H 1 

|GN number for debug | 
I procedure associated! 
I with procedure-name j 
i I 
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statements to DEBUG 
procedures. 



DEPSBS 
(TIB 18) 



Purpose 

Store subscript-defining 
string until all sub- 
scripts in statement are 
collected. 

Entry Frequency 

One entry for current 

string being built. 



1 1 1 Variable 

hH 

I I First 
I c| element 
I I in string 



; 1 1. (tariai>le \ 

refeie^m^ii'tr^' 
;|;V|i»' string.) 



DETTBL 
(TIB 17) 



Phases Involved 

Phase 40 builds this table 

from Pi-text of subscripted 

data-name. 
Phase 40 uses this table 

with STRING table to issue 

P2-text subscript strings. 



Purpose 

Store information on 

detail report group for 

processing SUK,..OPON 

clauses and generating 

detail-names. 

Entry Frequency 

One entry for each detail 

report group. 



30 



I Detail report 
I group data- 
jname ^->. 

I © 

I 
I 



Phases Involve d p- 

Phase 12 builds this table | 
from scan of 01 -level J- 



jGN number for 
lUSM-ROOT 



1 I 
— h 



|GN number 

I for this 
^^ I detail 
(2) I report 

I group 

I 



T" 

1 I 
h 



I Displacement of 
^^ I entry in RWRTBL for 
(3) I report-name 

I associated with 

I this detail report 

I group 



®i© 



statements. 
Phase 12 uses this table 

to process SUM... UPON » 

clauses, and to generate ^.^ 

USM-ROUT. njLeft- justified, padded with binary zeros in 

Phase 11 uses this table low-order bytes. 

to generate detail-names.^^ 

(2) Length of the detail report group data -name. 

(3) Code for correlating SOURCE and SUM... UPON clauses. 

Code Meaning 

00 This entry was made as the result of a 
detail report group encountered. 

FF This entry was made when an UPON clause was 
encountered. (This code is changed 
to 00 when a detail report group is 
encountered for the data-name.) 



© 



Code for unique detail-name. 

Code Meaning 

00 This entry was made as the result of a 

unique detail group data-name. 

01 This entry is a non-unique detail group 

name that must be gualified. 
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DICOT 
(TIB 20) 



© 



Bits 

1 
2 
3 



4-7 



\5J First entry in table is a dummy. 



1 I 
-4- 



3 I 8 I 

(l) I Displacement I (5) | 
I of section in| | 
I dictionary j j 



Purpose 

Store starting address 

of each section in the 

dictionary. 

Entry Frecyuency 
One entry for each 
dictionary Section - 



Phases Involved 

Phases 11 and 22 build as they 

build the dictionary. 
Phases 11, 22, 21, 25, and 30 use 

to find dictionary sections. 

Meaning r If ON 

Section has been spilled 

Section is now in main storage 

Section has been updated 

A section, which had been spilled and 
read back into storage, has been 
modified and the copy on the 
external device is obsolete. 

Not used. 



(2J Address on disk where section has been 
spilled, if it was ever spilled. 



DRPTBL 

(TIB 24) Purpose 

Optimize the use of 
temporary registers 
14 and 15. 

Entry Frequency 
One entry for each BL, 
BLL, S3L, SBS, or BDISP 
address increment if it 
is not assigned a 
permanent register and 
if a temporary register 
is unavailable. 




© 



Phases Involved 

Phase 62 builds this table 
and keeps the entries 
until a decision is made 
as to which temporary 
register, 14 or 15, 
should be used. 



Code 


Meaning 


80 


BL 


40 


BLL 


20 


SBL 


10 


SBS 


08 


BDISP address increment 



(code values are in hexadecimal) 
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DRPLTBL 

(TIB 25) Purpose 

Store information for 
addressing BL^ BLL, SBL, 
SBS, or BDISP address 
increment items. 

Entry Freguency 

One entry for each of 

the above items if it is 

not assigned a permanent 

register. 



1 bit 



I 



1 bit 



1— 

= Load instruction | 

required j 1 

1 = No load instruction | 

required | 



Register 
Register 



mi 

151 



Phases Involved 

Phase 62 builds this table 
during Procedure A-text 
processing. 

Phase 63 uses this table. 
If a load instruction is 
to be generated, it generates 
the instruction and inserts 
the proper temporary 
register to address the 
item. If no load instruction 
is to be generated, it uses 
the proper temporary register 
as the base in the 
instruction . 



ENVTBL 
(TIB 3) 



Purpose 

Store file information 
from Environment Division 
to be merged with Data 
Division information to 
form Data IC-text. 

Entry Frequency 

One entry for each file. 

Phases Involved 
Phase 10 builds this 

table from Environment 

Division. 
Phase 10 uses this table 

to merge with Data 

Division information 



I 



-+- 



-H 



■+- 



I Compiler- | Either external |nnn | Flag 
I generated jname (if specified) jfrom SYSnnn | field 
I source card | or SYSnnn | portion of | ^^ 
I number | | file-name in| (jy 
I I I binary | 
I I I I 




Buffer I Pointer to {Device organiza- 
offsetjentry in jtion codes for 

JPIOTEL I associated files 

10 1 @ 



Flag 
field 

Q 



I 



■+- 



f 



I 



H- 



■+- 



Unused I Number | Pointer to | Number |Flag 
I of SORT I entry in j assigned | field 
I work ICKPTBL |to SAME U^ 
I units I I AREA (V) 

I I (2) I clause I 
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1 I 

-f- 



-h 



-f- 



8 11 



5 I Number assigned | Integer in 
I to SAME RECORD | MULTIPLE 
I AREA clause 
I 



I Number of 
{tracks for 

I FILE . . . POSITION I CYL-OVERFLOW 

(clause I 

I I 

I I 

I I 



Device I Device (Number assigned 



type 
code 

© 



(number (to SAME SORT 
(of (AREA clause 
(highest ( 
(index ( 

( © I 



6aJ (c 
I 

( 



30 



I 



( 



1 1 1 1 

TRACK (NOMINAL (ACTUAL (RECORD (Pointer to data -name 
AREA (KEY and (KEY and (KEY and (qualifiers from APPLY 
size ( qualifiers ( qualifiers j qualifiers ( option 

( ' ( ^-^ I ' ^^ I (APPLY CORE-INDEX) 

@ I Cz) I Cz) I I 



File-name 
in FD entry 



( 



h 



I 



I 



+ 




(Pointer to (File (Password 

(dn qualifiers (status and (and 
(from APPLY ( qualdj^ers ( qualifiers 
(option 10 1© 



CD lii 


1-3 



4-6 



© 



8 
9 
10 
11 
12 
13 
14 
15 



Meaning 

1 = RANDOM ACCESS 

Organization 

000 = Not specified 

001 = INDEXED 
010 = DIRECT 
100 = RELATIVE 

Device Class 

000 = Not specified 

001 = DIRECT-ACCESS 
010 = UNIT-RECORD 
100 = UTILITY 

1 = No RESERVE 

ALTERNATE AREA 
1 = SELECT OPTIONAL 
1 = SAME AREA specified 
EXTENDED-SEARCH 
SAME RECORD AREA specified 
SAME SORT AREA specified 
1 = CKPTBL pointer exists 
1 = PIOTBL pointer exists 
•ALTERNATE' specified in 
RESERVE clause 



Bits 
1 

2-4 



Displacement of entry in table. 

Device organization codes for 
associated files 

Bits Meaning 
1 = AS specified in ORGANIZATION 
parameter of system-name 



(3) Bit 

1 

2 
3-4 



5-6 



M eaning 

1 = No organization parameter 
specified in system-name 
ORGANIZATION clause 



Code 

000 

001 

010 

100 



Meaning 

Not specified 

SEQUENTIAL 

INDEXED 

Reserved 



ACCESS MODE IS DYNAMIC 

Unused 

PASSWORD data-name specified 

with RECORD KEY or for the file. 



Meaning 

1 = COPY 

Unused 

RECORD CONTAINS clause 

BLOCK CONTAINS integer 

00 = Not specified 

01 = RECORDS 

10 = CHARACTERS 
LABEL RECORDS 

00 = Not specified 

01 = STANDARD 

10 = OMITTED 

11 = Data-name 

1 = REPORT clause 
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G) Bit 
0-1 



© 



2 
3 

a 

5 
6 
7 
8 
9 
10 

11 
12 
13 
14 
15 



© Bits 
0-3 



5-6 
7 



Code 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

m 

15 
16 
17 
18 



Meaning 






19 


3881 


TRACK AREA 






20 


Unused 


00 = Not specified 






21 


5425R 


10 = Integer 






22 


5425P 


Unused 






23 


5425W 


1 = NOMINAL KEY 






2^ 


Unused 


1 = ACTUAL KEY 






25 


2560R 


1 = RECORD KEY 






26 


2560P 


1 = WRITE ONLY 






27 


2560W 


FILE STATUS clause specified 




28-30 


Unused 


1 = WRITE VERIFY 






31 


2311 


CYL-OVERFLOW 






32 


Unused 


•integer* of RESERVED 


clause not 




33 


2314 or 2319 


in valid range 






34 


2321 


MULTIPLE REEL/UNIT 






35 


3340 


MULTIPLE FILE TAPE 






36 


3540 


MASTER-INDEX 






37-39 


Unused 


CYL-INDEX 






40 


2400, 3410, or 3420 


Unused 




© 










Byte 


Meanina 


Contents 




35 


Count of ALTERNATE : 



Temporary storage for Phase 10, 
Phase 11, or the number of 
nonstandard reels. 

CORE-INDEX 

Unused 

•integer" of ASSIGN clause not 

in valid range 

Device 

1442R 

1442P 

2520R 

2520P 

2540R 

2540P 

2501 

1403, 5203, or 3203 

1404 

1443 

1445 

3211 

3505 or 3504 

3330 

3525R 

3525P 

3525W or 3525M 

Unused 







clauses 
36-37 INDTBL displacement, the dis- 
placement to the first entry 
associated with this file 
(that is, if any ALTERNATE 
RECORD KEY clauses appear 
under the select) 



38 



39 



3-7 

Bit 



1 
2-7 



40-42 

Bytes 
0-1 



2-3 



Meaning 

Incorrect class 

Incorrect device 

Incorrect organization 

parameter 

Unused 

Meaning 
Assigned 
Assigned 
Unused 

Unused 



Contents 

Length of name (s) in bytes 
(or binary literal if TRACK 
AREA is specified) 
Displacement of name in QNMTBL 
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ERRTBL 
(TIB 10) 



Purpose 

Store E-text to separate 
it from Data A-text for 
phase 70. 

Entry Frequency 
One entry for each mes- 
sage to be generated. 



8 



I 1 



(1 



{Variable 
4- 



[E-text 1 00 
[for basic I 
j message | 



\c 



(First 
I message 
[parameter 



I 1 I 
4- 



1 1 

1 {Variable ) 

1 1 

I 00| c jLast ) 
I I I message | 
I I [parameter I 



Phases Involved 

Phase 60^ or when OPT is 
specified, phase 64 build 
this table from Data A-text. 

Phase 70 uses this table 

to generate error messages. 



© 



© 



Table ends with one-byte element X»77' 



FDTAB 
(TIB 28) 



Purpose 

Pass record description 
information from phase 
22 to 21. 



Entry Frequency 

One entry for each FD in 

source program . • 

Phases Involved 
Phase 22 builds from 

Record Descriptions in ATF-text. 
Phase 21 uses to generate 

DTFs and buffers. 



I Maximum I Minimum I First [Flag 
[record [record [base [byte 
[length [length | locator [ ^^ 
[ i [number [ (jT) 



-+- 



-+- 



[ Maximum [ Buffer [Dictionary 
[ label I offset [pointer 
[record [ [ ^,^^ 
[size [ [ (2) 



MJ Bits Use 

0-3 Number of base locators 

4 0D02 switch: ON, if any 

record descriptions 
contained more than one 
ODO clause. 

5 ODO switch: ON, if any record 

description contained an ODO 
clause. 



© 



ODO object switch: ON, if any 
record description contained 
the object of an ODO clause. 

(Not used) 



Used by phase 21 to get dictionary 
attributes when LATRNM returns 
a duplicate code. 



FILTBL 
(TIB 2) 



I 1 f 

[Location to [Name of [ 
[be entered [virtual! 
[on ESD card[ | 



Purpose 

Store virtuals related 

to input/output label- 

or error -processing 

virtuals. 

Entry Frequency 
One entry for each vir- 
tual related to input/ 
output label- or error- 
processing routines. 



Phases Involve d 

Phase 60, or when OPT 
is specified, phase 
62 builds this table during 
virtual optimization . 

Phase 60 or phase 62 uses this table 
to place virtual names in DTFs, 
for example, for SYNAD routines. 



8 



I 
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FNTBL 
(TIB 10) 



Purpose r 

Store Environment Division | 
information about a file f 
for Procedure Division 
processing. 



Entry Frequency 

One entry for each file. 



■+- 



-+- 



-+- 



I Pointer to (Pointer to | Unused |GN number |GN number |GN number 
jPIOTBL entrylGVNMTBL | |for STANDARD|for headerjfor trailer 
I I I I ERROR I labels | labels 
I I 1 I I I 



Phases Involved 
Phase 10 builds this 

table from the ENVTBL 

table and the Data 

Division. 
Phase 12 uses in Report 

Section processing. 
Phase 11 uses this table 

in Procedure Division 

processing. 



I 



1 1 1 Variable 
■4-4- 



■! 

|GN number I GN number | Switch | c| File-name | 
I for EOV I for BOV I byte | |in EBCDIC! 
I labels (labels I CO I I I 



© 



Bit Meaninay if on 

ACCESS RANDOM 

1 Mass storage file 

2 LABEL RECORDS ARE STANDARD 

3 LABEL RECORDS ^P-E OMITTED 

4 BEFORE (in USE statement) 

5 AFTER (in USE statement) 
6-7 Unused 



GCNTBI 
(TIB 24) 



Purpose 

Store card numbers for 
statements that contain 
NEXT GROUP or LINE 
clauses that may be in 
error; also, store card 
numbers for TYPE IS PAGE 
HEADING or TYPE IS PAGE 
FOOTING groups that may 
be in error. 



^ I 



i(T) j Generated card| 
I number 



Entry Frequency 

One entry for each clause 

in error. 

Phases Involved 
Phase 12 builds and uses. 
It makes an entry for 
each clause that con- 
flicts with the PAGE 
LIMIT clause. Entries 
are saved until the end 
of the report, when it 
can be established whether 
these statements are ac- 
tually in error, as sig- 
nalled by the presence of 
at least one relative LINE 
or relative NEXT GROUP clause. 

m) These four bytes contain the 

address of one of the following 
messages: 
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MSG94^ for a NEXT GKOUP clause error 
MSG119, for a LINE clause error 
MSG165, for an illegal PAGE HEADING 
MSG166, for an illegal PAGE FOOTING 



GNATBL 
(TIB 8) 



Purpose 

Determine which GNs 
require an address 
constant cell in the PGT. 



GN number 



Entry Freguency 
One entry for each GN 
requiring an address 
constant cell in the PGT. 

Phases Involved 

Phase 62 builds this table 
from GNDREF elements in 
Optimization A-tcxt. 

Phase 63 uses this table to 
determine whether a GN 
requires an address 
constant cell. 

Phase 64 uses this table when 
determining the address in 
the PGT of the GN cell to 
be used in an instruction. 



GNCALTBL 

(TIB 16) Purpose 

Store GN numbers 
for Q-routines. 

Entry Frequency 
One entry for each 
GN number. 



1 

I Count-1 of 
I 0-routines 
to call 



GN first 
number for 
0-routine call 



Phase Involved 

Phase 51 builds this table 
and uses it to generate 
call to the Q-routines 
after return from the 
CALL statement. 



GNFWDBTB 

(TIB 21) Purpose 

Optimize size of a 
procedure block. 

Entry Frequency 
One entry for each 
forward reference to a 
GN within a Procedure 
Block. 



GN number I Counter 
I 



Phases Involved 

Phase 62 builds this table 
from Procedure A-text. 

Phase 62 uses this table 
to keep count of the 
number of 4-byte load 
instructions of the 
Procedure Block which 
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might be needed if a new 
block is begun before the 
GN is defined. 



GNLABTBL 
(TIB 19) 



GNLBDTBL 
(TIB 27) 



Purpose 

Determine inter-block 

and intra-block 

references. 



Entry Frequency 
One entry for each 



Block 

number for 
GN 



GN. 



Phases Involved 

Phase 62 enters in this 
table the block number 
for each GN as it reads 
Procedure A -text. 

Phase 63 extracts the block 
number in which a GN is 
defined each time a GN is 
referred to^ 



Purpose 

Determine displacements 
from the beginning of 
the block for GN defini- 
tions. 



12 bits 



E ntry Frequency 

One entry for each GN. 

Phases Involved 

Phase 63 builds this table 
during Procedure A-text 
processing. 

Phase 64 uses this table to 
insert the displacement 
in generated instructions 
which address the GN. 



I Displacement 
I from beginning 
I of block for GN 



GNTBL 
(TIB 8) 



Purpose 

Create and store a list 

of optimized GN numbers. 

Entry Frequency 

One entry for each GN 

number. 



I Number relative 
I to beginning of 
|PN cells 



Phases Involved 

Phase 60 builds this table 

from GNCTR and PN and GN 

equate strings. 
Phase 60 uses this table 

to optimize procedure-names 

and process Procedure 

A-text. 
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GPLSTK 
(TIB 10) 



Purpose 

Count length of group 
item while subordinate 
items are being pro- 
cessed. 

Entry Preguency 

One entry for each group 

item being currently 

processed. 

Phases Involved 
Phase 22 builds this 

table from dictionary. 
Phase 22 uses this table 

to determine group item 

length. 



I 



h 



H- 



IFlag I0D2TBL displacement of {Maximum 



I bytes I entry for OCCDBS 
1^^ I DEPENDING ON object 
I CO Ivithin group item 
( I (if none, field 
I I contains zeros) 



I number of 
I occurrences 
I (if none, 
I field is 0) 

f 



I Generated 

jcard 

I number 

I 

I 



I 



I 1 1 

[Pointer to dictionary {Pointer tojMaxiiPum length 
I entry for REDEFINES j dictionary j of variable 
{object within group {entry for [group 
[item (0, if none) {item j 



I 



■+- 



-+- 



-+- 



Level number [Address [Number of index- [Number of[ 
[parameters [names (0, if [keys (0, j 
[ (idk) [none) [if none) [ 



{ 



{Displacement of entry [Displacement of entry [Displacement of 
[for item in INDKEY [for item in SRCHKY [entry for VALUE 



[table (0, if none) [table (0, if none) 

I 



[clause literal 
[in VALGRP table, { 
[if used (0, if 
[not) 



I 1 { 1 



-+- 



4- 



[ Displacement of [Flag [Flag 
[entry for VALUE [byte [byte 
[ clause literal in [ [ 
{VALTRU table, if [ !/->.' 
[used (0, if not) \C2) [ (3j [ 



© 



Bits 


1 

2 

3 

a 



6 

7 

8-11 

12-13 

m 

15-31 



Meaning 
1 = 



group occurs more than once; 

alignment reguired 

contains object of OCCURS DEPENDING ON 

SYNC clause in item under 

group item 

SYNC clause in group item 

VALUE clause in group 

item 

Condition-name under group 

item 

Group is or is in a label record 
Unused 
Minor code (see LD dictionary 

entry format) 
MBS (must be subscripted) bits 
1 = Item contained OCCURS or an ODO clause 
Length of group or VLC 



1 = 

1 = 

1 = 

1 = 

1 = 

1 = 
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(2) Bits Meaning 

3 Justified 
a-7 Set to XM111" if OSAGE is other than 
DISPLAY 



© 



Bit 3 is set to 1 for the master of an ODO clause. 



GVFNTBL 
(TIB 3) 



Purpose 

Store pointer to FNTBL 
for VSAM files referred 
to in USE AFTER STANDARD 
ERROR/EXCEPTION with 
GIVING option. 



Displacement in FNTBL | 



Entry Frequ ency 

On entry for each file-name 

mentioned in USE Declarative. 

Phases Involved 

Phases 11 builds the table 

using the FNTBL. 

Phase 11 uses the table 

to complete the FNTBL 

entries after building 

the GVNMTBL table. 



GVNMTBL 
(TIB l\) 



Purpose 

Store the data-name 

specified in the GIVING 

option of the STANDARD 

ERROR/EXCEPTION PROCEDURE 

Declarative for VSAM 

files. 



|1 I Variable | 
I h 



I 00 1 data-name I number of bytes | 
II I in preceding field | 



Entry Frequency 

One entry for each r— — ^-: — ^ 

Declarative. If the data- | Variable 

name is gualified the en- |- 

try contains all of its 

qualifiers 



For gualified data-names the following fields are added 



fVariable 

4-' 



-+- 



Phases Involved 
Phase 11 builds the table 
from the entries in the 
CORBCD and CURN data areas 
and for gualified data names 
from the QLTABL table. 
Phase 11 uses the table to 
create the OPEN coding for 
VSAM files. 



I First guaiifyinglNumber of | Last qualifying I Number of j 

fdata^nVm'e'' ■ \ -^ i'iyjtek^ ,±n | data-name . _" j bytes r:i*n j 
I '' . '/';' . ..^^ ^" ' : ^ j preceding j - . '';.'.' j pr.ec^d'iu'g ) 
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INDKEY 

(TIB 31) Purpose 

Store OCCURS... DEPENDING 
ON (ODO) information for 
use in table handling. 

Entry Frequency 
One entry for each item 
that has an OCCURS cluase 
and an INDEXED BY clause. 

Phases Involved 
Phase 22 builds this 

table from Data IC-text 
data-names with OCCURS 
and INDEXED BY clauses. 
Phase 30 uses this table 
to process SEARCH and 
SEARCH ALL verbs. 



1 I 
h 



n I 



Dictionary pointer to 
I subject of OCCURS or 
I maximum number of 
I occurrences 
I 



I 

I Dictionary 
I pointer to 
jfirstindex- 
InameMJ 



© 



Flag 
byte 

© 



I 



1 

Dictionary I Number 
pointer |of index- 
to object I names 
of OCCURS I 
or maxi- | 
mum number) 
of occur- I 
rences 1 | 



I 



(Dictionary | Number 
{pointer to jof 
( last Index- | keys 
jnameMJ j 



(jj Contents of dictionary pointer: 



(Dictionary I 
(pointer to( 
(first key 

! 



Bit s Content s 

0-1 Zeros 

2-14 Dictionary section number 

15-23 Displacement in section 



Dictionary 
pointer to . 
iastJcey 

© 



© 



Bit 

0-2 

3 



4-6 
7 



Meaning 

Unused 

1 = Next three bytes contain 

pointer to subject of ODO clause 

= Next three bytes contain 

maximum number of 
occurrences. 
Unused 

1 = Error detected in key processing 

(Phase 30 uses) 
= No error found 



INDXTB 
(TIB 27) 



Purpose 

Save all index-names 

associated with a data 

item. 

Entry Frequency 
One entry for each index- 
name associated with the 
data-item currently being 
processed. 



|1( Variable ( 
h-H 1 



1 04 I c( Index-name ( 
( (hex) ( (in EBCDIC ( 



Phases Involved 

Phase 10 builds this table from 

level-number entries in 

the source program Data 

Division. 
Phase 10 uses this table 

to append index-names 

to the Data IC-text LD 

entry for the data 

item. 
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IND2TBL 
(TIB 35) 



Purpose 

Store information on VSAM 

files for OPGANIZATION IS 

INDEXED. 

Entry Frecruency 
One entry for each FD 
entry for VSAM files with 
OEGANIZATION IS INDEXED. 



I Dictionary |idk | level 

I pointer for | parameters {number 

I RECORD KEY |for RECORD | 

I I KEY I 

I I I 



Phases Involved 
Phase 21 builds this table 
from Data IC-text. 
Phase 30 uses the table 
to build P1-text. 



lOPTBL 
(TIB 5) 



Purpose 

Store SAME RECORD AREA 

information. 

Entry Frequency 
One entry for each 
unique BL number within 
an output file FD entry 
that also contains a 
SAME RECORD AREA clause. 



IDTF IIOPTR I 
{number I number I 



Phases Involved 

Phase 51 builds and uses 

as object-time I/O 

buffer pointers. 



KEYT.AB 
(TIB 26) 



© 



Bits 
0-5 
6 

7 



Purpose 

Save all key-names 

associated with a data 

item. 

Entry Frequency 
One entry for each key- 
name associated with the 
data item currently being 
processed. 

Phases Involved 
Phase 10 builds from 
level-number entries 
in source program Data 
Division. 
Phase 10 uses this table 
to append . key-name to 
Data IC-text LD entry 
for data item. 

Weaning^ if on 
Unused 

Descending key 
Ascending key 



{ 1 {1 {Variable 



I \-h- 

{Flag{c{K 



Key-name 
in EBCDIC 
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KEYTBL 
(TIB 20) 



Purpose 

Ensure that, if key is 
tested in WHEN condition, 
all previous keys are 
also tested. 

Entry Frequency 
One entry for each key 
in KEY clause associated 
with identifier-1 in 
SEARCH ALL statement. 



"T- 



y + 

I Addressing parameters] 
I for item (IDK) froiu | 
I dictionary entry |< 

I © I 



1 



Phases Involved 
Phase 40 builds this table 
while processing a SEARCH 
ALL statement- 
Phase 40 uses this table to 
make sure SEARCH ALL 
statement processing tests 
keys associated with iden- 
tifier-1 and does not test 
a key without having tested 
the previous key. 

(l) Bits Field Meaning 

0-3 i Type of BL containing base 
address of area 



0000 = BL 

0001 = BLL 
0100 = SBL 

Displacement from base address 
BL number 



4-15 d 
16-23 k 



(2) Initially 0, but set to 1 whenever a 

WHEN condition for KEY is found during 
processing of this SEARCH ALL statement- 



LABTBL 
(TIB 13) 



Purpose 

Save LABEL RECORD data- 
names referred to in a 
Data IC-text FD entry. 

Entry Frequency 

One entry for each LABEL 

RECORD data-name referred 

to in the Data IC-text FD 

entry currently being 

processed. 

Phases Involved 

Phase 20 builds this table from 

Data IC-text FD entries. 
Phase 20 uses this table 

to differentiate label 

records from nonlabel 

records in processing 

Data IC-text LD entries. 



r-T 1 

I 1| Variable I 
^_+ ^ 

]c| LABEL RECORD] 
I I data-name in j 
I I EBCDIC I 

L_J. J 
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LTLTBL 
(TIE 4) 



Purpose r -, 

Contains pointers to | 2 j 

CONTBL and CONDIS tables (- -j 

during optimization of JDisplaceinent froiti start] 

literals. | of appropriate table | 

I of entry for literal | 

Entry Frequency l j 

One entry for each 
reference to a literal- 



Phases Involved 

Phase 60 or, when OPT 
is specified r phase 
6 2 builds this table 
while building CCI^DIS and 
CONTBL tables. 

Phase 60 or, when OPT 
is specified, phase 
64 uses this table 
with CONDIS and CONTBL 
tables to eliminate duplicate 
DISPLAY and non-DISPLAY 
literals. 



MASTODO 
(TIB 13) 



Purpose 

Identify masters of 

OCCURS. . .DEPENDING 

ON clause^ if SYMDMP is 

specified. 

Entry Frequency 
One entry for each 
master of an OCCURS- -. 
DEPENDING ON clause.^ 

Phases Involved 

Phase 22 builds this table 
as it encounters OCCURS.. 
DEFENDING ON clauses. 

Phase 25 uses this table 
to identify master of 
OCCURS . . . DEPENDING ON 
clauses^ for the DATATAB 
table. ^ 



r 1 

I 3 I 

i. ^ 

j Dictionary pointer for | 
I master of an ODO^ j 

L J 



^See "Glossary for definition of "master of an 
OCCURS Clause with the DEPENDING ON Option. " 



NPTTBL 
(TIB 18) 



Purpose 

Store N.nnnn names that 
contain number of lines 
a particular report 
group occupies. 



r T — T 1 

I 1 I 1| 6 I 

I- +--+ ^ 

I 23 (hex) I 07 I Name in EBCDIC | 

L X J. J 



Entry Frequency 
One entry for each report 
group that contains PLUS 
clause. This table is cleared 
at the end of each RD. 

Phases Involved 
Phase 12 builds from 

relative line clauses. 
Phase 12 uses this table 

to generate Data IC-text 
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of the RD- 
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OBJSUB 
(TIB 5) 



Purpose 

Relate files to objects 
and subjects of OCCURS-- 
DEPENDING ON clauses. 
It is used to build the 
QFILE table. 



r T T T 1 

I 2 I 2 I 2 I 2 I 

|DTF 1 (l) I (l) IX'FFFF" | 
I Number j | I j 

L L ± -L J 
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Entry Frequency 
One entry for each file 
whose record descriptions 
contain at least one ob- 
ject and/or subject of an 
OCCURS... DEPENDING ON 
clause. 



Phases Involved 
Phase 22 builds and uses 
•to build the QFILE table. 



m) When present y this field contains the 
0D2TBL table displacement if the 
field refers to the object of an 
ODO clause, or the GN number of 
the subject if the field refers 
to the subject of an ODO clause. 
If the field contains a GN number , the 
high-order bit is ON. 



OCCTBL 
(TIB 2) 



h 



© 



© 
© 



Purpose 

Store information about 
items in OCCURS and 
OCCURS... DEPENDING ON 
clauses if SYMDMP is 
specified and program 
contains an OCCURS or 
OCCURS.. .DEPENDING ON 
clause. 

Entry Frequency 
One entry for each 
subject of an OCCURS 
or of an OCCURS... 
DEPENDING ON clause. 



Phases Involved 

Phase 22 builds this 
table as it encounters 
an OCCURS or OCCURS... 
DEPENDING ON clause. 

Phase 25 uses this table 
and the QRTN and QITBL 
tables to build the 
ODOTBL table. The ODOTBL 
table is then used 
to fill in the OBODOTAB 
pointers in this table. 

The field contains either the number of 
occurrences for an OCCURS clause or the 
maximum number of occurrences for an 
OCCURS... DEPENDING ON clause. 

If the subject of the clause is a 
variable-length group, the field contains 
its VLC number. 

If this byte contains 0, the entry is for 
an OCCURS clause; if it contains 1, the 
entry is for an OCCURS. . .DEPENDING ON 
clause. 



j Dictionary pointer | Maximum number ^-^^ j 
I for subject of clause! of occurrences Qlyl 



-+- 



I Number of bytes | ODO | Reserved for 

I to next I Switch I OBODOTAB pointer for 

I occurrence ^2^ | ^5) | object of ODO (^ 
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Qn The field is present only when the entry 
is for an OCCURS .. .DEPENDING ON clause. 
Phase 22 fills the field with zeros. 
Phase 25 enters the OBODOTAB pointer; then 
the contents of the field are as follows: 

Bits Contents 

0-8 Relative block number within the 

OBODOTAB table 
9-15 Displacement in fullwords within 

the block 



ODOTBL 
(TIB 14) 



Purpose 

Determine which entries 
in the dictionary are 
objects of OCCURS... 
DEPENDING ON clauses and 
therefore must be entered 
in the OBODOTAB table if 
SYHDMP is specified and 
the program contains and 
OCCURS... DEPENDING ON 
clause. 



I 



I Dictionary 
I pointer for 
I object of ODO 



I Displacement | OBODOTAB 
I within OCCTBL | pointer for 
I for OBODOTAB | object of 
I pointer JODO 

-I I 



Entry Frequency 
One entry for each 
OCCURS... DEPENDING ON 
clause. 

Phases Involved 

Phase 25 builds this table 
using the OCCTBL, ORTN , 
and QITBL tables. 

Phase 25 uses this table 
to build the OBODOTAB 
table and to fill in the 
OBODOTAB pointers for objects 
of OCCURS... DEPENDING ON 
clauses in the OCCTBL table. 



0D2TBL 
(TIB 9) 



Purpose r 

Store objects of OCCURS | 

DEPENDING ON clauses and \ 

their gualifiers for | 

Q-routine generation. | 

I 
Entry Frequency i 

One entry for each OCCURS 
DEPENDING ON clause. 

Phases Involved 

Phase 10 enters EBCDIC 

names from OCCURS 

DEPENDING ON clauses. 
Phase 22 uses this table 

to generate Q-routines. 
Phase 25 uses this table 

in building the OBODOTAB 

table. 



1 (Variable 



■+- 



-h 



I 1 I 



c I EBCDIC name of ( | c I 
I highest level ) \ \ 

I qualifier | 11 

J L-J ^Jl -J 



f Variable 

I , 



1 1 I Variable | 1| 1 



h 

) EBCDIC name of| 
(loiwest-level | 
igualifier j 



-h 



-+- 



c I EBCDIC name I c\ 00 
I of object I I 
I t I 
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OFL0TBL 



Purpose 

Store referencing card 

numbers when the DATATBL 

table entry is full. 

Used in processing for 

the SXREF or the XREF 

option. 

Entry Frequency 
One entry for each 
referencing card number 
which cannot be stored 
in the DflTATBL table 
entry for the data-name 
or the procedure-name. 



h 



I 



I 



I 



I 



+ 



-+- 



H 



I Referencing | Referencing | Referencing | Referencing | 
I card number I card number | card number! card number! 
I 1 ! 1 1 1 



! Ofj^et ! Pointer to| 
(2) I preceding 
^-^ I OVERFLOW 
I record 



Phases Involved 

Phase 61 builds and uses 

this table to store referencing 
card numbers for the SXREF 
or the XREF option. 



© 



There is no TIB for this table. Phase 61 
uses the phase 00 routine GETALL to get 
space, but moves data in and out of the 
table by itself. 



(2) This byte contains binary values 3, 6, 9, 12 
as the OVERFLOW record contains 1, 2, 3, U 
referencing card numbers. 



PFMTBL 
(TIB 12) 



Purpose 

Store procedure-names and 
VKs to be equated in 
PERFORM statements. 

Entry Frequenc y 
One entry for each 
delimiting 
procedure-name . 



|PN number of |VN number cor- 
jnext procedure- 1 responding to 
I name after |PN that is 
I end -of -range |end-of -range 
I I 



Phases Involved 

Phase UO builds this table 
from Pi-text procedure-names 
and VNCTR in COMMON. 

Phase 40 uses this table 
to keep track of de- 
limiters of performed 
procedures to set up 
return VNs. 
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PIOTBL 
(TIB 7) Purpose 



Store input/output | 3 | 1 

information for a file | 1 

from Procedure Division. | Switch jvs AM 

I bytes I switch | 
Entry Frequency | (T) jbyie 

One entry for each file. | | Tz) 



-i_ 







Phases Involve d 

Phase 10 sets aside space 

for one entry for each file. 
Phases 11 and 12 set appropriate bits. 
Phase 21 uses this table to 

generate Data A -text. 

Bits Statement referring to file^ if bit is on 

OPEN INPUT 

1 OPEN OUTPUT 

2 OPEN I-O 

3 Unused 
a WRITE AFTER ADVANCING 

5 CLOSE WITH LOCK 

6 CLOSE 

7 REWRITE 

8 RERUN 

9 OPEN INPUT REVERSED 

10 SEEK 

11 WRITE BEFORE ADVANCING 

12 USING 

13 GIVING 

14 USE 

15 WRITE AFTER POSITIONING 

16 BEFORE in USE 

17 OPEN NO REWIND 

18 WRITE 

19 USE ON file-name 

20 START 

21 Unused 

22 REVERSED 

23 Unused 

Bit Statement referring to file if on 

KEY IS data-name (for START) 

1 DELETE 

2 USE AFTER STANDARD ERROR GIVING DN 

3 OPEN EXTEND 

(physical sequential only) 
a-7 Unused 

PNATBL 
(TIB 7) Purpose 



© 



Determine which | 3 

PNs require an | 

address constant cell |PN number 

in the PGT. • 



Entry Frequency 

One entry for each 

PN requiring an address 

constant cell in the PGT. 

Phases Involved 

Phase 62 builds this table 
from PNUREF elements in 
Optimization A-text. 

Phase 63 uses this table to 
determine which PNs require 
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address constant cells - 
Phase 64 uses this table 

when determining the address 

in the PGT of the 

PN cell to be used in 

an instruction. 



PNFWDETB 
(TIB 20) 



Purpose 

Optimize size of a 

procedure block. 



-+- 



-f 



PN number [Counter | 



Fntry Frequency 

One entry for each 

forward reference to 

a PN within a Procedure Block. 



Phases Involved 

Phase 62 builds this table 
from Procedure A -text. 

Phase 62 uses this table 
to keep count of the 
number of U-byte load 
instructions of the 
Procedure Block which 
might be needed if a 
new block is begun before 
the PN is defined. 

PNLABTBL 
(TIB 18) Purpose 

Determine inter-block 

and intra-block 

references. 



PNLBDTBL 
(TIB 26) 



I Block number 
I for PN 



Entry Frequency 

One entry for each PN. 

Phases Involved 

Phase 62 enters in this 
table the block number 
for each PN as it reads 
Procedure A-text. 

Phase 63 extracts the block 
number in which a PN 
is defined each time a PN 
is referred to. 



Purpose 

Determine displacements 

from the beginning 

of the block for PN 

definitions. 



I 12 bits 



Entry Frequency 

One entry for each PN. 



I Displacement from 
I beginning of block 
I for PN 



Phases Involved 

Phase 63 builds this table 
during Procedure A^text 
processing. 

Phase 64 uses this table to 
insert the displacement 
in generated instructions 
which address the PN. 
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PNOUNT 

(TIB 14) Purpose 

Stack operands of COMPUTF 
and IF statements. 



Variable 



Entry Frequency 
One entry for each 
operand in statement. 

Phases Involved 

Phase 40 builds this table 
from P1-text scan. 

Phase 40 uses this table 
with PSIGNT table 
to stack operands until 
the string is ready to 
be created. 



I 

I Same operand as in 
jpi-textr including 
I byte identification 



1 I 



©! 



m) Number of bytes in the preceding field. 



PNQTBL 
(TIE 6) 



©Bii 

1 

2 



7 

8 

9 

10 

11 



12 
13 
14 
15 



Purpose 

Store information on 
references to qualified 
PNs for completion of 
dictionary entry. 

Entry Frequency 
One entry for each 
qualified PN . 

Phases Involved 
Pliase 11 builds this 
table from Procedure 
Division. 
Phase 11 uses this table 
to complete procedure- 
name dictionary entries. 



11 



I 1 1 Variable 



I 



|n I c| Procedure- 1 Flag | Unused! 
I I I name in |b}rtes| | 
I I I EBCDIC in) I I 
I I I I ^-^ I I 



I 11 



221 



1 1 1 Variable 



hH 

I c I Procedure-name 
I (qualifier in 
I I EBCDIC 
I I 



Meaning > if on 

Procedure-name 

Section-name 

Either name follows 

THRU in PERFORM... THRU/ 

or follows PERFORM without THRU 

Referred to by ALTER 

Procedure-name of GO TO 

Procedure-name of EXIT 

Procedure-name following 

TO PROCEED TO in ALTER 

statement 

Unused 

Referred to in DEBUG 

Defined in DEBUG 

Dummy section-name 

Defined in Declaratives Section (or 
in DEBUG statement referring to such- 
section) . Bits 12-15 describe type of section. 

Declarative error routine 

Declarative label routine 

Unused 

Declarative report section. 
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PNTABL 
(TIB 5) 







Bit 

1 
2 



3 

a 

5 
6 

7 

8 

9 

10 

11 



12 
13 

14 
15 



(2) Bit 





11 



In 



MlVariable I 2 | 1 

-+H 1 1 

I c|Procedure-|Flag | Dictionary 
I I name in Ib^tesj seaj^ch code 
I I EBCDIC 1(1) I (2) 



Purpose 

Store information on 

references to unqualified 

PNs for later 

completion of PNs | 

dictionary entry. | 

Entry Frequency 

One entry for each PN 

that is not qualified. 

Phases Involved 

Phase 11 builds this table 
from Procedure Division. 

Phase 11 uses this table 
to complete procedure- 
name dictionary entries. 



Meaning^ if on 

Procedure -name 

Section-name 

Either name follows 

THRU in PERFORM. ..THRU, 

or fellows PERFORM without THRU 

Referred to by ALTER 

Procedure-name of GO TO 

Procedure -name of EXIT 

Procedure-name following TO 

PROCEED TO in ALTER statement 

Unused 

Referred to in DEBUG 

Defined in DEBUG 

Dummy section-name 

Defined in Declaratives Section (or 

in DEBUG statement referring to such 

section). Bits 12-15 describe type of section. 

Declarative error routine 

Declarative label routine 

Unused 

Declarative report section 



1-7 



Meaning r if on 
Dictionary was searched for 
this PN before this section 
Unused 



PNTEL 
(TIB 7) 



Purpose 

Create and store list of 

optimized PN numbers. 

Entry Freguency 
One entry for each 
optimized PN number. 



I Displacement of PN 

I from start of PN cells 

I in object module 



Phases Involve d 

Phase 60 builds this table 

from PNCTR in COMMON and PN 

equate strings. 
Phase 60 uses this table 

to optimize PNs and 

process Procedure A-text. 
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PNUTBL 
(TIB 6) 



Purpose 

Optimize procedure -names 
by eliminating those not 
referred to or^ when 
OPT is specified, 
determine entry points. 

Entry Frequency 

One entry for each source 

program procedure-name. 



1 bit 



1 = Name is referred to | 
= Name is not referred to | 



Phases Involved 

Phase 51 reserves space 
for as many entries as 
there have been PNs 
counted in PNCTR. These 
entries are initially 
set to 0. In later 
processing, phase 51 
turns on a bit each 
time the PN associated 
with the bit is referred to. 

Phase 60 uses this table 
to eliminate names not 
referred to, or, when 
OPT is specified, 
phase 62 uses this table 
to determine which 
PNs are entry points. 



PROCTNDX 
(TIB 5) 



Purpose 

Store information about 

the PEOCTAB table which 

is written on SYS005 if 

SYMDMP option is in 

effect. 

Entry Frequency 

One entry for each block 

of PROCTAB entries. 



Card/verb number (Relative address | Device address 
for first entry |of code for this j of PROCTAB 
in P^CTAB block j entry within | block 
MJ I segment j 



Phases Involved 

Phase 65 builds this 
table while reading 
sys002 and building the 
PROCTAB table. 

Phase 65 writes this 
table on SYSOOS and 
COBOL library subroutines 
use this table to address 
entries in the PROCTAB table, 
table. 



© 



Bits 
0-19 
20-23 



Contents 
Card number 
Verb number 
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PSHTBL 
(TIB 17) 



Purpose 

Store GN numbers of 
ELSE branches in nested 
and compound IF state- 
ments. 

Entry Frequency 

One entry for each false 

branch. 

Phases Involved 

Phase 40 builds this table 

from P1-text and GNCTR 

in COMMON. 
Phase 40 uses this table 

to aenerate branches. 



1 16 = Master label |GN | 
I = Otherwise | number j 



PSIGNT 
(TIB 15) 



Purpose 

Store operators in 

COMPUTE and IF 

statements. 

Entry Frequency 
One entry for each 
operator in the state- 
ment being processed. 



I Pi-text 
I code for 
I sign 



PTRFLS 
(TIB 16) 



Phases Involved 

Phase 40 builds this table 

from P1-text. ^ 

Phase 40 stacks operators 

until strings are ready 

to generate. Table used with 

PNOUNT. 



Purpose 

Store branches in an IF 

statement. 

Entry Frequency 
One entry for each 
decision in statement. 



1 = 'NOT" is IGN number forfGN number 
active | fall-through (for bypass 

= 'NOT* is I branch [branch 
not active | j 



Phases Involved 

Phase 40 builds this table 

from Pi -text compound IF 

statements and GUCTR 

in COMMON. 
Phase 40 uses this table 

with the PSHTBL table to select 

branches for P2-text. 
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P1BTBL 
(TIB 2) 



Purpose 

Pass phase operating in- 
formation from phase 10 
to phase 11 or 12 or 
from phase 12 to phase 11 

Entry Frecfuencv 
One entry made at end of 
phase 10 processing and, 
optionally, at end of 
phase 12 processing. 



Phases Involved 
Phases 10 and 12 build 

this table from stored 

information. 
Phase 11 and/or 12 moves 

data into its own data 

areas. 



2 I 



I 



I 80 



n I Generated | Generated | Unused | Last 



I card number I card number | 
I for last jfor last | 
I record read | record read| 
I (packed) | (unpacked) | 



I record 
I read 



I 



18 



82 



{Sequence [Error in- j INSERT j Sequence | Phase 
I number of I formation | card work | number | switches | 
I last record I on record! area from | from BASTS f ^^.^ 
Iread | |BASIS | | (T) 



I 114 I 



h 



-+- 



|Unused|SYS00a pointer 
I jfor BASIS/COPY 
I IREAD 



I Unused f Phase 
I I switches 

! ! © 



80 



I 81 



I Current 
j generated 
I card number 



Phase i Double- Qmi Contents 
switches. I buffer for| |of 

©(COPY... I Icolumns 
jREPLACING I |72 and 73 
I I I 



Phase 
switches! 



© 







© 



© 
© 



Bits 

1 
2 
3 
4 
5 
6 
7 

Bits 

1 
2 
3 

5 
6 

7 



Byte 1 
Unused 
COPYSW 
BASISW 
Unused 
Unused 
Unused 
Unused 
CPYXSW 

Byte 1 

FSTRC 

Unused 

Unused 

Unused 

Unused 

Unused 

Unused 

Unused 



Byte 2 
INDLSW 
INSTSW 
INDERR 
INOWSW 
DELSW1 
DELSW2 
DELSW3 
CPYCSW 

Byte 2 

Unused 

Unused 

Unused 

USEPDL 

USEPDE 

SRTSW 

Unused 

Unused 



© 



Bits 


Byte 1 


Byte 2 


Byte 3 


Byte a 





Unused 


CDSURP 


C0N2SW 


Unused 


1 


Unused 


BUF2SW 


NWCDSW 


SURPSW 


2 


Unused 


BUF3SW 


SKCDSW 


BUF5SW 


3 


Unused 


BUF4SW 


Unused 


Unused 


a 


REPSW 


CONTSW 


Unused 


Unused 


5 


Unused 


Unused 


Unused 


Unused 


6 


Unused 


Unused 


Unused 


Unused 


7 


Unused 


Unused 


DBRDSW 


Unused 



For Phase 10 

Bytes 0-2 = Report Writer generated name 
Bytes 3-7 = Not used 

Bits 0-6: Not used 
7: FRGNSW 
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QALTBL 
(TIB 23) 



Purpose 

Work table, for example, 

to store qualified names 

and qualifiers in reverse 

order of appearance 

in RD. 



|1 I Variable 



|c|Name in 
I [EBCDIC 
I I 



-~T 1 

1 {Variable) 



-h 



H 



c I Name in | 
I EBCDIC I 

I I 



Entry Frequency 
One for each name in the 
current strinq of a name 
and its qualifier. 

Phases Involved 

Phase 12 builds this table as 

it scans a name and its 

qualifiers. 
Phase 12 uses this table 

to reverse the order of a 

name and its Qualifiers. 



QFII.E 
(TIB 23) 



Purpose 

Store Q- routine GN 
numbers connected with 
all files in which at 
least one of the records 
contains an OCCURS . . . 
DEPENDING ON clause. 



DTF number for|GN number for sinqle 0-routine for 
file I file or for chain of GNs, where 

I there is more than one Q-routine 
I associated with the file 











Entry Frequency 

One entry for each file 

of this type. 

Phase Involved 

Phase 22 builds this table 
from Q-routines for file . 

Phase 30 adds 0-routine GN 
numbers to dictionary 
attributes for corre- 
sponding files. 

Table ends with a word of zeros. 



QGNTBL 
(TIB 24) 



Purpose 

Pass 0-Routine GN numbers 
and their Procedure Block 
numbers from phase 63 to 
phase 64. This table is 
built only if there is a 
Q-BEGIN macro element 
passed in Procedure 
A-text. 



|GN number {Procedure j 
I I Block number! 



Entry Frequency 

One for each Q-Routine GN. 

Phases Involved 

Phase 63 builds this table 

from the GNLABTBL. 
Phase 64 uses the data to 

initialize Q-Routines 

during processinq for 

INIT3. 
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QITBL 
(TIB 22) 



Purpose I 

Contains a pointer to | 4 

the dictionary attributes I 

of each OCCURS. . .DEPENDING! Pointer to entry 
ON object entered in the jin dictionary for 
0D2TBL table. | OCCURS. . .DEPENDING 



Entry Freguencv 

One entry for each 0D2TBL 

table entry. 



ION variable 



IDisplacement of 
I entry in 0D2TBL for 
I OCCURS . . . DEPENDING 
I ON variable 



Phase Involved 

Phase 22 builds this table from 

dictionary and 0D2TBL table. 
Phase 22 combines this 

table with 0D2TBL and 

QRTN tables to form QVAR table. 
Phase 25 uses this table with 

QRTN and OCCTBL to build 

the ODOTBL. 



OLTABL 
(TIB 1) 



Purpose 

Store qualified names in 

order of receipt. 



1} 



1 (Variable 



TTT 



35|00|Name in EBCDIC^ 



I Variable 



I I 



I First .Oualif i^r^ 
JName 

,1 ', ' , „ i 



1 1 Variable 1 1 1 

: H 

Last qualifier M| 
I name in EBCDIC | I 



H 



Entry Frequency 
One table entry con- 
taining name currently 
being processed and its 
qualifiers. 

Phases Involved 

Phase 10 builds this table when 

a qualified EBCDIC name 

is inserted in the QNMTBL or 0D2TBL table. 
Phase 12 builds and uses 

when a qualified EBCDIC name is 

to be written in PO-text. 
Phase 11 builds and uses when a 

qualified EBCDIC name 

is to be written in PO-text. 



m) Count of bytes in preceding field. 



QNMTBL 
(TIB 2) 



Purpose 

Store BCD names for 
REPORT, LABEL RECORD, 
ACTUAL KEY, NOMINAL KEY, 
RECORD KEY, and APPLY 
CORE-INDEX clauses from 
Data and Environment 
Divisions until Data 
IC-text is written. 

Entry Frequency 

One entry for each name 

of this type. 



I — I — I 1 — 

|2|1|Variable f 

h- l-H f^ 

|n|c|Last qualif ier | V 
I I I name in EBCDIC ( 
I I I t 



tri^ 



rWrtable - 



I 1! 



iQualxfa'edv' '- '■' 'I I 
(n»e in^tBCDtClooi 



-^ 
let 

t I 

,„ i t 
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Phases Involved 

Phase 10 builds this table 
from clauses in FD , SELECT, 
and APPLY statements. 

Phase 10 uses this table to 
write out Data IC-text. 



QRTN 
(TIB 21) 



I 



Purpose 

Store GN numbers of 
Q-routines and 0D2TBL 
pointers for each OCCURS 
DEPENDING ON clause in 
a record. 

Entry Frequency 
One entry for each 
record containing an 
OCCURS depending"'on 

clause. 



Phases Involved 

Phase 22 builds this. — 
table from GNCTP in 
COMMON and 0D2TBL table. 

Phase 22 combines this 
table with 0D2TBL and 
QITBL to form QYAR table. 

Phase 25 uses this table 
with QITBL and OCCTBL 
to build ODOTBL. 



I 



I 1 

|GN number I Number of fields 
I of first jto follow 
IQ-routinej 



I 



-I 1 

(Displacement of | 
|(>D2TBL entry for) 
I last 0-routine j 



-f 

I Displacement of 0D2TBL 
I entry for first 
IQ-routine 



QSEL 
(TIB 1) 



Purpose 

Hold information 
on secondary base 
locators (SBLs) . 

Entry Frequency 

One entry for each INCRA 

verb generated. 



1 



I First SBL number I ^^ 
(associated with I m) 
I an INCRA verb | 



Phases Involved 

Phase 22 builds as it 
generates INCRA verbs 
for 0-routines. 

Phase 30 uses table to 
generate for each INCRA 
verb a P1-text literal 
the value of which equals 
the number of SBLs 
associated with the verb. 

m) Last entry is followed by a byte of zeros 



OTBL 
(TIE 3) 



Purpose 

Store GN numbers for 
O-routines during Data 
A-text processing. 

Entry Frequency 
One entry for each 
Q-routine definition 
in Data A-text. 



|GN number I 
[of Q-routine I 
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Phases Involved 

Phase 60 or^ when OPT is 

specified, phase 64 makes an 
entry when it finds a 
0-routine identification 
element in Data A-text. 

Phase 60 or phase 64 uses 
this table to initialize 
Q-routines when 
generating INIT3 code 
for object module. 



QVAR 
(TIB 24) 



Purpos e 

Store Q-routine GN 
numbers connected with 
items containing OCCURS 
DEPENDING ON clauses. 

Entry Frequency 

One entry for each item. 



I 



I 1 

(Pointer to dictionary |GN number for 
1 entry for object of j Q-routine for 
t OCCURS DEPENDING ON | first item 
{for first item (T) | 



© 



Phases Involved 

Phase 22 builds this table 
from QRTN, QITBL, and 
0D2TBL tables. 

Phase 30 adds Q-routine 
GN numbers to dictionary 
attributes of items that 
are objects of OCCURS 
DEPENDING ON clauses. 



© 



Bits Contents 

0-9 Zeros 

10-22 Dictionary section number 

23-31 Displacement in section 



ri) Last entry is followed by a byte of zeros. 



RCDTBL 
(TIB 11) 



Purpose 

Store each level-01 

record-name in FD Section 

until input/output verb 

processing. 

Entry Frequency 
One entry for each 
01-level entry in FD 
section. 



I 1 1 Variable 



I Displacement of |c| Record -name 

I entry for file j jin 

I in FNTBL I I EBCDIC 



Phases Involved 

Phase 10 builds this table from 

01-level statements. 
Phase 11 uses this table 

in processing input/output 

statements. 
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RDFSTK 
(TIB 11) Purpose 

Store information 

about subject and 

object of 

REDEFINES clauses 

Entry Frequency 
One entry for each 
REDEFINES clause. 



I 



I 



I 1 1 1 1 

I Level number [Contents of address | Displacement (d) | Length of | ^^ 
I of REDEFINES I parameter field |of i d k, right- | REDEFINES | Ql} 
I subject I (i d k) | justified | object | 



Phases Involved 
Phase 22 builds from 

dictionary. 
Phase 22 uses this table 
to assign address 
parameter to items 
after REDEFINES clause. 



m) First entry is a dummy. 



EENAMTB 
(TIB 3) 



Purpose 

Store information for 
associating a renamed 
item with all of its 
renaming items if SYMDMP 
if specified. 



I 1 1 

I Dictionary pointer [Dictionary pointer | 
I for renamed item |for renaming item | 
I I I 



Entry Frequency 

One entry for each RENAMES item. 

Phases Involved 

Phase 22 builds this table 

while processing RENAMES 

clauses . 
Phase 25 uses this table 

to associate renamed items 

with renaming items. 



REPTAB 
(TIB 29) 



Purpose 
Store COPY... 
REPLACING data-names 
to be used during a 
READ from library. 



1 1 [Variable |1| Variable 



hH- 



-+H- 



|c|Word being [c| Replacing word, 
I [replaced j [literal, or 
[ [ [ [identifier 







Entry Frequency 
One entry for each pair 
specified in the REPLACING 
clause of the COPY 
statement currently 
being executed. 

Phases Involved 

Phase 01 builds this 

table from COPY. . .REPLACING 
clause in source program . 

Phase 01 uses this 

table to replace data- 
names while source 
statements are being 
read from a library. 

m) Last entry followed by a byte of zeros. 
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HLDTBL (Phase 60) 



© 



Purpose 

Store information 
on items to be 
inserted in the 
data area or a 
Global Table in the 
object module- 



1 ' — 


— , — 


r 








1 1 

1 


I 

1 


3 1 
1 


1 


1 
t 


3 1 

1 


1 













I Code jTarget jPriority | Value 

i defining | address j (0, if no jof 

jitem,.^ I I segmenta-j ADCON 

I (2) I I tion) I 



Entry Frequency 
One entry for each PN 
definition r VN definition r 
and ADCON in Data A-text. 



© 



© 



Phases Involved 

Phase 60 builds this table 

during Data A-text processing. 
Phases 60 uses this table to 

punch ELD and text 

cards for object module. 

There is no TIB for this table. Phase 60 uses the phase 00 
routine GETALL to get space, but moves data in and out of 
the table by itself. When it receives control back from 
phase 00, phase 60 stores the first address in the table 
space in location ARLDTB and the length in bytes in 
location RLDSIZ. During processing, it uses location 
RLDINDEX as a counter of the bytes used so far. 

Code Meaning 

84 Data~A text RLD 

94 GN or PN information to be used to match VN definitions 

A4 VN definitions 

Ca VCONTBL ADDR INITI ADDR 



RLDTBL (Phases 63 and 64) 

(TIB 28) Purpose 

Store information on 
items to be inserted in 
the data area or a Global 
Table in the object 
module. 

Entry Frequency 

One entry for each PN 

and GN definition 

VN definition, and each 

address constant in 

Data A-text. 



I Code I Target | Priority | Value of 
Idefininqladdressl (0, if no jADCON 
I item ^T) I I segmentation) I 



© 



Phases Involved 
Phases 63 and 64 build 
this table during 
Procedure A-text and 
Data fi-text processing. 
Phase 64 uses this table 
to punch RLD and text 
cards for the object module 
and VN EQUATE GN addresses. 



Code 


Meaninq 


10 


RPT-ORIGIN GN 


84 


DTF address 


94 


PN definition 


A4 


VN definition 


C4 


INIT1 address 
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RNMTBL (Phase 22) 

(TIB 12) Purpose 

Store information 
on objects of 
REDEFINES clauses. 

Entry Frequency 
One entry for each 
REDEFINES clause. 



j Level number i Pointer toj Dictionary! 
I of REDEFINES I dictionary I minor code | 
I subject I entry for jfor object! 
I ! REDEFINES I | 

I I object ! ! 



Phases Involve d 

Phase 22 builds this table 
from dictionary. 

Phase 22 uses this table 
to check whether the 
REDEFINES clause is valid. 



RNMTBL (Report Writer) 

(TIB 12) Purpose 

Store data-names 
of report groups. 



32 



I 



HI 



Entry Frecruencv 

One for each 

report group 

that has a data-name and 

is not a detail report group 



^ 



! Data-name |GN number I NOP code | Displacement of entry! 
!for report! for this !00 = NOP PLUS!in RWRTBL for report- 1^! 
! group in | report- joi = NOP ZERO | name associated with ! j 
! EBCDIC 1 ! group ! jthis data-name | | 
I I I I I I 



© 



Phases Involved 

Phase 12 builds this table from 
scan of report groups. 

Phase 11 uses this table to 

generate coding in response to USE 
BEFORE REPORTING statements. 



(V) Left-justif iedr padded with binary zeros in low-order bytes. 
(2^ Code for unique report group names 



© 



Code Meaning 

00 This entry was made as the result of a unique report group name. 

01 This entry is a non-unique report group name that must be qualified. 

First entry is a dummy. 



ROLTBL 
(TIB 15) 



Purpose 

Store the SUM clause 
data-names and operand- 
names that are needed to 
create ROL-ROUT and 
RST-ROUT routines. 

Entry Frequency 

One entry for each sum 

rolled forward. 

Phases Involved 

Phase 12 DOROL routine 
builds this table. 

Phase 12 GNSPRT routine 
uses this table to 
create ROL-ROUT and 
RST-ROUT routines. 



I 1 1 1 1 ^-T ' 

|2! 1 I 1 ! 2 I 2 ! 4 

h- 1 1 1 1 1 

aUnused!SUM | Unused! Displacement ! Displacement of sum name 
! level! jof SUM name |in SNMTBL or nnnn portion 
! I ! ! ! entry in jof S.nnnn. This is the 

I ! ! ! ! SNMTBL. This I item into which the 

II ! I jis the item | summing takes place 
I ! ! I !to be rolled! 

! I ! I ! forward ! (2) 



I 



I: \ v^iv-"' , . r: ^: :; : ^ ) 

j Dlsplaeeient of spa iiame in ,| Contains zeros 

jS^llfBL 01^ nnna porjbioii; of l^o indicate 

|S*tiiian> Thij^ is tli0 iiei into-;. | end of entry 
l wliicK '.thie^-'-stimiiig - 'takes '• p1b.cb(TS\ 
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© 
© 



. Contains zeros if last entry in table. 



Bytes 

1 
2-3 



Contents 

FF 

00 
Displacement 



EOUTBL 

(TIB 16) Purpose 

Store GNs for 
routines in each 
Report Writer 
generated subprogram. 

Entry Frequency 
One entry for 
each report 
in Report 
Section. 

Phases Involve d 

Phase 12 builds and uses 

this table. 
Phase 11 uses this table 

in Report Writer verb 

processing 



RWRTBL 
(TIB 13) Purpos e 

Store information on 
report-name. 

Entry Frequency 
One entry for each 
report-name. 



|GN number 
I for 
IRPH-RODT 



I 

\GV number 
I for 
jLST-ROUT 



2 



I 

|GN number 
I for 
IROL-RODT 



|GN number 
I for 

|CHF~ROUT 
1 



h 



|GN number 
I for 
lALS-ROUT 



GN number 

for 

RPF-ROUT 



GN number 

for 

WRT-ROUT 



GN number 

for 

RST-ROUT 



2 



GN number 

for 

CFF-RODT 



GN number 

for 

RLS-ROUT 



GN number 

for 

PGH-ROUT 



GN number 

for 

WRT-1 



GN number 

for 

RST-1 



GN number 
for PH-1 



GN number 

for 

SAV-RODT 



( 



GN number I GN number | 
for I for I 
PGF-RODT I 1ST-R0UT | 
I I 



GN number I GN number! 
for I for I 
WRT-2 jCTB-ROUT \ 
I I , I 



Unused (Unused 

I 

I 
I 



GN number I GN number 
for I for 
LAST I INT-ROUT 
ROIL I 



GN number I 
for I 
RET-ROUT f 



30 



h 



■+- 



I Report-name I -nnnn portion | Pointer to |Size in 
I in EBCDIC I of record-name |file-name-1 j binary 

I for file-name-1 jentry in |of larger 
''l^ I IFNTBL I record 



© 



Phases Involved 
Phases 10 and 12 build 

this table from scan 

of FD and RD entries. 
Phases 12 and 11 use 

this tabl^ f^uring scan |file-name-2 (2) |in FNTBL 



I -nnnn portion of | Pointer to entry | Displacement in | 
I record-name ^a^ I for file-n5Jne-2 JROUTBL of entry j 



of Report Writer verbs. l_ 



jfor this report I 
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MJ Left- justified, padded with binary zeros in low-order bytes. 
(^ Contains zeros if report is to be written on only one file. 



SATBL 
(TIB 5) 



SDSRATBL 
(TIB 5) 



SEGINDX 
(TIB 16) 



Purpose 

Store file-names 

associated with SAME AREA 

clauses until all SAME 

AREA clauses have been 

processed. 

Entry Frequency 

One entry for each file 

in a SAME AREA clause. 

Phases Involve d 
Phase 10 builds this 
table from SAME AREA 
clauses in source pro- 
gram. 
Phase 10 uses this table 
to check SAME AREA 
clause syntax. 



Purpose 

Determine the size of the 
SAME^ RECORE AREA and the 
record boundary within 
the area for SORT records. 

Entry Frequency 
One entry for every SD 
sharing SAME RECORD AREA 
with an FD. 



Phase Involved 

Phase 21 SORTPROC routine 
builds this table. SRA 
routine uses the table 
to build the SRAMAX 
table and also to generate 
SAME RECORD AREAS. 



1 



I 



\ 

I Count of I Card 

(number of j Number 

I files in | 

I clause I 

I I 



1 1 Variable 



c I File-name 
I in EBCDIC 



1 1 Variable 



c I File-name 
I in EBCDIC 
I 

r 



I 



I 1 1 — 

I SAME RECORD I BL | Number (Maximum 
I AREA number I number I of BLs j record 
I I I Isize 
I I I I 



Purpose 

Store information about 

program fragments if 

SYMDMP or STATE is 

specified. 

Entry Frequency 
One entry for each 
program fragment. 



-f- 



Priority I Address of this | Table-locator for | Table-locator for| 
(fragment rela- (PROCTAE entry forjPROCTAB entry forj 
Itive to the (first card/verb (last card/verb in ( 
(beginning of (in this fragment (this fragment ( 
(the segment ( Q) ( Q \ 



Phases Involved 

Phase 65 builds this table 

while reading Sys002 

and building the PROCTAB table. 

COBOL library subroutines 

use this table. 
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(T) For the SYMDMP option r the field contents are: 

Bits Contents 

0-14 Relative block number in PROCTAB 

15-23 Displacement within block 

For the STATE option, the field contents are: 

Bits Contents 

0-23 Displacement from the beginning of the 
PROCTAB entries in the object module 



SEGTBL 

(TIB 15) Purpose 

Store disk address of 
sections of Procedure 
A -text. 

Entry Frequency 
One entry for each 
segment control break. 



I 1 

I Priority | Devic^ address 
I number | 



ce a 

(!) 



(D Byte 
^^ 0-1 
2 
3 



Phases Involved 

Phase 51 creates an entry 
when it finds a 
segment control break. 
Gets priority from 
PNOUT + 1 in phase 51, 
and device address from 
cell SE6SAV in phase 00. 

Phase 60 or, when OPT is 

specified, phases 62 and 63 
use this table to 
combine sections into 
a segment. 

Contents 

Relative track number 
Block number on track 
Record identification 



SETTBL 
(TIB 21) 



I h 



c I Pi-text 

(element 

I for operand 
I 



Purpose I 1 

Build SET strings for the | 1 | Variable 

SET statement after 

processing the final 

operand of the statement; 

or determine whether the 

ON SIZE ERROR option is 

present before building 

strings for ADD and 

SUBTRACT statements with 

multiple receiving fields. 

Entry Frequency 

One entry for each operand 

before the TO, UP BY, or 

DOWN BY options of the 

SET statement; or one entry 

for each operand between 

either the first receiving field 

and ON SIZE ERROR or the next 

verb after the ADD (or SUBTRACT) 

statement. The table is cleared 

at the end of processing 

for each verb. 
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Phases Involved 

Phase 40 builds this table to 
store operands before the TO, 
UP BY, and DOWN BY options of the 
SET statement. 

Phase 40 also uses this table to 

store the operands after the receiving 
field and before either the ON 
SIZE ERROR option or the verb 
following the ADD (or SUBTRACT) verb. 

Phase 40 uses the table to build 
SET strings after processing the 
operand following the TO, UP BY, 
and DOWN BY key words of the SET 
statement. 

Phase 40 uses the table to determine 
whether the ON SIZE ERROR option 
is present before issuing the 
string for the receiving fields 
after the first in an ADD or 
SUBTRACT statement. 



SMSTBL 
(TIB 28) 



Purpose I r 

Store SUM clause operand- | 2 | 

names for correlation of | 1- 

SUM and SOURCE clauses. 



Entry Frequency 

One for each operand-name 

in a SUM clause. 



I I SUM clause 
I c j operand-name 
I I in EBCDIC 



© 



Phases Involved 

Phase 12 builds this table 
from SUM clauses. 

Phase 12 uses this table 

with SRCTBL and SUMTBL tables 
to generate a USM-ROUT routine 
for each detail report 
group and to build the 
ROLTBL table. 



(j) First entry is a dummy. 



SNMTBL 
(TIB 35) 



Purpose 

Store all data-names of 

SUM clauses. 

Entry Frequenc y 

One entry for each SUM 

clause. 



32 



I Data-name ) Unused 
I for sum^-^I 
I bucket (l^l 



© 



Phases Involved 

Phase 12 builds this table 
from SUM clause. 

Phase 12 uses this table 
to correlate SOURCE and 
SUM clauses, build 
ROLTBL table, and generate 
USM-ROUT routines. 

(^J left- justified, padded with binary 
zeros in low-order bytes. 

(2) First entry is a dummy. 
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SPNTEL 
(TIB 21) 



Purpose 

Store function-narae 
information from 
SPECIAL-NAMES paragraph 
in Environment Division. 



1 — I 

3 MlVariable 

-h-^ 



i m) i c I Mnemonic-name | 
I I I in EBCDIC | 



Entry Frecruency 
One entry for each 
function-name implementor. 

Phases Involved 
Phases 10 builds this table 
from SPECIAL-NAMES 

paragraph. 
Phases 11 and 12 uses this table 
to substitute function- 
name for mnemonic-name 
in Procedure Division, 



m) Three possible configurations are: 



SRAMAX 
(TIB 10) 



Byte 

1 -character 

literal in 

EBCDIC 

54 



55 



Byte 1 
Unused 



Byte 2 
Unused 



Code for device used (see COBOL word Unused 
-' list under PO-text in "Section 5. 

Data Areas") . 
COBOL word code for carriage control Unused 

word (see special name element 

under PO-text in "Section 5. Data Areas") . 



P urpose 

Determine the size of 
the SAME RECORD AREA and 
the record boundary 
within the area. 

Entry Frequency 
One entry for every 
SAME RECORD AREA number. 



1 



1 



I 1 1 

I SAME RECORD I Maximum BL| Maximum 

I AREA number lad justment Irecord size 

I {factor I 

I I I 



SRATBL 
(TIB 6) 



Phase Involved 

Phase 21 builds this table 
on entry to routine SRA 
using the SRATBL r BLTABL, 
and SDSRATBL* Routine 
SRA uses this table to 
generate SAME RECORD ARFAs. 



(Phase 10) 
Purpose 

Store file-names 
associated with SAME 
RECORD AREA clauses 
until all SAME clauses 
have been processed. 



I 



h 



1 2 I 1 {Variable | | 1 ITariable J 



-H 



4- 



-+- 



-I- 



•4- 



4- 



4 



I Count of number I Card | | File-name j | |FiIe*name) 
I of files in | number | c |in EBCDIC | | c tin EBCDIC | 

I clause I II III I 



Entry Frequency 

One entry for each 

SAME RECORD AREA clause. 
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Phase 10 builds this table 

from SAME RECORD AREA 

clauses in source program. 
Phase 10 uses this table 

to check SAME RECORD 

AREA clause syntax. 



Licensed Material - Property of IBM 



SRATBL (Phase 21) 

(TIB 9) Purpose 

Store address of buffers 
for files with SAME 
RECORD AREA clauses. 

Entry Frequency 
One entry for each file 
named in a SAME RECORD 
AREA clause. 



I 



I 



-+- 



-f- 



I 



-+- 



|DTF ISAME RECORD|Size of |BL 
I number I AREA number | area | number | 
I I I , 



Phases Involved 

Phase 21 builds by extracting 

files entered in the BUFTAB table 
with a SAME RECORD AREA clause. 

Phase 21 uses for buffer generation. 



SRCHKY 
(TIB 34) 



Purpose 

Save names of keys cited 

in KEY clause for group 

item until group item is 

processed. 

Entry Frequency 
One entry for each key 
named in KEY clause in 
current group item. 

Phases Involved 

Phase 22 builds this table 
from group items in 
Data IC-text. 

Phase 22 uses this table 
to make sure keys named 
are defined in group. 
If not, sets error bit 
in INDKEY table for 
Phase 30 reference. 



2 niVariable 

hH 

|01 = ASCENDING |c|Name of 
I 02 = DESCENDING I jkey in 
I I EBCDIC 
I I 



SRCTBL 

(TIB 22) Purpose 

Store SOURCE clause 
operand names to corre- 
late SOURCE and SUM 
clauses. 

Entry Frequency 
One for each SOURCE 
clause in each detail 
report group. 

Phases Involved 

Phase 12 builds this table 

while scanning detail 

report groups. 



I 



I 



Variable 



-+- 



-+- 



Length of (Displacement (SOURCE operand with 
variable (into DETTBL jail qualifiers, indexes, 
field (table of detail (and subscripts, if any, 

(report group |in PO-text format. 

(data-name j 
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SSATBL 
(TIB7) 



Phase 12 uses this table 
in conjunction with SMS TEL 
and SUMTBL tables to generate a 
USM-RODT routine for each detail 
report group. 



Purpose 

Store file-names 
associated with 
SAME SORT AREA 
clauses until all 
SAME clauses have 
been processed. 

Entry Frequency 
One entry for each 
SAME SORT AREA clause. 



■T • :: r 

I 1 I Variable j 



I Count of I Card | 
I number of | number! 
I files in | | 
I clause I I 

I I L- 



-+- 



-H 



I File-name ([Repeat once 
I in EBCDIC j for each file 
I ( in clause] 

I I 

J I , 



STRING 
(TIB 9) 



Phases Involved 

Phase 10 builds from 

SAME SORT AREA clauses 
in the source program. 

Phase 10 uses to check 

SAME SORT AREA clause syntax. 



Purpose 

Store verb strings 
while they are being 
built for output as 
P 2 -text. 



I Variable I 1 

I Verb I (Y) 
I string I 



Entry Frequency 

One entry for each operand 

in current strina. 



© 



Phases Involved 

Phase UO builds as strings 

are processed. 
Phase 40 uses this table to 

collect output before generating. 

This field contains the number of bytes in 
the preceding field. 



SUMTBL 
(TIB 19) 



Purpose 

Store data-names and 

operand-names from SUM 

clauses that are used to 

create routines USM-ROUT, 

INT-ROUT, RST-ROUTr and 

ROL-ROUT. 

E ntry Frequency 

One for each SUM clause. 



2 I 1 



I 



n I Unused I SUM | Generated card jReset 
^-^ I I level I number for this j level 
(j)| I (SUM clause f 
III I 
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Phases Involved 
Phase 12 builds this 

table from scan of 

SUM clauses. 
Phase 12 uses this table 

to build routines 

USM-ROUT, INT-ROOT, 
RST-ROUT, and ROL-ROUT. 



I Displacement of entry 
I in DETTBL for detail 
jnarae in SOM. • .UPON 
I clause 



■+- 



-+- 



24 



ICode for IPointer to SUM |E.-naroe |PICTURE for 
inext field jname in SNMTBL j (REDEFINES) jname in 
I ^^ I or nnnn portion! in PO-text j EBCDIC 
I (2) |of S.-name |format(3) | 



I Displacement of entry 
I in SMSTBL for first 
I operand-name in SUM 
I clause 



(1) Contains zeros if last entry in table. 

© 



© 



Code 
00 
10 

FF 

Byte 



1 

2 
3-6 



Meaning 

2 bytes contain displacement into SNMTBL table 
Next 4 bytes contain nnnn portion of S.-name 
Next field contains nnnn portion of S.-name 

Contents 
06 
E 
. (period) 



I Displacement of entry 
I in SMSTBL for last 
I operand-name in SOM 
I clause 



Zeros 



TGTADTBL 
(TIB 18) 



Purpose 

Gather information 
needed by phase 65 for 
processing the SYMDMP, 
STATE, and FLOW options. 



Entry Frequency 
Information entered 
depends on options in 
effect. 

Phases Involved 
Phase 60 builds this 

table. 
Phase 65 uses this 
table in processing 
SYMDMP, STATE, 
and FLOW options. 



I Displacement of |ID number of last 
I Debug table from) card written by 
(beginning of TGTj phase 50 
I I 



I Relative address fRelative address of 
I of byte following I Q-routines, or_J.f 
I last byte of [none, INIT2 (2) 
IINIT3 Q I 



I Relative address of {Relative ad^xess 
I first instruction jof START (2) 
I in Declarative j 
I Section (2^ Q I 
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I 



I Displacement of | Displacement from 



I first DTP cell 
I from beginning 
I of TGT 

! 0© 



© 



© 
© 
© 



If FLOW is in effect, phase 65 changes this 
value to the relative address of the byte 
following the last byte allocated for the use 
the COBOL library subroutine for the FLOW 
option (ILBDFLWO) . 

The field is not present if FLOW is the only 
option in effect. 

The field contains the relative address of 
START if there are no declaratives. 

The field is allocated but not filled in if 
the STATE option is in effect. 



I beginning of PGT 
[to virtual for 
ITLBDTEF3 (0 if 
(virtual not present) 

! ©0 



UPSTBL 

(TIB 25) Purpose 

Store OPSI-switch byte 
information for phase 
22 use in dictionary 
processing. 

Entry Frequency 

One entry for each UPSI 

name. 

Phases Involved 
Phases 10 builds from 
Special-names paragraph 
and Data Division. 
Phase 22 uses in diction- 
ary processing. 



12 



In 



I 11 
I h 



Card number | 
of UPSI-x name I 



9'v 



I 1 1 Variable | 



-h 



^ h 



-I- 



^ 



I lUPSI-x I Dictionary I | Mnemonic-) Dictionary | 
1 06 I name in (attributes) c jname in ) attributes of) 
) I EBCDIC (of 0P;SI-lt I ) EBCDIC j mnemonic-name | 



I Variable 



10 



-I ! 

J 1 I Variable 



,^^^-M ^ h 

I Condit ion -nam e | D i ction a ry f 
jfor OH or OFF; j attributes J 
ISTATOS iB BBCDrClof condition-! 

i ' ' . ■' ' '■''''■."'//^' (.name , _ j 



H : 1 

I Condit ion r-aame j 
tfor OFF or OH I 
tSTAT0S in EBCDIC I 
I I 



10 



(Dictionary \ 

tat tributes of I 



334 Section 5. Data Areas 



USNGTBL 
(TIB 2) 



Licensed Material - Property of IBM 



Purpose 

Store dictionary pointer 



I 



0-3 



a-13 



and PNs for Error or Label h 
Declarative associated 
with the USING clause of 
SORT or MERGE verb until 
all file-names in clause 
have been processed. 



I m-15 
■4- 



H 
I Dictionary I Pns for Error | Unused | 
I pointer (or Label | | 
I I Declarative | | 
I I I I 



Entry Frequency 
One entry for each file-name 
in SORT... USING clause. One 
entry for each file-name in 
MERGE... USING clause. 

Phase Involved 

Phase 30 builds and uses 

this table during USING 

processing. 



VALGRP 
(TIB 6) 



© 



Code 
01 

FF 



Purpose 

Save Data A-text 
address constant 
definitions object for 
group items containing 
VALUE clauses. 

Entry Frecfuency 

One entry for each group 

item with a VALUE clause 

that is currently being 

processed. 

Phases Involved 

Phase 20 builds this table 

from Data IC-^text LD 

entries. 
Phase 22 uses this table 

to generate Data 

A-text entries. 

Meaning 

i^.lphanumeric literal 
ALL or a figurative 
nonnumeric constant. 



I 



1 I 



IXM00028* ITarget 
I address I 

I 
I 



I Variable I 



Code I size of | Value of | 

®| constant j constant j 
I in bytes) | 
1 I r 



VALTRU 
(TIB 33) 



Purpose 

Store literals for 
VALUE... THRU clause or 
VALUE clause in level 
88 group item. 

Entry Frequenc y 
One entry for each value 
in each VALUE clause of 
this type. 

Phases Involved 

Phase 20 builds from Data 
IC-text LD entries. 

Phase 30 uses to fill in 
PI -text literals with 
the actual values. 



1 I Variable 



I 1 I Variable 



H- 



-4- 



|1 I 
H 1 



c |P1-text literal! c |P1-text literal|FF| 
CO I element || element | | 
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© 



Phase 22 uses for syntax- 
checking of the VALUE 
IS SERIES clause. 



(V) In the high-order bit: 

© 



© 



= value is not followed by THRU 

1 = value is followed by THRU 



If the count field is all zeros, the entry 
is a dummy entry for a group item 
whose subsequent Level-88 items are 
in error and were ignored by phase 20. 



This portion of the entry follows 
the format of a PI -text element 
as follows: 

Tx£e Meaning 

32 Numeric literal 

33 Floating-point literal 
3 4 Alphanumeric literal 
39 ALL constant 

Indicates the end of the entries 
for a VALUE clause. 



VARLTPL 
(TIB 15) 



Purpose 

Store information about 

variable-length items 

needed for the DATATAB 

table if SYHDMP is 

specified. 

Entry Frequency 
One entry for each 
variable-length item. 

Phases Involved 

Phase 22 builds this table 
using information in the 
GPLSTK table. 

Phase 25 uses this table 
while processing variable- 
length items for the 
DATATAB table. 



I Dictionary pointer for) Maximum size (including | 
I variable-length items j slack bytes) in bytes 



VARYTB 

(TIB 10) P urpos e 

Control GN numbers 
branched to in 
PERFORM... VARYING. 

Entry Frecruency 
One entry for each 
PERFORM... VARYING. 



h 



-+- 



|GN number |VN number |GN number |GN number 
I for condition I for varied | for PLUSGNIfor MOVEGN 
I branch | branches | j 
I I I I 



Phases Involved 

Phase UO builds this table from 

PERFORM... VARYING 

strings in P1-text. 
Phase u6 uses this table 

to issue P2-text. strings 

with correct branches 

for different steps. 
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VERBDEF 

(TIB 14) Purpose r — t t — t t — i 

Store information about |0 |1 11 11 jl 1 

the occurrences of COBOL |- — -|- -|- — -j- -}- — -| 

verbs. |48|Number of |E0 j Alphabetic verb|00| 

I j occurrences I [sequence number | | 

Entry Frequency l — -^ -•- — -L -L — -i 

One entry for each COBOL 

verb used. r r — y -, 

jl |1 I Variable | 

Phases Involved [ 4 — + ^ 

Phase 11 builds this table] Length] FB| Verb-text j 

when VERBREF or l ± — J. J 

VERBSUM is specified - 
Phase 22 uses this table 
to generate verb DEF-text. 
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VIRPTS 
(TIB 13) 



© 



Code 
00 
OF 
FO 
FF 



Purpose 

Store pointers to CVIRTB 

during virtual 

optimization. 

Entry Freguency 
One entry for each 
virtual definition 
element. 



Phases Involved 

Phase 60 or, when OPT 
is specified, phase 62 
builds this table when it 
builds table CVIRTB. 

Phase 60 or, when OPT is 
specified, phase 64 uses 
this table with table CVIRTB 
to eliminate duplicate 
virtuals. After PGT 
allocation, each entry 
points to entry in PGT 
virtual field. 



VNPNTBL 

(TIB 29) Purpos e 

Establish addressability 
at PN definition 
location. 



I Displacement from start of 
I PGT in the object module to 
I virtual 



IType (T)ipu or GV number |VN number 



Entry Frequency 

One entry for each 

VN FQU PN or VN EQD GN 

element encountered during 

Optimization A-text 

processing. 

Phases Involved 

Phases 62 builds this table 
during Optimization A-text 
processing. 

Phase 62 uses this table 
to update the ACCOMCTR 
counter by 4 for each load 
instruction to be generated 
by phase 63 for each PN or 
GN associated with 
an ALTER statement. 

Phase 63 creates, for 

every entry in this table, 
RLD entries for the VNI 
cells in the PGT. The 
phase generates a load 
instruction of the 
current Procedure Block 
into register 11 
at the point of definition 
of the PN or GN associated 
with an ALTER statement. 

Meaning 
PN, ALTER 
PN, PERFORM 
GN, ALTER 
GN, PERFORM 



(code values are in hexadecimal) 
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VNPTY 
(TIB 17) 



Purpose 

Store VN numbers and 

associated priority 

numbers to later compute 

the position of VNI 

cells in the object 

module. 



I Priority | VN 
I number | number I 
I 



Entry Frequency 

One entry for each VN 

number. 

Phases Invo l ved 
Phase 60 or^ when OPT 
is specified r phase 62 
builds from VN 
DEF-text elements in 
Optimization A-text. 
Phase 60 orr when OPT 
is specified, phases 63 
and 64 sort entries 
by priority numbers 
and uses the resulting 
order to compute the 
position of VNI cells 
in the object module. 



VNTBL 
(TIB 11) 



Purpose 

Store information on 
procedure-names that 
have been altered by an 
ALTER STATEMENT or are 
ends-of-ranqes of 
PERFORM statements. 



1 » 

PN number I VN number | 
I corresponding | 
|to PN I 

I I 



Entry Frequency 
One entry for each 
procedure-name . 

Phases Involved 

Phase 40 builds this table from 

Pi-text PNs and VNCTP 

in COMMON. 
Phase 40 uses this table 

to modify addresses 

and set up return VNs. 



XAVAL 
(TIB 2) 



Purpose 

Optimize use of 
arithmetic temporary 
storage by object module. 

Entry Frequency 
One entry for each 
8-byte slot. 

Phases Involved 

Phase 50 makes an entry 

for each slot as it is 

released. 
Phase 50 uses this table 



I ID number of 8-byte | 
I slot available in j 
I temporary storage j 
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to obtain temporary 
storage that has been 
used and released in the 
object module. 



XINTR 
(TIB 1) 



©Mt 



Purpose 

Store and analyze 
intermediate results in 
compile-time arithmetic. 

Entry Frequency 
One entry for each 
intermediate result. 



16 



I Compile-time jLength after (Length after 
lvalue in I scaling in | scaling in 
I internal decimal! internal decinalj binary 
I I I 



Phases Involved 

Phase 50 builds this table |- 



-+- 



from ID number of inter- |Number of INumber of 



mediate result passed 
from phase 40 and its 
own analysis of 
operands in arithmetic 
statements. 
Phase 50 uses this table 
to process compile-time 
arithmetic verbs. 



I Length 



I digits after {decimal places | occupied 
I scaling | after scaling | in 
I I I temporary 

I I I storage 



I Relative 
I pointer in 
I temporary 
I storage 

I 



I 



I 

I Register | Characteristics | Intermediate 
I number jof operand (Y) | result 
I I I number 



Meaning r if on 

Register used in double-precision 

mode 
Overflow could occur 
Double-precision floating-point 
Operand is in register 
Operand is a literal 
Operand is floating-point 
Operand is generated constant 
Operand is literal ZERO 



XSCRPT 
(TIB 3) 



Purpose 

Store subscript and index 
information for optimi- 
zation. 

Entry Frequency 
One entry for each sub- 
scripted or indexed item. 



I 2 I 



-f- 






In+2 INumber of | |New addressing | Dictionary pointer 
I {subscripts I OJparameter of jto unique identi- 
I I or indexes} {subscripted orjfier of sub- 
I I I {indexed iteni {scripteditem 

II II ©I © 
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© 



Bit 
0-3 



Phases Involve d r-- r- 

Phase 50 builds this table! 1 | 



from subscript verb \ ' \- ' 

string passed by 
phase 40. 
Phase 50 uses this table 
to calculate address of 
subscripted or indexed 
item, or to generate 
object code for the 
calculation. 

Meaning 

3 = byte 2 contains number of 

register which at object time 

contains new address. 
6 = bytes 2 and 3 contain the 

number of a SUBSCRIPT CELL which 

at object time contains the 

new address. 



[FlaglBictiotiary pointer 
i byte (to unigue identifier 

j ^.^^ I of first subscrj^pt 
I r3)|o3r inctex-name (¥) 



I 1 I 



, ; ( 

I Flag! Flag Dictionary pointer | 
I byte! byte to unigue identi- | 
i jfier of third subscript j 
\^3S I or index -name f?) I 



If bits 0-3 contain any other value, then the 
configuration is as follows: 



© 



Bits 


Field 
i 


Meaning 


0-3 


Type of BL containing base 






address of area: 






0000=BL 






0001=BLL 






0100=SEL 


a-15 


d 


Displacement from base address 


16-23 


k 


DL number 


Bits 


Contents 



0- 9 Zeros 
10-22 Dictionary section number 
23-31 Displacement in section 



© Bit 
1-7 


Meaning, if on 

Literal 

Unused 


© Bits 
^^ 0- 1 
2-ia 

15-23 


Contents 

Zeros 

Dictionary section 

number 
Displacement in 

section 


XSSNT 
(TIB 4} 


Purpose 

Store pointers to 
XSCRPT table during 
calculation of sub- 
scripted or indexed 
addresses. 



Entry Freguency 

One entry for each entry 

in XSCRPT table. 



I ID number | Displacement in XSCRPT 
I of subscript I table of new address 
I or index (parameter of subscripted 
(computation (or indexed item 



Phases Involved 

Phase 50 builds this table while 

building XSCRPT table. 
Phase 50 uses this table 

to locate entries in 

XSCRPT table. 
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TEXT FORMATS 



This chapter contains diagrams of the 
formats of the texts used by the compiler. 
The diagrams are arranged in the following 
order: 



1. 



Data Translation Texts: 
ATP-^ and Data A-texts. 



Data IC-, 



Code M eaning 
01 1 byte follows 

10 2 bytes follow 

11 3 bytes follow 

00 The byte immediately following 
this gives the number of 
bytes that follow it. 



Procedure Translation Texts: P0-, 
P1-, P2-/ Procedure 1^-, Optimization 
A-, and Procedure Al-texts. 



The following notes apply to the format 
diagrams in this chapter: 



E-text . 



XREF-text. 



5. Debug-text. 



• The top row of figures shows the byte 
number for each field except where the 
preceding fields include a 
variable-length field. 



With some exceptions, one IC-text 
element represents one source element. 
(IC-text here refers to Data IC-, BTF-r 
PO-,- Pl-f or P2-text; a source element is a 
COBOL reserved word, a punctuation symbol, 
an arithmetic operator, a relational 
symbol, an EBCDIC name, or a literal.) The 
major exception is that one IC-text element 
represents a complete data item 
description. Other exceptions are: the 
word DIVISION is suppressed in division 
headers, the word SECTION is suppressed in 
section headers, and standard 
paragraph -names are omitted. 

All internal text elements begin with an 
identifier byte. In IC-text and A~text the 
first two bits of this byte contain a code 
with the following significance: 



• Broken lines indicate fields that are 
present only if the condition they 
satisfy is present. 

• c =^ Number of bytes in the following 

field. 

• n = Total number of bytes to follow in 

the text element. 



lb 



Length of field is one byte. 



• Individual notes, applying to 
particular fields, are numbered 
consecutively with the numbers 
encircled. 

• Double sets of characters in bytes 
and 1 represent hexadecimal numbers. 



DATA IC-TEXT 



LD ELEMENT 



-r 



0!1|2 



03 I n [Level 
I [indicator 

! ! ® 



13-U 



I Compiler-generated 
[source card number 



Switch 
byte 







1 7-8 
-I- 



Switch [OCCURS DEPENDING 
byte [ON maximum 
occurrences 

® ! 



[10 



Switch [Number of 
bytes [indexes 

[followincr 

© ! 



Ill 



h 



[12 [Variable [ lb [Variable [ lb [Variable | 1b [Variable [Variable 



-I h 



-\ h 



H h 



H h 



[Number of[c [Name of [c [PICTURE [c [Encoded [c [REDEFINES [ OCCURS DEPENDING ON 

[kevs [ [data itemj [(actual) | [VALUE [ [ data-name [ pointer 

[ following [ [ [ [ I [ -^ I [ I ^^ 

I II II I 1 J ' » I (^ J 

I II II II ^--^ I I I ^-^ 
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Note: 



A series of logical records can follow the LD element, 
ordered as follows: 



The types of records are 



Value for 

condition-name 

with multiple values 



Mb 



I lb I Variable I 



I Switch I 
I byte 



© 



-+- 



c I Encoded 
I VALUE 

I 
I 



Indexes (first) 

or 

Keys (second) 



|1b 



IFlag 

L0_ 



lb I Variable | 



-+- 



H 



c I Index-name I 
I in EBCDIC | 
I I 



RENAMES 
or 
THRU 
name 



lib I lb I Variable 



h 



H h 



I ID |c I Name in 
I code I I EBCDIC 

!© ! ! 



® 



Bits 
0-2 

3 

4 



5-7 



Contents 

Zeros 

1 

= 



© 



Either value is upper limit 
of THRU range, or THRU was 
not specified. 
Value is lower limit of 
range; upper limit name 
follows. 
Value Meaning 

Alphanumeric literal 
Numeric literal 
Floating-point literal 
Figurative constant or ALL 
Figurative constant ZERO 



1 = 



001 
010 

oil 

100 
101 



© 



Bits Meaning 

0-3 Zeros 

4 Unused 

5 1 = INDEXED BY 

6 1 = DESCENDING KEY 

7 1 = ASCENDING KEY 



ID 

Code Meaning 

22 This name qualifies the name that 
follows. 

23 This is either a name without 
qualifiers or it is the last 

(qualified) name in a string. 
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on 



03|n 



Level 
indicator 
36 (hex) 



13 14-5 



i6-7 
-f- 



|8-9 



^J I Compiler-generated I Minimum RECORD | Maximum RECORD | 

I I source card number | CONTAINS value | CONTAINS value] 

II I I I 

I I 1 I » 



no 
1 


■1 

11 \^2 
1 


13|ia-43 1 
1 1 


Id 


SAME RECORD 1 Device 
AREA number 1 code 

j ® 

1 


1 1 
c 1 Sort-name | 
I in EBCDIC, | 
|low order | 
1 unused bytes | 
1 padded with j 
1 blanks | 
1 .... 1 



RD ELEMENT 



10 ni2 

I hH 

|03|n|Level 

I I I indicator 

I I 134 (hex) 



13-4 

h 



-T 1 

|5 I Variable 
-+H 



"T 1 

llbl 
H f 



I Compiler- |c| User-assigned |00| 
{generated source | | EBCDIC report- | | 
I card number | jname | | 
1 I I I I 



FD ELEMENT 



0|1|2 



|03|n|Level 

I I indicator I 
I 138 (hex) 



I I 



I 3-4 



ICompiler- 
I generated 
I card number 
I 



5-iin2 
1- 



113 



n^ 



115 



116 



® 



I SYS I Switch I Switch | Hopper | Buffer 
I number I byte |byte | switch | offset 

Ibinaryl (12) | (13) | ^ | 



n7-18 



I Displacement 
I of entry for 
I file in PIOTEL 
I 



119 



|20 
-f- 



121-22 



123-24 
H 



125-26 



127-28 
H 



I Device and or- | Switch | Integer-1 |Integer-1 |Integer-2 | Unused 
I ganization code | byte | specified in ! specified in | specified in| 
I for associated I ^^ | BLOCK CONTAINS | RECORD IRECORD | 
Ifiles (l3U I (14) I ICONTAINS |CONTAINS | 



29-30 131-32 



133 



I 34 



135 



136 



137 



138 



139 



Unused I Displacement |SAME | Switch | Switch | Switch | SAME (Integer in) Number of 

I of entry for |AREA |byte | byte | by te | RECORD | POSITION |CYL-OVERFLOW 
I file in CKPTBL j number j ^.^ | ^-^ | ^-^ |AREA | option for | tracks 
I I I 0^) I V^ ' vZ) Inumber|this-^ile | 

I I I ^^ I I I I Os) I 
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-I 1 1 

147-48 I 49 I 50 



T 1 1 

51-53 |54|Variable 



140 



h 



141 



■+- 



142 



143-44 



145 



|46 



-I 1 1 1 1 1 ^^ 

I SAME I Integer-2 I Switch I Reserved I Unused I (2Qq\ 
: I SORT I specified I byte | | | V_y 



H h 



I Device I Device 
I code j number of 

I I highest {AREA |in BLOCK | 
I ^-^ I index-. | number | CONTAINS I 
I ([9) I I 



I uo; I 



Unused |c jFile-name 
I fin FD 
I I entry 
I t 
i I 



1 Variable IVdriable (Variable | Variable | Variable | Variable 



h 



-H 



-+- 



{Variable 



jTRACK AREAINOMINAL KEYjACTUAL KEY|RECORD KEY| APPLY CORE-|FILE STATUS |PASSWORD 
I size land jand |and (INDEX data- j data-name and | data-name and 
j i qualifiers j qualifiers | qualifiers j name and | qualifiers j qualifiers 

I ^ r\ ^ r^ I qualifiers I ^^ ^ r\ 

I I (22) I (22) I (22) I (22) I (22) 



I Variable 



I Variable 



I Variable 



|1b| 
H f 



I One byte of {TOTALING AREAjLABEL RECORDS} 00 | 

jX'OO* I data-name and | names | | 

I reserved | qualifiers | ^-^ | j 

I I (22) I (23) I I 



© 



© 



Code 

(hex) Meaning 

01-31 = Levels 01-49 

32 = Level 77 

33 = Level 88 

34 = RD 
36 = SD 

38 = FD 

•-nnnn' name in Report Section 

39 = Level 66 

Bits Code 

1 = BLANK WHEN 'ZERO 

1 1 = JUSTIFIED 

2-4 Type of VALUE Clause 

000 = No clause 

001 = Alphanumeric literal 
010 = Numeric literal 

Oil = Floating-point literal 

100 = Figurative constant or ALL 

101 = Figurative constant ZERO 
111 = Condition-name with 

multiple values 
5-7 Type of USAGE 

boo = No clause 

001 = DISPLAY 

010 = COMPUTATIONAL 

Oil = COMPUTATIONAL-1 

100 = COMPUTATIONAL-2 

101 = COMPUTATIONAL-3 

110 = DISPLAY-ST 

111 = INDEX 



© 



© 



Bits 

1 
2 
3 
4 



Bits 


1 

2-4 



5-7 



Code 

1 

1 

1 

1 

1 



1 = 



1 = 



OCCURS DEPENDING ON 

REDEFINES 

PICTURE 

COPY 

Internal REDEFINES 

(RD entry) 
S.nnnn description 
(PICTURE field contains 
the E.nnnn from which 
PICTURE information is 
to be extracted) 
RENAMES data-name entry 
follows 
SYNCHRONIZED 



Meaning^ if SYNCHRONIZED 

= SYNC LEFT 

1 = SYNC RIGHT 

RENAMES THRU data-name follows 

000 = No SIGN clause 

001 = TRAILING 
011 = LEADING 

101 = SEPARATE TRAILING 
111 = SEPARATE LEADING 
Unused 



© 



VALUE encoded like a figurative 
constant^ literal ^ or ALL character in 
Procedure IC-text^ except: for numeric 
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© 



literal, digits not packed but in EBCDIC 
format, with sign in zone of low-order 
digit.. 

Note ; This field contains zeros when 
the ite^n is a condition-name with 
multiple values- 

If there is an OCCURS DEPENDING ON 
clause, the field is a 16-bit number 
representing displacement from start 
of 0D2TBL of entry for object of 
clause. 

b. If internal REDEFINES (RD entry) , 
tne field is a 16-bit number 
representing the displacement which 
added to the object gives address of 
REDEFINES subject. 

c. If neither, field is 8 bits of 
zeros. 

(^t) Always contains 42 (hexadecimal). 



14 


3330 


15 


3525R 


16 


3525P 


17 


3525W or 3525M 


18 


Unused 


19 


3881 


21 


5425R 


22 


5425P 


23 


5425W 


24 


Unused 


25 


2560R 


26 


2560P 


27 


2560W 


28-30 


Unused 


31 


2311 


32 


Unused 


33 


2314 or 2319 


34 


2321 


35 


3340 


36 


3540 


37-39 


Unused 


40 


2400 or 3420 or 3410 



© 



Bits 



Contents 



© 



0- 


-3 


Number of work units 


4- 


-5 


Label Records are: 
01 = Standard 
10 = Omitted 




6 


1 = SAME RECORD AREA 




7 


1 = SAME SORT AREA 


Bits 


Contents 


0- 


-2 


Device Class 

000 Not specified 

001 Direct Access 
010 Unit Record 
100 Utility 


3- 


-6 


Recording Mode 
1000 = F 
0100 = V 

0010 = U (invalid) 
0001 = S 




7 


ASCII collating sequence 




Cod 


e(decimal) Device 

1 1442R 

2 1442P 

3 2520R 

4 2520P 

5 2540R 

6 2540P 

7 2501 

8 1403, 3203, o: 

9 1404 

10 1443 

11 1445 

12 3211 

13 3505 



11) Seven-byte external name or six-Dyte 
SYSnnn with a padding blank. 

12) Bits Code 
1 = RANDOM ACCESS 

1-3 Organization 

000 Not specified or 
SEQUENTIAL 'S' 

001 INDEXED 
010 DIRECT with REWRITE 'U* 

or 'W 
Oil DIRECT 'A' or 'D* 
4-6 Device class 

000 Not specified 
01 DIRECT- ACCESS 
010 UNIT-RECORD 
100 UTILITY 
7 1 = RESERVE NO ALTERNATE AREA 



@ 



Bits Meaning , if on 

SELECT OPTIONAL 

1 SAME AREA 

2 EXTENDED SEARCH 

3 SAME RECORD AREA 

4 SAME SORT AREA 

5 Pointer to CKPTBL in entry 

6 Pointer to PIOTBL in entry 

7 Wora ALTERNATE specified in 
RESERVE clause 



3^ VSAM Support Byte Format 

Bits Meaning 
1 = AS specified in ORGANIZATION 
parameter of system-name 
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1 1 = No organization paraireter 

specified in systern-name 
2-4 ORGAMIZATIOi^ clause 

Code Meaning 

000 Not specified 

001 SEQUENTIAL 
010 INDEXED 
100 RESERVED 



15) Bits 



Code 



3b Code 



ACCESS MODE IS DYNAMIC 

Unused 

PASSWORD data-name specified 

with RECORD KEY or for the file. 



Meaning 

02 RCE {Read column eliminate) 

(3505 or 3525R) 
04 Optical mark READ (3505) 
08 PUNCH/PRINT (5424P, 3525P or 

2560R) 
80 READ/PUNCH/PRINT (542aR, 5424P, 

5424W, 3525R, 3525P, 3525W, 

2560R, 2560P, or 2560W) 
90 READ/PUNCri/PRINT (3525M) 
AO READ/PUNCH (542aR, 5424P^ 3525P, 

3525R, 2560P, or 2560R) 
CO PUNCH/PRINT (5424P, 5424W, 

3525P, 3525W, 2560P, or 2560W) 
DO PUNCH/PRINT (3525M) 
EO READ/PRINT (542UR, 5424W, 3525R, 

3525W, 2560R, or 2560W) 
FO READ/PRINT (3525M) 
82 READ (with RCE feature) /PUNCH/ 

PRINT (3525R) 
A2 READ (with RCE feature) /PUNCH 

(3525R) 
L2 READ (with RCE feature) /PRINT 

3525R) 
01 RESERVE integer-1 [ALTERNATE] 

AREA in binary (maximum is 1) 



0-1 


TRACK AREA 




00 = Not specified 




10 = Integer 


2 


1 = Direct file with relative 




addressing 


3 


1 = NOMINAL KEY 


4 


1 = ACTUAL KEY 


5 


1 = RECCRD KEY 


6 


1 = WRITE ONLY 


7 


FILE STATUS clause specified 


Bits 


Meaning, if on 





WRITE VERIFY 


1 


CYL OVERFLOW 


2 


"integer' of RESERVE clause 




not in valid range 


3 


Multiple REEL/UNIT 


4 


Multiple File Tape 


5 


MASTER- INDEX 


6 


CYL-INDEX 


7 


Unused 


Bits 


Meaning, if on 



0-3 



Number of SORT work units or 
number of reels with non- 
standard labels 
CORE- INDEX 
Unused 
ASCII file 

•integer" of ASSIGN not in 
valid range 



If not specified^ file-nam.es in 
multiple file clauses are assigned 
sequential numbers as encountered, 
starting with 1, and an entry is made 
in this field for each file. 



19) Initialized as 2311. 



14) Bits Code 

1 = COPY 

1 Unused 

2 RECORD CONTAINS clause 
3-4 BLOCK CONTAINS integer option 

00 = Not specified 

01 = RECORDS 
10 = CHARACTERS 

5-6 LABEL RECORDS option 

00 = Not specified 

01 = STANDARD 

10 = OMITTED 

11 = Data-name 
7 1 = REPORTS clause 



@ 



Bits 


Meaning, if on 


0-1 


Unused 




RECORDING MODE 


2 


Format F 


3 


Format V 


4 


Format U 


5 


Format S 


6-7 


Unused 



Bit Meaning, if on 
Incorrect class parameter of 
implementor 
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1 Incorrect device parameter of 
implementor name 

2 Incorrect organization 
parameter 

3-7 Unused 

Bit MeaninQr if on 

Primary input hopper select 

1 Secondary input hopper select 
2-7 Unused 



2-byte field giving integer TRACK AREA 
count. 



(2 2) Subfield Contents 

1 2-byte count of bytes in all 

the subfields that follow in 



n+1 



this field. 
Name of highest-level qualifier 
preceded by 1-byte count 
of characters. 



Name of lowest-level qualifier 
preceded by 1-byte count 
of characters. 

Zero, to separate this field 
from the next. 



If the option is not specif iedr the 
field consists of one byte of zeros. 

23) Series of all label record-names 

preceded by 1-byte count of characters. 
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&TP-TEXT 



Level 
01-49 
or 77 

items 



10 



1112 
-h-l— 



13-4 
H 



1 03 I n [Level {Generated 
I L^ number 1 card 
I \J} {number 



5-6 |7-8 



-+- 



19 



no 

H 



111-12 



FLAG j Maximum {Number { Number (Length of the{ 
^.^ (number of { of ( of (item in the { 
(2) I occurrences {indexes {keys (object module j 



{ 13-Variablej Variable! Variable (Variable (Variable 



h 



4- 



4- 



4- 



1 Variable 

4- 



{EBCDIC nameJBBCBIC . {fable (Partial (ViLGBP {VllLfM 

[of item I name of j displacement (dictionary table {table 

1 ^^ 1 object i ^^ I att3^iJ>utes displacement j displacement 

! © ! ® \ (3 ! ® ! ® 



® 



I 1 — r 

Level (0 {1 

88 { {- 

items {03{n 
I 1 
1 1 
I I 



13-4 



(Variable (Variable 



4- 



4- 



(X • 33 » { GENERATED ( EBCDIC 
(Level (card {name of 
number) (number (item 

! ! © 



H 

(DICTIONARY 
( attributes 
( (partial) 

I © 



® 


The 


maximum length of any element is 






204 


bytes . 




© 


The 


flag indicates the origin of the 






element, as follows: 






Bit 


Meanincf, if on 









RENAMES... THRU clause 






1 


Next element is an FD 


© 




2 


Next element is an SD 




3 


Next element is an HD 




4 


Conditional variable 






5 


Data A-text follows 






6 


VALTRO table entry 






7 


VALGRP table entry 






8 


ODO 






9 


REDEFINES clause 






10 


OSAGE is not DISPLAY 


© 




11 


Item is or is in a LABEL record. 




12 


Internal Redefines 




13 


BD 


© 




14 


RENAMES clause 




15 


SYCKRONIZED. 


© 


The 


name is prefixed by a 1-byte count 




of . 


Its length. 




© 


Either: 


© 



A 1-byte length count followed by 
the object of the internal 
REDEFINES clause, if flag bit 12 
is on; or 

A 1-byte length count followed by 
the Report Section (RD) name, if 
flag bit 13 is on; or 
The field does not exist. 



Either: 

1. A 2-byte 0D2TBL table displacement 
if flag bit 8 is on; or 

2. A 2-byte Internal Redefines 
displacement, if flag bit 12 is 
on; or 

3. The field does not exist. 

The attributes are prefixed by a 
1-byte count of their length 

Either: 



A 2-byte VALGRP table displacement 
if flag bit 7 is on; or 
The field does not exist. 



2. 



1. A 1-byte length count followed by 
the objects of the REDEFINES 
clause, if flag bit 9 is on; or 



Either: 



1. 



A 2-byte VALTRU table displacement 
if flag bit 6 is on: or 
2. The field does not exist. 
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DATA A- TEXT 



SECONDARY DTF ADDRESS 

r — T T 1 

I 011-3 14 I 

|.>_+ ^ ^ 

104 1 Relative address in | Number assigned from SDTFCTR in | 
I loiDJect module of ] COMMON* | 

I I SDTF 1 I 

L J. X J 

DTF ADDRESS 

r — T T 1 

I 0)1-3 14 . I 

|.___^ 1 ^ 

108 1 Relative address in | Number assigned from DTFCTR in COMMON j 
1 [object module of DTF| | 

L X i J 

BLOCK ADDRESS 

r T T T T 1 

I Ojl-3 |4 |5-6|7-8| 

^__+ + +~-+-~^ 

]0C I Relative address in | BL number — first base locator number] 00 1(1)1 
] I object module of buffer] assigned to file from BLCTR in COMMON j j | 
I I assigned to file. ] III 

L J. X X J. J 

FIB ADDRESS 

r — T T 1 

|0 |l-3 |4 I 

j.__i + ^ 

1 14 I Relative address in ] FIB number — File Information j 
I I object module of | Block number assigned from j 
I ]File Information Block JaMICTR in COMMON i 

L X X J 

COUNT INFORMATION 

r T T T T 1 

jo 1 1-3 I 4 I 5-6] 7 through 6 + c J 

[.__+ +_>+ + ^ 

120|Relative address following | 00 | c |Actual constant (COUNT table | 

] I Q-routines during j | j information) | 

I |Data-A-text processing III I 

L X -L JL X J 

WORKING-STORAGE SECTION ADDRESS 

r — T T T 1 

1 0|l-3 |4 15-71 

^._+ 1 + ^ 

124 I Relative address in j BL number — first base locator number assigned) (^| 
j j object module of ) to Working- Storage Section from BLCTR in j j 
] 1 Working-Storage Section) COMMON I j 

L JL X X J 

CONSTANT DEFINITION 

] 0)1-3 14 I 5-6 1 7 through 6 + c ) 

]28JRelative address inJType (2) | c jActual constant ) 

] j object module where) of \ /-^\ r-\ ' 

j j constant is located ) constant | m ) (3) ) 

L J. J. X J. J 
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ADDRESS CONSTANT DEFINITION 
r — T- 



I 0|l-3 1 4 I 5-7 I 

^.__^. 1 1 ^ 

]2C I Relative address in object |Size, in bytes, | Relative address in | 
I jniodule where address | of address ] object module specified] 
] I constant is located | constant j by address constant | 

L J. X J. ^ J 



Q-ROUTINE IDENTIFICATION 

r — T 1 

I 0|l-2 I 

,._+ ^ 

|34|GN number — generated procedure- name number] 
I I assigned from GNCTR in COMMON j 

L J. 1 J 



BL REFERENCE 



10 |l-3 
1— +- 



-+- 



^ 

1 38 1 Relative address from beginning] EL numiber — base locator] 
j I of TGT where displacement for ) numiber ] 

I I base locator cell described in ) ] 

I I next field is to be placed ] ] 

L X X J 



BLL REFERENCE 
r — T 



10 1 1-3 I 4 

|.„+ + 

I 3Cj Relative address from beginning ] BLL number — base 

I I of TGT where displacement for | locator number 

I jbase locator described in next ) 

I j field is to be placed ] 

L X X 



DATA- NAME XREF ELEMENT 



r T T T-T 1 

I 0|l-2 I 3-5 16 17 through 6+0] 
l.„+ ^ +_+ ^ 

I 48 I Card number in source | Pointer to dictionary ] c ] EBCDIC ] 
1 [program defining data-name] entry of data-nam^e j | data-name ] 

L X 1 X X_X J 






Size, in words, of block section or area to which this entry refers. 



Code 

(Hex) 

00 

01 

FF 



Meaning 
Binary 

Alphanumeric 
ALL constant 



(3) If the constant is an ALL constant, the format is 
different, beginning with byte 5, as follows: 



-T-T~ 



I 5-6] 7] 8 through 7 + c J 

jd jcjvalue specified for the constant] 

L X_X J 



where d is the number of bytes 
reserved for the constant. 
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PROCEDURE- NAME DEFINITION 

r — T"-T 1 

I 1 1 1 2 through 1 + c j 

1— +-+ H 

I 05| c I Procedure-name in EBCDIC] 

L X L J 

QUALIFYING EBCDIC NAME 

r — y-T 1 

I 1 1 1 2 through 1 + c j 

}-—+-+ H 

I 22|c I User-assigned name in EBCDIC | 
j I jtnat qualifies procedure-name j 
I I I or data-name ] 

L J._± J 

EBCDIC NAME 

r — T-T 1 

1 0|1|2 through 1 + c | 

1— +-+ ^ 

1 23 |c|User-assigned name in EBCDIC] 

L L-J. 1 J 

EBCDIC data-name of GIVING option for USE 
error declarative 

r — y-T 1 

I 1 1 1 2 through 1 + c | 

]2a|c|User assigned EBCDIC name that | 
I ] I was object of GIVING option | 

L X-J. J 

PN'S FOR ERROR/LABEL DECLARATIVES 

r — y — y y 1 

1 01 l|2-3 |4-5 I 

1 26 I OA I GN number j GN number for | 
I I I for STANDARD I file header | 
1 I I ERROR I labels j 

L X X L J 

r y 1 

I 6-7 1 8-9 I 

|. 1 ^ 

|GN number for|GN numiber f or | 
I file trailer j end-of -volume | 
[labels I labels | 

L X J 

r 1 

110-11 I 

|GN number for| (T) 
I begining-of- j 
I volume labels I 
L ., J 



NUMERIC LITERAL 

r — y-y y 1 

I 0|1|2 13 I 

I 32 I n| Positions to | Positions toj 
I 1 I left of 1 right of j 
I I j decimal j decimal | 

L X-X L J 



I 4 through 1 + n | 

1. ^ 

I Literal in packed decimal] 
I format j 

L J 

FLOATING-POINT LITERAL 

r — y — y 1 

I 0)1 ]2-9 1 

l.__+__| ^ 

1 33 1 08 1 Literal represented as ] 
1 j ] double-precision j 
1 I 1 floating-point number j 

L X X J 

ALPHANUMERIC LITERAL 



r — y~y 1 

1 1 1 1 2 through 1 + c | 

I3a]clLiteral in EBCDIC] 

L X-X J 

"EXHIBIT NAMED" NAME 

] 011)2 through 1 + c | 

|35|clEECDIC namie used in EXHIBIT | 
I 1 ] NAMED statement | 

L X-X J 

LISTING A-TEXT FOR PROCEDURE- NAMES 



r — y-y 1 

jo jl] 2 through 1 + c | 

1 37 Jc] EBCDIC procedure-name; bit of j 
1 j 1 tne preceding field is set to 1. | 

LISTING A-TEXT FOR VERBS 

r — y-y y 1 

jo 11]2 through njn + 1 j 

1 37 1 n 1 EBCDIC verb ) Alphabetic verb j 
] 1 j I sequence number j 

L L-X X J 



CRITICAL PROGRAM BREAK 



[ oji 1 

!.__+ ^ 

1 42] Break code (2) | 

L X J 
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VERB 

r — T 1 

I 0|1 I 
j^^l ^ 

jfiaiVerb code j 

II ® I 

L J. jr^ J 

RELATIONAL CODE 

r — T 1 

I 0|1 I 

|.„+ ^ 

150 1 06 (hex) = equal | 

I 108 (hex) = greater thanj 

I jOA (hex) = less than | 

I I OC (hex) = not equal j 

L J. J 

PARENTHESIS 

r — T 1 

I o|i ! 

l.„^. ^ 

152 1 00 (hex) = left parenthesis | 
I 1 01 (hex) = right parenthesis) 

L -L J 

ARITHMETIC OPERATOR 

r — T 1 

I 0|1 I 

^„+ ^ 

] 53 I Operator code (4) j 

L — x-l _r_j 

COBOL WORD 

r — T T 1 

1 0|1 |2 I 

|.„+ + ^ 

|54(Wordcode|Code (phases 10, 12, 11 | 
1 1 nj jonly, not passed on) (8^ | 
L — X X Jri J 

SPECIAL NAME 

r — T 1 

I 0|1 I 

K-+ ~>-| 

155|Code(5) | 

L L J 

FIGURATIVE CONSTANT 

r — T 1 

I 0(1 I 

|.__+ ^ 

1 75 I EBCDIC value of figurative | 
I I constant | 

L ± J 

STANDARD DATA- NAME REFERENCE 

r — T 1 

I Oil I 

I 79 I 05 (hex) = TALLY | 

L L J 



CARD NUMBER 

r — T 1 

I 0|l-2 I 

^„| ^ 

I 81 1 Compiler-generated sequential] 
I I source card number (9) j 

L X -^ J 

GENERATED PROCEDURE-NAME DEFINITION 

r — T 1 

I 011-2 I 

^__+ ^ 

188|GN number -- identifying number | 
1 I assigned to compiler-generated j 
I I procedure-names from COMMON field j 
I I GNCTR I 

L — X J 

GENERATED PROCEDURE-NAME REFERENCE 

r — T 1 

I 0|l-2 I 

,._^4. ^ 

|AA|GN number — identifying number | 
I [assigned to compiler-generated | 
I I procedure-names from COMMON field j 
I I GNCTR ^ I 

L X J 



ERROR SYMBOL 



r — T — 1 

I 0|1 I 

|B9|(6j)| 

L X J 



® 
® 



Each field contains zeros if there is 
GN for that purpose. 

Code 

(hex ) Meaning 

01 Data Division 

02 File Section 

03 Working-Storage Section 

04 Linkage Section 

05 Report Section 

06 Procedure Division 

07 Start of Declaratives 

08 End of Declaratives 

09 Start of DEBUG Packets 
OA Start of Q-Routines 

OB Start of Report Writer Procedures 
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OC End of Report Writer Procedures 

OD End of Segment 

OF Date-Compiled entry 

FO Security entry 

Fl Identification Division 

F2 Program- ID entry 

F3 Author entry 

F4 Environment Division 

F5 Configuration Division 

F6 Source-Computer entry 

F7 Object-Computer entry 

F8 Input-Output Section 

F9 File-Control entry 

FA I-O Control entry 

FB Special-Names Section 

FC Date-Written entry 

FD Installation entry 

FE Remarks entry 



(T) Verb Code List ; Code indicates the type 
of verb. 



Code 
00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

OC 

OD 

OE 

OF 

10 

11 

12 

13 

14 

15 



Meaning 
PO- and Pl-text 

ADD 

SUBTRACT 
MULTIPLY 
DIVIDE 
COMPUTE 

END OF SENTENCE 
IF 



P 2- text 
ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

EXPONENTIATE 

STORE 

IF-EQ-NUMERIC 

IF-NOTEQ-NUHERIC 



ELSE (OTHERWISE) IF-GT-NUMERIC 

IF- NOTGT-NUMERIC 

IF-LT-NUMERIC 

IF-NOTLT-NUMERIC 

IF-ALPHABETIC 

IF- NOT- ALPHABETIC 

IF- NUMERIC 

IF-NOT-NUMERIC 

STOP STOP 

GO GO 

GO-DEPEND-FIRST 
GO-DEPEND-MIDDLE 
GO-DEPEND-LAST 
EVAL 



Code 
16 

17 

18 

19 

lA 

IB 

IC 

ID 

IE 
IF 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

2A 

2B 

2C 

2D 

31 

32 

33 

34 

35 

36 

37 

38 

39 

3A 



Meaning 
PO- and Pl-text 



ALTER 

MOVE 

EXAMINE 
TRANSFORM 

READ 

OPEN 

CLOSE 

WRITE 

REWRITE 

ACCEPT 

DISPLAY 

EXHIBIT 

RESET 

READY 

RETURN 

ON 

ENTRY 

CALL 

USE 

EXIT 

REPORT- NOP 

GENERATE 

TERMINATE 

SORT 

RELEASE 

PERFORM 

INITIATE 



P2-text 
IF-EQ-NONNUM 

IF- NOTEQ-NONNUM 

IF-GT-NONNUM 

IF- NOTGT-NONNUM 

IF-LT-NONNUM 

IF-NOTLT-NONNUM 

MOVE- 4 

MOVE 

EXAMINE 
TRANSFORM 

READ 

OPEN 

CLOSE 

WRITE 

REWRITE 

ACCEPT 

DISPLAY 

EXHIBIT 

RESET 

READY 

RETURN 

ON 

ENTRY 

CALL 



SORT 
RELEASE 
GO-N-TIMES 
SUBSCRIPT 
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Code 
3B 


Meaning 
PO- and PI- text 
DEBUG 


P2-text 
DEBUG 




3C 








START (FORMAT- 


■2) 


3D 








TRACE 




3E 








EQUATE 




3F 








MOVE-1 




40 


INIT 






INIT 




41 


INCRA 






INCRA 




42 
43 
44 


STEP 
UPDATE 






STEP 

UPDATE 

USE-ERROR 




45 








ENDUSE-ERROR 




46 








USE-LABELS 




47 








ENDUSE-LABELS 




4A 








USE-REPORT 




43 








ENDUSE-REPORT 




4C 


Q-CALL 






Q-CALL 




4D 


Q-RETURN2 






Q-RETURN2 




4£ 


Q-RETURN3 






Q-RETURN3 




4F 


REPORT-CALL 






REPORT-CALL 




50 


REPORT- SA VE- 


-0 




REPORT- SAVE- 




51 


REPORT-SAVE- 


-1 




REPORT- SAVE- 1 




52 


REPORT-SAVE- 


-2 




REPORT- SAVE- 2 




53 


REPORT-SAVE- 


■3 




REPORT- SAVE- 3 




54 


REPORT-SAVE- 


-4 




REPORT- SAVE- 4 




55 


REPORT-SAVE- 


-5 




REPORT- SAVE- 5 




56 


REPORT-RETURN- 


■0 


REPORT-RETURN- 


■0 


57 


REPORT-RETURN- 


-1 


REPORT-RETURN- 


■1 


58 


REPORT-RETURN- 


■2 


REPORT-RETURN- 


■2 


59 


REPORT-RETURN- 


-3 


REPORT-RETURN- 


•3 


5A 


REPORT-RETURN- 


-4 


REPORT-RETURN- 


■4 


5B 


REPORT-RETURN- 


-5 


REPORT-RETURN- 


•5 


5C 


REPORT-ORIGIN 




REPORT-ORIGIN 




5D 


REPORT-REORIGIN 


REPORT-REORIGIN 


5E 


SEAPCH ' 






Beginning of V 


JHE 



Code 
5F 

60 
61 

63 
64 
66 

67 

68 

69 

6A 

6E 

6C 

6D 

6E 

6F 

70 



Meaning 
PO- and Pl-text 
SEARCH ALL 



SET 

SEEK 
START 



Virtual 

Definition 

EQUATE in 
SEARCH ALL 



P2-text 

End of WHEN in 
SEARCH ALL 

SET format-l 

SET format- 2 
(UP BY) 

SEEK 

START 

IF EQUAL 

(index name) 

IF NOT EQUAL 
(index name) 

IF GREATER 
(index name) 

IF NOT GREATER 
(index name) 

IF LESS 

(index name) 

IF NOT LESS 
(index name) 

Virtual Definition 



EQUATE in SEARCH 
ALL 

SET format- 2 
(DOWN BY) 

GO TO 

( Segmentation) 

Segmentation 
initialize 



73 


GOBACK 


GOBACK 


74 




EXIT program 


76 


SETVLC (for 


SETVLC (for 




RENAMES 


Q-routine) 




Q-routine) 




77 




FLOW 


79 




OPEN (VSAM) 


7A 




CLOSE (VSAM) 


7C 


GNRPT 

(for OPT) 


GNRPT 


7E 




READ (VSAM) 


7F 




WRITE (VSAM) 



in SEARCH ALL 
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Code 
80 

81 

82 

86 

87 

88 



PO- 



Meaninq 
and Pl-text 



© 



DELETE (VSAM) 
SERVICE 

MERGE 



P2-text 
REV^RITE (VSAM) 



START (VSAM) 



SERVICE 



COUlSIT 



® 



Operator 

Addition 

Subtraction 

Multiplication 

Division 

Exponentiation 

Code Special 

(hex) Naire 

00 CSP 

01 COl 

02 C02 

03 C03 

04 C04 

05 C05 

06 C06 

07 C07 

08 COB 

09 C09 
OA CIO 
OB Cll 
OC C12 
OD SOI 
OE S02 
OF SOS 

10 S04 

11 SOS 



(?) Error Syrrpol 

COBOL word — 
code 

00 (hex) 



If reserved word used 
invalidly (See also 
note 7) 

If undefined or 
multiply- defined 
symbol found 



(t) COBOL word Code ; 

This list shows the code number assigned 
to each COBOL reserved word for use in 
Procedure IC-text (PO, PI, and P2) . In 
the COBOL word table, COBWRD, in phases 
10, 11, and 12 of the compiler listing, 
the words appear in alphabetical order 
according to their length. 



Code 
Code 
01 


Meaning 
PO- and Pl-text P2- 

Word 
DATA 


-text 


02 


SKIPl 




03 


SKIP2 




04 


SKIP3 




05 


EJECT 




06 


NSTD-REELS 




07 


SUPPFESS 




09 


SORT-OPTION 




OA 


ORGANIZATION 




OB 


WHEN-COMPILED 




OC 


CORE- INDEX 




OD 


PROGRAM 




GE 


RF 




OF 


WRITE-ONLY 




12 


COMMA 




13 


DECIMAL-POINT 




lU 


FILE-LIMIT (S) 




15 


MODE 




16 


KECORDING 




17 


KEEL 




18 


SYSIPT 




19 


SYSLST 




lA 
26 
28 

2B 


TRACK-AREA 

DISPLAY 

RESET 

ON 




30 


CURRENCY 




32 


INDEX 




33 


STATUS 




34 


MODULES 




35 


MEMORY 




36 


WORDS 




37 


SYNCHRONIZED (SYNC) 




38 


OFF 
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M eaning 
Code FQ- and Pl-text P2-text 
39 P£NAMES 

3A UP 

SB DOWN 

3C FILE (in Procedure 

Division and after 
File Section header) 



3D 


OPTIONAL 


3E 


REMAINDER 


3F 


POSITION 


ao 


TAPE 


41 


TRAILING 


42 


ADDRESS 


43 


ALPHANUMERIC 


44 


NUMBER 


45 


CURRENT- DATE 


46 


TIME-OF-DAY 


47 


COM-REG 


48 


SORT-RETURN 


49 


SEPARATE 


4B 


REREAD 


4C 


DISP 


4D 


EXTENDED- SEARCH 


4E 


MASTER-INDEX 


4F 


CYL- OVERFLOW 


50 


THEN 


51 


CYL- INDEX 


52 


WRITE-VERIFY 


53 


THAN 


54 


RECORD-OVERFLOW 


55 


ALPHABETIC 


56 


NUMERIC 


57 


POSITIVE 


58 


NEGATIVE 


59 


UPDATE 



Code 

5A 


Meaninq 
PO- and Pl-text P2-text 
END-OF-PAGE (EOP) 


5B 


CHARACTER 


5C 


NOT 


5D 


AND 


5E 


OR 


5F 


LIMIT(S) 


61 


BEGINNING 


62 


ENDING 


63 


MORE-LABELS 


64 


OUTPUT 


66 


INPUT 


67 


RANDOM 


68 


PROCESSING 


69 


BEFORE 


6A 


REPORTING 


6B 


I-O 


6C 


WITH 


6D 


REWIND 


6E 


REVERSED 


6F 


INTO 


70 


AT 


71 


INVALID 


72 


AFTER 


73 


ADVANCING 


76 


LOCK 


77 


SYSPCH 


78 


CONSOLE 


79 


ALL 


7A 


CORRESPONDING (CORR) 


7B 


TALLYING 


7C 


LEADING 


7D 


UNTIL 


7E 


REPLACING 
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Code 
7F 


Meaning 
PO- and Pl-text P2-text 
BY 


81 


GIVING 


82 


ROUNDED 


83 


SIZE 


84 


ERROR 


85 


RUN 


86 


PROCEED 


87 


THROUGH (THRU) 


88 


VARYING 


89 


USING 


8A 


COBOL 


8B 


UPSI-1 through UPSI-7 


80 


DESCENDING 


8B 


ASCENDING 


8E 


TRACE 


8F 


CHANGED 


90 


NAMED 


92 


CHARACTER (S) 


93 


TIMES 


94 


DEPENDING 


95 


LINE(S) 


96 


FIRST 


97 


NEXT 


98 


UPON 


99 


PROCEDURE 


9A 


EVERY 


9B 


TO 


90 


IS, ARE 


9D 


FROM 


9E 


NO 


9F 


KEY 


AO 


RETURN-CODE 


A1 


END 





Meaning 


Code 


PO- and Pl-text P2-text 


fl2 


UWIT(S) 


A3 


FOR 


A4 


IN, OF 


A5 


SECTION 


A6 


LABEL-RETURN 


A7 


DIVISION 


A8 


SORT-FILE-SIZE 


A9 


SORT-CORF-SIZE 


AA 


SORT-MODE-SIZE 


AB 


SIGN 


AC 


SORT (appears in 



Procedure Division as verb 
with 36 code) 



AD 


MULTIPLE 


AF 


FILLER 


B1 


ASSIGN 


E2 


ACCESS 


E3 


EXCEPTION 


E4 


RESERVE 


B5 


NOMINAL 


B6 


ACTUAL 


B8 


DYNAMIC 


BA 


SEQUENTIAL 


BC 


INDEXED 


BE 


ALTERNATE 


BF 


APEA(S) 


01 


RELOAD 


04 


TRACK (S) 


06 


CYCLES 


08 


PASSWORD 


09 


EXTEND 


OA 


VALUE (S) 


OB 


PRINT-SWITCH 


CO 


BLOCK 


CD 


RECORD (S) 
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Code 
CE 


Meanina 
PO- and Pl-text P2-text 
CLOCK UNITS 


CF 


RECORDS 


DO 


CONTROL (S) 


D1 


LABEL (S) 


D3 


CONTAINS 


D4 


OMITTED 


D5 


STANDARD 


D6 


REPORT (S) 


D7 


REDEFINES 



D8 PICTURE (PIC) 

D9 BLANK 

DA OCCURS, 

DB JUSTIFIED (JUST) 

DC POSITIONING 

DD USAGE 

DE COMPUTATIONAL (COMP) , 

COMPUTATIONAL-^ (COMP-^) 

DF COMPUTATIONAL-1 (COMP-1) 

EO COHPUTATIONAL-2 (COMP-2) 

El COMPUTATIONAL-3 (COMP-3) 

E2 WHEN 

E3 RIGHT 

Ea LEFT 

E5 CODE 

E6 PAGE 



Code 
E7 


Meaning 
PO- and P1-text P2-text 
FINAL 


E^ 


HEADING 


EA 


DETAIL (DE) 


EB 


LAST 


EC 


FOOTING 


BE 


GROUP 


EF 


TYPE 


FO 
F2 

F3 


PLUS 

DISPLAY-ST 

RH 


Fa 


PH 


F6 


CH 


F8 


CF 


FA 


PF 


FB 


SENTENCE 


FC 


COLUMN 


FD 


INDICATE 


FE 


SOURCE 



FF 

® 



® 



SUM 

Bits Meaning 

FD, SDr RD 

1 Paragraph word 

2 Section word 

3 Division word 

4 Allowed in Environment 

Division 

5 Allowed in Data Division 

6 Allowed in Procedure Division 

7 Allowed in Identification 

Division 

The first bit of byte 1 is used as a 
flag. A setting of indicates a PN 
statement. A setting of 1 indicates a 
verb statement. 



358 Procedure IC-text (PO Format) 



PROCEDURE IC-TEXT (P1 FORMAT) 



Licensed Material - Property of IBM 



PROCEDURE-NAME DEFINITION 



"T — r- 



I 1 1 2 throuah 1 + c 



06 IcjDictionary attributes of 
I I procedure name. See "Dig- 
I itionary Entry Formats. "(T) 



|n-7ton-6| n-5ton-4 



h 



-+- 



jPN number for | PN number for 
I file trailer | end-of -volume 
I label I label 



C+1 I 
1 



IPriMity I 

! © ! 



In 

h 



3ton-2| n-1ton+1 



-+- 



|PN number for | Pointer to 
[beginning-of- j dictionary ^^ 
(volume label | entry for file(V) 



PROCEDURE-NAME REFERENCE 



-! T- 



1 1 1 2 through 1 + c 



I 20 I c| Dictionary attributes of 
I [procedure name. See "Di^ 
I Itionary Entry Formats. "(l) 



C+1 



I Priority 
I @ 



SD ELEMENT 



I 1 — I 

|1|2-9 



4-+- 



2 1 1 n I Dictionary 
I I attributes 
I I for SD 
I I (see "SD 
I I ENTRY") 

I I 



10 I 11-12 |n-1 to n+1 



4- 



4- 



|GN I Dictionary 
I number | pointer 
2A) I for I 
|rou- I 
I tines I 
J I 



(2A3 Bytes 10-12 are present only if the 
0-bit is on. 



FILE-NAME REFERENCE 



— I — I 

0| 1|2 through 21 



-+-+- 



21 |n I Dictionary attributes of 
I I file. See "FD Entry" in 
I I Appendix F . MJ 



VSRM FILE-NAME REFERENCE 



22 



1 23-24 
H 



(Count of number IGN number for 

I of 0-xptttihe calls fQ-roiitines 

! ® ! (!) 



In 



11 to n - 10| n - 9 to n 



8 



jPN number for 
I STANDARD ERROR 
{declarative 



-I 

I PN number for 
I file header 
I label 



-1 — I 

|1 |2 through 9 

-l-H 



110 
H 



I Ibutes of file 

I I {see "FD ENTRY" 

I I in Appendix D) 

I I 



111-12 
I 



|13-ia 
H 



|GN number I N number 
I for I for 

I string of | STANDARD 
|Q-routine|ERROR de- 
jGNs jclaMtive 

! ! © 



■+- 



26 I n {Dictionary attri-| Count of all | 



|GNs for Q- I 

{routines as- { 

{sociated with { 

{this file I 



15-22 {23-24 { 



4 



Reserved {Pointer { 
{to dic-{ 
itionary { 
{ entry j 

(£) {file I 
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DATA-NAME REFERENCE 

r 



0|1|2ton-5orn 
-f-h 



I 30 |n|Dictionary attributes. 

I I See "LD Entry" in "Section 5. 
I I Data Areas." 

I I © 

A I ^^ — . 



NUMERIC LITERAL 



— I — I — 
0|1|2 



-+H- 



13 



32 |n I Positions to {Positions to | 
I I left of I right of | 
I I decimal | decimal | 



jn - 4 



j Count of all GNs for Q-rou* 
tines under item 



1 4 through n + 1 | 



h 



■^ 



ILiteral in packed I 
I decimal format | 



r 



In - 3 to n -^ 2 



I , 

(First GN number in series of 
(all Gil numbers for O"~routines 
1 under item 



|n - 1 to n + 1 



I 

I Pointer to 

I dictionary^ntry 

I for item (V) 



DATA-NAME REFERENCE FOR KEY CLAUSE 

I 1 — I ■ — I — : — " — 



0|1|2ton-6orn-3| 



-+-+- 



30 In {Dictionary attri- [Count of all 
I Ibutes (see "LD JGNs for Q- 
I I ENTRY" in "Section (routines 
I 1 5. Data^reas") under item 

i » 



n - 4 to n^ 3|n - 2 |n - 1 to n+1 



h 



+ 



+ 



(first GN num- [Index (Pointer to 
(ber in series \kCB {dictionary 
(of all GN nuitt- 1 number (entry for^-^ 
(bers for Q* I (item Q}) 
j routines under 1 J 
I item I ( 



FLOATING-POINT LITER?.L 



0( 1(2-9 



H 1- 



1 33 (08 (Literal represented as 

{ (double-precision floating- ( 
( (point number 



ALPHANUMERIC LITERAL 



r 



1 — r 



{ 0(1(2 through 1 + c 

I (-H 

(34 (c (Literal in EBCDIC 

t „! I 



"EXHIBIT NAMED" NAME 



0(1(2 through 1 + c 



■+H- 



( 35 (c I EBCDIC form of name used{ 
( (in EXHIBIT NAMED state- 
( (ment. 



INDEX-NAME REFERENCE 
11(2 (3-4 



36 



15-6 



^S\ \ Index-name { ^6) 



( (number 
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r 1 

17-9 I 

1. ^ 

] Pointer to dictionary entry] 
I for index-name (7) | 

L _rl- J 

LISTING A-TEXT FOR PROCEDURE- NAt/lES 

r — T-T 1 

10 |1|2 through 1+c | 

]37|c|EBCDIC procedure-naire; bit of j 
1 I I the preceding field is set to 1. | 

L — ±_x J 

LISTING A-TEXT FOR VERBS 

r — T-T T 1 

I 1 1 1 2 throuqh n | n + 1 | 

K-+-+ + ^ 

137 I n| EBCDIC verb] Alphabetic verb j 
I I I I sequence number | 

L ±^± _L J 

DATANAME REFERENCE FOR OBJECT OF GIVING 
OPTION OF USE ERROR DECLARATIVE 

r — T 1 

\0 1 1 through n+1 1 

j._^4. ^ 

] 38] Same as "Data-name Reference" (3 0) 1 
1 I element above j 

L L J 

"ALL" LITERAL LONGER THAN ONE CHARACTER 

r — T-T 1 

10 1 1 1 2 through c + 1 j 

1 39 1 cj Alphanumeric value following ALL j 

L X-X J 

CRITICAL PROGRAM BREAK 

r — T 1 

1 Oil I 

|.__+ ^ 

] 42 I Break code (?) | 

L ± J 

VERB 

r — T 1 

1_011 I 

I 44 I Verb code ] 
1 j (see note 3 j 
I I under PO-text) j 

L L J 

RELATIONAL CODE 

r — T 1 

I 0|1 I 

j.__l 4 

150 106 (hex) = Equal ] 
1 I 08 (hex) = Greater than] 
I 1 OA ,(hex) = Less than j 

L X J 



PARENTHESIS 

r — T 1 

|0 |1 I 

^__+ ^ 

|52|00 (hex) = Left parenthesis j 
I I 01 (hex) - Right parenthesis! 
L X J 

ARITHMETIC OPERATOR 

r — T 1 

I Ojl 1 

|.__| j 

I 53 I Operator codel 

11' (!) I 

L X ^. J 

r — T 1 

I 0|1 I 

|.__| ^ 

j 54 I Word code j 
1 I (see note 7 | 
1 I under PO-text) | 
L X J 

NFILES 

r — T 1 

jO |1 I 

|._>^ -] 

I 56 I Number of files] 
1 I in USING I 

L X J 

FIGURATIVE CONSTANT 

r — T 1 

I Ojl ] 

l.__| ^ 

175 I EBCDIC value of ] 
1 I figurative constant ] 

L X J 

STANDARD DATA- NAME REFERENCE 

r — T 1 

10 11 1 

|.__| ^ 

179] 05 (hex) = TALLY] 
L X J 



Text Formats 361 



Licensed Material - Property of IBM 



CARD NUMBER 

r — T 1 

10 |l-2 I 

}.__+ ^ 

I 81 1 Compiler-generated sequential | 
] I source card number ^ | 
L J. srl J 

GENERATED PROCEDURE-NAME DEFINITION 

r — T 1 

|0 |l-2 I 

j.__^. ^ 

]88|GN number — identifying number | 
I j assigned to compiler-generated | 
1 I procedure-names from COMMON field] 
1 1 GJM'CTR I 

L J. J 

GENERATED PROCEDURE-NAME REFERENCE 

r — T 1 

10 |l-2 I 

^__+ ^ 

JAAJGN number — identifying number | 
I [assigned to compiler-generated | 
I ]Drocedure-names from, COMMON field j 
I I GNCTR I 

L X ^ J 

ERROR SYMBOL 

r — T — 1 

10 |1 I 

1B9I0I 
L X J 

Dictionary attributes vtfithout count and 
major code fields. 

For alphanumeric edited items, 
elementary items with report pictures, 
and elemientary item.s with sterling 
report pictures, phase 30 discards bits 
10-17 while copying the dictionary 
attributes. 

Priority appended to procedure-name 
reference and definition by phase 3. 
Priority is part of dictionary 
attributes for section-names. 

Bytes 22-24 are present only if the 
Q-bit is on. 

Pointer contents: 
Bits Contents 

0- 1 

2-14 
15-23 



© 



© 

© 
© 



Unused 

Dictionary section number 

Displacement in section 



Dictionary attributes with flag byte 
field removed. Bits 1-4 of flag byte 
overlay bits 1-4 of level number. Bits 
5-8 of flag byte overlay count field 
preceding major code field. In level 
number field, if bit 5 is en, the level 
is 01: if bit 6 is on, the level is 
77. Otherwise, the bits are off. 



In the case of data-name references to 
special registers, the addressing 
parameters field of the dictionary 
attributes contains an ID number 
accordina to the followinq schedule: 



ID 



FFOOOO 

to 
FF0007 
FF0008 
FF0009 
FFOOOA 
FFOOOB 
FFOOOC 
FFOOOD 
FFOOOE 
FFOOIO 
FF0015 



SPECIAL REGISTER 
UPSI-0 

to 
UPSI-7 

CURRENT-DATE 
TIME-OF-DAY 
COM-REG 
SORT-RETURN 
SORT-CORE-SIZE 
SORT-FILE-SIZE 
SORT-MODE-SIZE 
NSTD-REELS 
WHEN-COMPILED 



(6^ Bits Contents 

If 1, subject has variable 
length; bytes 5-6 contain 
VLC number. 

If 0, bytes 5-6 contain fixed 

length of subject. 
1-3 Unused 
4-7 1111 

(t) Code 

(hex) M eaning 

01 Data Division 

02 File Section 

03 Working-Storage Section 

04 Linkage Section 

05 Report Section 

06 Procedure Division 

07 Start of Declaratives 

08 End of Declaratives 

09 Start of DEBUG Packets 
OA Start of Q-Routines 

OB Start of Report Writer 

Procedures 

OC End of Report Writer 

Procedures 

OD End of Segment 

OF Date-Compiled Entry 

FO Security Entry 

Fl Identification Division 

F2 Program-ID Entry 

F3 Author Entry 

F4 Environment Division 

F5 Configuration Division 

F6 Source-Computer Entry 

F7 Object-Computer Entry 

F8 Input-Output Section 

F9 File-Control Entry 

FA I-O Control Entry 

FB Special-Nam.es Section 

FC Date-Written Entry 

FD Installation Section 

FE Remarks Entry 
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Code 

(hex) Operator 

00 Addition 

01 Subtraction 

02 Multiplication 

03 Division 

04 Exponentiation 



{^Oj The first bit of byte 1 is used as a 
flag. A setting of indicates a PN 
statement. A setting of 1 indicates a 
verb statement. 



© 



Error symbol 
COBOL word 
number 



00 (hex) 



If reserved word 
used invalidly 
(see also note 7 
under "Procedure 
IC-text (PO 
Format) ") 
If undefined or 
multiply-defined 
symbol found 
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PROCEDURE IC-TEXT (P2 FORMAT) 



FILE-NAME REFERENCE 



r- 



0|1| 



I 



I 



I 



-f- 



I 8-9 I 
! 



-+- 



21|n|I/0 verb I Switches I First |DTF | Switches | File number | Maximum | 
I I options I ^^^^ |BL I pointer I ^-^ |on multiple | record | 
I I CO I CO I number I number | (s) |file reel | length | 



10 



h 



11 



12-13 



I I'* I 



15 



-+- 



-h 



I 16 



I Switches I Switches I User maximum | Access | Print control | Unused 
I ^^ I ^^ I label length I method I commjjii cation I 

I C!*) ' ® ' » © I (z) » 



17 



I 



18 



19 



I 20-21 j 22-24 I 25-27 fn-mn-13 to b-12 



-h 



4- 



•4* 



I Secondary | Secondary | Secondary | Block | idK f or | Pointer to| |6N numbers 



I for 
lO-routines 



|DTF pointer I DTF pointer |DTF pointer! size forlACTtTAL KEY | dictionary | 
I number (number j number jfile (data-name (entry for ( 
I ( ( ( (if BA (ACTUAL KEYf^.^ 

( ! ( i i -. (data-name (b^ 

( ( ( ( ( m (if BA ^^ (^ 

' t i » I I 1 (?} » 



(n-11 to n-10 (n-9 to n-8 (n-7 to n-6 (n-5 to n~a 



h 



4- 



-f- 



■+- 



(PN number for |?N number for(PN number for(PN number for 
(standard error (file header (file trailer (end of volume 
(declarative (label (BOF) (label (EOF) (label (EOV) 



(n-3 to n-2 

h 



(n-1 to n+1 



(PN number for (Pointer to 

(beginning of (dictionary 

(volume label (entry for 

( (BOV) (file (lo) 



VERB INFORMATION 



( 1 1 2 through 1 + c 



4-+- 



24(c|Follows verb string for EXAMINE , TRANSFORM, EVAL, ADD, | 
( (SUBTRACT, MULTIPLY, DIVIDE, USE, DEBUG. ( 



VERB INFORMATION (VSAM) For VSAM READ, WRITE, REWRITE, DELETE, and START 



( 1 ( 



24 ( c (ACB 
( (number 

!@! f3f 



( 



I 



5-7 



-h 



4- 



Execution-time ( Compile-time ( Dictionary pointer 
information (information (to RECORD KEY 
I ^-^ (data-n^i^ 
3b) » (^ » QS) 
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VSAM FILE-NAME REFERENCE 



|0 



1 2 through 9 



|10 



^ 

I 26 1 n I Dictionary attributes of | Count of all GNs for | 
I I I file (see "FD ENTRY" in | Q-routines associated] 
1 I Ga) {"Section 5- Data Areas") | with this file | 
L J._^^^J. X J 



111-12 113-14 115-22 123-24 | 

|GN number f or | GN number for j Reserved j Pointer to j 
[string of [STANDARD ERROR j ^-^ [dictionary | 
I Q- routines [declarative | |IOg [entry for file| 
[GNS \ <f^ I ^^ 1 I 

L X 2-^ X JL J 



DATA-N7\ME REFERENCE 

5 or n - 2 



r — T-T 

[ 0[1[2 to n 



jn - 3 to n - 2 



1 to n + 1| 
H 



30 jn[ Dictionary attributes of data- [Count of all GNs [First GN number in series j Pointer to 
[ [name- See "LD Entry" in j f or Q-routines jof all GN numbers for [dictionary 
[ I "Section 5, Data Areas," [under item | Q-routines under item [entry for 
11^ I I litem 

I I @ II [ (g) 



DATA-NAME REFERENCE FOR KEY CLAUSE 



r — T-T 

[0 [1[2 to n 



6 or n - 3 



|n - 5 



4 to n - 3 



30 [n| Dictionary attributes of [ Count of all GNs [First GN number in 



I I data-name (see "LD 
I [ENTRY" in "Section 5. 
I [Data Areas") 

I I (g) 
-X-J. ^^ 



[ for Q-routines 
[ under item. 



[series of all GN 
I numbers for Q- 
j Routines under 
item 



r T 1 

|n-2|n-lton+l j 
Y + ^ 

I Index [ Pointer to [ 
[ACB I dictionary entry j 
I number j for item dTo) | 



SUBSCRIPTED DATA-NAME REFERENCE 



r — T~T 

] 1 1 1 2 through n - 2 



K- +-+- 



[n - 1 to n + 1 



H 



[ 31 [n [Dictionary attributes of subscripted [ Pointer to dictionary [ 

I I [data-name. See "LD Entry" in [entry 

I [ ["Section 5. Data Areas." (11) @ [ @ 



NUMERIC LITERAL (DECIMAL) 



r — T-T — 
[0 [1|2 



-+- 



-T 1 

1 4 through 1 + n[ 



j 32 [n [Positions to the [ Positions to the [Literal in 

I I [left of decimal [right of decimal j packed decimal [ 

III I [format [ 

L ±-± ± ± J 
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FLOATING-POINT LITERAL 

r — T — T 1 

1 0|1 12-9 I 

1— +--+ ^ 

I 33 I 08 I Literal represented as double- | 
] I I precision floating-point number j 
L X xl J 

ALPHANUMERIC LITERAL 

r — T-y 1 

jo 1 1 1 2 throuqh 1 + c j 

1— i-+ ^ 

] 34|c|Literal in EBCDIC | 

L J.-J. J 

"EXHIBIT NAMED" NAME 

r — T-T 1 

I 1 1 1 2 through 1 + c j 

f~+-+ ^ 

]35jcJEBCDIC form of name used in EXHIBIT j 
1 I I NAMED statement | 

L X-± J 

INDEX-NAME REFERENCE 

r T-T T T T T 1 

|0 11|2 |3-4 \b'6 |7-9 |10-11| 

] 36 ]n 1^3)] Index-name] Length of jpointer to dictionary | j 
I I I I number | sub ject (lt{)| entry for item (O) | (13) | 

LISTING A-TEXT FOR PROCEDURE- NAMES 

r — T-T 1 

I i 1 1 2 through 1 + c | 

f~+-+ -I 

I 37 |c I EBCDIC procedure-name; bit of the | 
I I I preceding field is set to 1 j 

L — ±-± 1 J 

LISTING A-TEXT FOR VERES 

r T~T T 1 

] 1 1 1 2 through n j n + 1 j 

f~+-+ + ^ 

I 37 |n| EBCDIC verb] Alphabetic verb sequence number | 

L J._J. X J 

MULTIPLE GN REFERENCE 

jO ll|2-3 I ' ^ |n throuqh n + 1| 

1— +-+ + — ^ £ + ^ 

I 3 8 1 n ! GN number | ^ ~7 1 ^^^^ number | 

L J.-J. JL ^ -^ X J 

FIGURATIVE CONSTANT "ALL" (Greater than 1 character) 
|0 1 1 [Variable 1 

H-+-+ 1 

] 39 I c] Alphanumeric literal following ALL| 

L L_X J 

CRITICAL PROGRAM BREAK 

r — T 1 

10 11 I 

] 421 Break code qJ)] 
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RELATIONAL CODE 
I 1 



I 1 
h- 



50 I 06 (hex) 

1 08 (hex) 

|0A (hex) 

|0C (hex) 

I 



Equal 

Greater than 
Less than 
Not less 
than 



PHASE 40 OPTIMIZATION INFORMATION 



r 



I on 
I — h 



|43|TyBe code 

I I tie) 



COBOL WORD 



r- 



10 n 
I — h~ 



I 54 I Word code 

I I (See note 7 under 

I I "Procedure IC Text (PO Format)") 



FIGURATIVE CONSTANT 



10 |1 
I h 



1 75 I EBCDIC value of figurative constant 



STANDARD NAME REFERENCE 



10 n 
I — h 



179 1 05 (hex) = TALLY 



CARD NUMBER 



r 



T- 



10 11-2 
I h 



I 81 1 Compiler-generated segueoitial 
I I source card number Q,y 



CARD NUMBER FOR FLOW 



I 1 

I 11-2 

I 1 

I 82 I Card number 
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VERB 



II 
1— 



84 I Verb code 

I (See note 3 under 

I "Procedure IC-text (PO 

I Format) ") 



Count of elements that | 
follow for this statement! 

I 

I 



GENERATED PROCEDURE-NAME DEFINITION 



I 1-2 



4- 



88|GN number -- identifying number assigned to compiler- 
I generated procedure-names from COMMON field GNCTR 



GENERATED PROCEDURE-NAME REFERENCE 



I 1-2 



■+- 



AA|GN number — identifying number assigned to compiler- 
I generated procedure-names from COMMON field GNCTR 



INTERMEDIATE RESULT REFERENCE 



I 1-2 



BA|IR number — identifying number assigned! 
I to intermediate result ! 



NUMERIC LITERAL (BINARY) 



!l-2 



I 



-+- 



BB I Literal in | 
I binary format! 



TEMPORARY RESULT REFERENCE 



1 1-2 



4- 



BCjTR number 

I 
I 



PROCEDURE-NAME DEFINITION 



10 II 
4- 



12-3 
4- 



I C7 I Priority ! PN number — identifying sequential number of 
I number I source procedure-name ^ assigned from COMMON 
I I field PNCTR 

-J I : 



FILE-NAME REFERENCE 



I , 

10 11-3 

I 1 

!C8 I Dictionary pointer 
I I 
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10 11 
I 1— 



I 2-3 
H 



I C9 1 Priority number of |VN number — identifying number assigned to compiler- 
[ I segment in which | generated variable procedure-names from COMMON 
I I Vn' located | field VNCTR 



PROCEDURE-NAME REFERENCE 



10 11 
I h 



|2-3 
4- 



I DO I Priority number of |PN number ' — identifying seguential number of 
I I segment in which | source procedure-name, assigned from COMMON 
I |PN is located | field PNCTR 



PROCEDURE-NAME REFERENCE FOR XREF 



10 11 
I 1 



12-3 



I 1 1 

I D4 1 Priority number of | PN number — identifying seguential number of 
l^.,^! segment in which | source procedure -name, assigned from COMMON 
[fe0)|PN is located | field PNCTR 



VARIABLE PROCEDURE-NAME REFERENCE 
I 1 1 



10 II 
I h 



12-3 



I DB I Priority number of IVN number — identifying number assigned to compiler- 
I {segment in which {generated variable procedure-names from COMMON 
I |VN is located | field VNCTR 



GLOBAL TABLE REFERENCE (TYPE 1) 



10 11 
I h 



12 



I F9 I Cell code for Task | Displacement in bytes | 



I I Global Table 



Tas 

© 



I from start of cell 



I 



GLOBAL TABLE REFERENCE (TYPE 2) 



10 n 
I — I— 



12-31 



-+- 



H 



I FA I Cell code for Task or ^-^|^-^ | 
I {Program Global Table U^lO?) I 

(V) Bits 0-3: Not used 

Bits 4-7: Verb options, per table: 



© 



VERB 


CODE 


OPTION 


OPEN 


00 


OPEN, INPUT 




01 


OPEN, NO REWIND 




02 


OPEN, REVERSED 




04 


OPEN, OUTPUT 




OC 


OPEN, INPUT/OUTPUT 


READ 


08 


READ INTO 


WRITE 


08 


WRITE FROM 


CLOSE 


00 


CLOSE, REWIND 




01 


CLOSE, NO REWIND 




02 


CLOSE WITH LOCK 



® 





08 CLOSE REEL 






09 CLOSE REEL, NO REWIND 


Bit 


Meanina 


Mask 





If 1, Q-routines required 


X»80» 


1-2 


As follows: 






00 = Variable records 


X»00» 




01 = Fixed records 


X»20« 




10 = Undefined records 


X»40» 




11 = Spanned records 


X»60» 


3 


If 1, Multiple reel file 


XMO» 


4-7 


Number of BLs for file 




its 0- 


-3: Access method, as follows: 


Bits 


Access Method 




0001 


DTFCD 




0010 


DTFPR 




0011 


DTFMT 




0100 


DTFSD 




0101 


DTFDA 




0110 


DTFIS 
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Bit 4: Set to 1 if any of the 
following conditions occurs: 

• OMR^ if access method is DTFCD. 

• APPLY WRITE ONLY, if access method is 
DTFMT or DTFSD. 

• ACTUAL KEY SPECIFIED, if access 
method is DTFDA for DA Sequential 
File. 

• IBM extension (REWRITE) for DTFDA, 
Random File. 

• Load type DTF generated, if access 
method is DTFIS . 

Bit 5 

• Set to 1 if access method is DTFDA 
and relative track addressing is 
used. 

• Set to 1 if access method is DTFMT 
and file is an ASCII file. 

• Set to 1 if SLCcess method is DTFIS 
and file is double buffered. 



© 



© 



10 AFTER ADVANCING used in program* 
08 AFTER POSITIONING used in 

program* 
04 Minimum case (single buffered, 

unblocked file or ISAM) 
02 CLOSE with lock 
01 OPEN optional 



*carriage control DTFPR 



Code 




(Hex) 


Access Method 


01 


DTFCD 


02 


DTFPR 


03 


DTFMT 


04 


DTFSD 


05 


DTFDA 


06 


DTFIS 



This byte is used for print control 
communication between phases 40 and 51, 



Bit 
0-1 
2-3 



Meaning 
Not used 
As follows: 



(3a) 
(5S 



© 



© 



Bits 6-7: Not used. 

Bit Meaning 
= SEQUENTIAL ACCESS or READ 
NEXT With DYNAMIC ACCESS 
1 = RANDOM or DYNAMIC ACCESS 
1-7 Unused 

Bit Meaning 
= No duplicate string follows 
1 = Duplicate string follows 
(READ INTO with MOVE only) 
1-7 Unused 

This field is used only for a READ verb 
with a KEY clause. 

Count field = 6 for READ verb, 
otherwise = 3. 

For START with KEY dataname clause, 
field = ACB#, otherwise = 0. 



Bit 


1-3 

4 

5 
6-7 



Meaning > if ON 

Blocked 

Not used 

SAME RECORD AREA 

Random access 

Label type, as follows: 

00 - Standard 

01 - User standard 

10 - Nonstandard 

11 - Omitted 



Code 






(Hex) 


Meaning 




80 


USING/GIVING 




40 


ACTUAL KEY in working 


storage 


20 


BEFORE ADVANCING used 
program* 


m 



00 = BEFORE ADVANCING 

01 = AFTER POSITIONING 
10 = AFTER ADVANCING 

4-5 As follows: 

00 = Integer 

01 = Identifier (data-name) 
10 = Mnemonic Name 

6 If 1r END OF PAGE test is 

required 

7 Not used. 

(^ Bytes n-14 to n-12 are present only if 
the 0-bit is ON. 

(V) Bytes 22-27 are present only for a 

file-name reference in a READ or WRITE 
statement. 



® 



© 



Pointer Contents: 



Bits 


Contents 


0,1 


Unused 


2-14 


Dictionary section 




number 


15-23 


Displacement in section 



(lOcJ Field contains zeros if GN is not 
generated . 



Dictionary attributes with flag byte 
field removed. Bits 1-4 of flag byte 
overlay bits 1-4 of level number. Bits 
5-8 of flag byte overlay count field 
preceding major code field. In level 
number field, if bit 5 is on, the level 
is 01; if bit 6 is on, the level is 77. 
Otherwise, the bits are off. 
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In the case of data-name references to 
special registers, the addressing 
parameters field of the dictionary 
attributes contains an XD number 
according to the following schedule: 



ID 


SPECIAL REGISTER 


Froooo 


DPSI-0 


to 


to 


FF0007 


UPSI-7 


FF0008 


CURRENT-DATE 


FF0009 


TIHE-OF-DAY 


FFOOOA 


COM-REG 


FFOOOB 


SORT-RETURN 


FFOOOC 


SORT-CORE-SIZE 


FFOOOD 


SORT-FILE--SIZE 


FFOOOE 


SORT-HODE-SIZE 


FF0010 


NSTD-REELS 


FF0015 


WHEN-COMPILED 



If this data-name reference contains a 
subscript or index address calculation 
ID number, bit will be on, bits 1-7 
will contain , and bits 8-23 will 
contain the ID number. The high-order 
bit is turned on by Phase 40 when it 
assigns the ID number. 

Note ; AddressincT Parameters field in 
attributes in "LD entry'* has been 
replaced by unique subscript identifier 
element to match entry in DEFSBS table. 

For alphanumeric edited items, 
elementary items with report pictures, 
and elementary items with sterling 
report pictures. Phase 30 discards bits 
10-17 while copying the dictionary 
attributes. 

This field is present only if the 
indexing is relative. When present, it 
contains a 2-byte binary literal, the 
object of the plus or minus. 
Contents 

1 = Subject has variable 
length: bytes 5-6 
contain VLC number 
= Bytes 5-6 contain 
fixed length of 
subject 



1-3 


Unused 


4-7 


1111 


Code 




(Hex) 


Meaning 


01 


Data Division 


02 


File Section 


03 


Working-Storage Section 


04 


Linkage Section 


05 


Report Section 


06 


Procedure Division 


07 


Start of Declaratives 


08 


End of Declaratives 


09 


Start of DEBUG Packets 



OA Start of Q-Routines 

OB Start of Report Writer 

Procedures 

DC End of Report Writer 

Procedures 

OD End of Segment 

OF Date-Compiled entry 

FO Security entry 

F1 Identification Division 

F2 Program-ID entry 

F3 Author entry 

F4 Environment Division 

F5 Configuration Division 

F6 Source-Computer entry 

F7 Object-Computer entry 

F8 Input-Output Section 

F9 File-Control entry 

FA I-O Control 

FB Special-Names Section 

FC Date-Written entry 

FD Installation entry 

FE Remarks entry 



Code 

(hex) Meaning 
02 Precedes a Procedure-name 

definition element equated to a 
VN for an ALTER verb, each 
Generated Procedure-name 
defined for INVALID KEY/AT END, 
each procedure-name definition 
following TO PROCEED TO in an 
ALTER statement, each USE 
declarative, and each ENTRY 
verb. PERFORM.. .TIMES 
04 Precedes a Variable 

procedure-name reference 
element at a PERFORM verb exit 

05 Precedes a Generated 

procedure-name definition 
element at the returning point 
of any performed procedure 
except a PERFORM. . .TIMES 
procedure in a non-segmented 
program. 



Code 




.(Hex) 


Meaning 


02 


SAVE-AREA 


04 


SWITCH 


06 


Unused 


08 


DEBUG 


OA 


Unused 


Code 




(Hex) 


Meaning 


00 


SDTFADR 


04 


VLC 


08 


CNCTL 


OC 


PFMCTL 


10 


PFMSAV 


14 


DTFADR 


18 


XSA 


1C 


PARAM 


ID 


Single-precision 
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floating --point 
1E Double-precision 

floating point 
20 WORKING CELLS 
24 TEMPORARY STORAGE 
28 XSASW 
2C BL^ SPL, BLL 
30 VIRTUAL 
34 FIB 

1I9J Except when the code for the preceding 
field is 2C, this field contains the 
identifying number from one of the 
COMMON counters as described in 
"Section 5. Data Areas." When the 
preceding field is 2C, this field 
contains the i and k fields of the 
addressing parameters , as follows: 



Bits 
0-3 



4-7 
8-15 



Field Value Meaning 

i 0000 BL 
0001 BLL 
0100 SBL 
0000 Unused 

k Base locator number 
assigned from 
corresponding 
COMMON counter* 



When the code for the preceding field 
is 1D or 1E^ this field contains zeros, 



Used to write an XREF element for 
procedure-name B in the following 
cases: 



• PERFORM A THRU B. 



• ALTER A TO PROCEFD TO B. 



• A. GO TO E. (where A is altered) 



The first bit of byte 1 is used as a 
flag. A setting of indicates a PN 
statement. A setting of 1 indicates a 
verb statement. 
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PROCEDURE A-TEXT 



PN AND GN DBFS AND PROGRAM BREAKS 



10 |1|2 
I hH— 



|27ln|24, Zl , or 88 elements 



MISCELLANEOUS A-TEXT 



1 — I 

|1|2 



4-4- 



28 |n I All elements except 24 ^ CT, 88 
I I (see 27) and 00 (see 29) 



E~TEXT 



r- 



10 |1|2 
\ 1-4- 



|29|n|00 elements 
I I I 



CARD NUMBER 



0|1-3 
—I 



2C I Sequentially generated 
I card number Mj 



EBCDIC PROCEDURE-NAME GENERATOR 

I 1 ■ 



I 1 Consists only of this one-byte 

I 1 field. Used to create in-line DC 

1 3C I instruction for current card 
I I number to be used by the TRACE 
I I verb 



MACRO-TYPE INSTRUCTION 



"T- 



I on 
I — h- 



12 
4- 



|1H I Type code 

! ! ® 



OPERATION CODE 



I 0|1 
I 1— 



I 43 1 Machine operation code. 
I 100 (hex) used for CNOP 



[Priority number if | 

I type code is 4C | 

J I 



12 



I 

lvalue of second instruction 
Ibyte: condition code, length, 
I register, or immediate field 



SOURCE PROCEDURE-NAME DEFINITION 



0| 1 1 2-3 



4- 



4- 



30 1 2 |PN number — number assigned 

I I from PNCTR in COMMON 
I I 



PPOCEDURF-NAMF REFERENCE 



I 0| 1 |2-3 



I h 



4- 



i4C|(2)|PN number assigned at point of| 
I I I definition from PNCTR (COMMON) | 



GENERATED PROCEDURE-NAME DEFINITION 



0|1-2 



4 



34 1 GN number — number assigned from 
jGNCTR in COMMON 



GENERATED PROCEDURE-NAMF REFERENCE 

I 11-2 
I h 



|50|GN number assigned at point of| 
I I definition from GNCTR (COMMON) | 
I I I 



VARIABLE PROCEDURE-NAME DEFINITION 



0| 1 1 2-3 



4- 



4- 



38 1(2) I VN number — number assigned 

I ^-^ I from VNCTR in COMMON 
I I 



VARIABLE PROCEDURE-NAME REFERENCE 

i 01 1 12-3 



I — h 



4- 



1541(2) I VN number assigned at point of j 
I I {generation from VNCTR (COMMON) | 
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VIRTUAL REFERENCE 



ADDRESS REFERENCE 



0|1-2 
—\ 



|58|VIR number assigned to source CALL | 
I statement operand from VIRCTR 
I (COMMON) 



0|1-3 



I 4-6 



78| Addressing ^.^^ I Dictionaj::y | 
iparameters^Y) jpointer^J j 



BASE LOCATOR REFERENCE 



I on 
I — I— 



(2 



+ 



|5C|TypefBL or BLL number 
I I ci^jde (assigned from BLCTR 
I |(T) jor BLLCTR in COMMON 



GLOBAL TABLE STANDARD AREA REFERENCE 



-r 



I on 
I — 1- 



12 



1 60 I Type I Displacement in bytes from 
I |cQde|start of specified area 

! !® ! 



EBCDIC DATA--NAME REFERENCE 



r 



I 0|1|2 through 1 + c 
I hH 



|7C|c|Data-name in EBCDIC 
I I I 



ADDRESS INCREMENTS 



0|1-3 



80 lvalue that is to modify an 
I address. Negative value in 
|2»s complement. 



GLOBAL TABLE OTHER AREA REFERENCE 

I 1 1 

I 0|1 |2-3 

I h 



I 

H 1 

1 64 IType I Identifying number of item | 
I |c<^e|within specified area | 
I 1(6) I I 



RELATIVE ADDRESS 



0|1 



-h 



12 
-I— 



84|Code for jSize, in bytes, 
jobject juodule |of address 
I field (9) I constant 



LITERAL REFERENCE 



I 011-2 
I h 



|68INumber of literal 



13-4 

h 



I Number of item in 
(specified field 



DC DEFINITION 

1 1 — I ? 

I 0| 1|2 throuah c + 1| 

I h- 1 f 

|6C|c|Actual constant! 



SPECIAL PHASE 60 ELEMENTS 



BASE AND DISPLACEMENT 



I 1 

I 011-2 



I 1 

1 70 I Bits Contents 

I 1 0-3 Register number 

I 14-15 Displacement 



REGISTER SPECIFICATION 



"oTT 



AO I Register number: 
1 00 through OF (hex) 
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INCREMENTED ADDRESS 



0|1-3 



I A4 I Addressing 
ipargLineter 

! © 



ia-6 



I Dictionary 
ipoijQter 

I © 



PHASE 5 OPTIMIZATION INFORMATION 



0|1 
-H— 



I 



! 

CO ITy-^ code I 

\W ! 



17-9 I 

I 1 

lvalue of increment I 



RPT-ORIGIN 



I 011-2 
I h 



IDtfjGN number 



SPECIAL PHASE 60 ELEMENTS 

® 

CALLING SEQUENCE DISPLACEMENT 



0|1 



12 



I BO j Code for |Base code| 
I object module I swij;ch 
Ifield (Vj) I n2) 



I 3-4 



I Number of item in| 
I specified field | 



CALLING SEQUENCE DICTIONARY POINTER 
0|1-3 



+ 



© 



1 ) The first bit of byte 1 is used 

as a flag. A setting of indicates 
a PN statement. A setting of 1 
indicates a verb statement. 



® 



® 



Byte 1 contains the priority number of 
the segment within which the procedure- 
name is located . 



Code 

(hex) 

00 



04 



I B4 I Pointer to dictionary entry forj 
jfile-namer data-name, or sub- 
I scripted data-name 



FILE REFERENCE ELEMENT 



08 



OC 



10 



18 



0|1-3 



I B8 I Pointer to dictionary! 
I entry for file 



PARAMETER FOR CALL TO SEGMENTATION AND GO 
TO DEPENDING ON SUBROUTINES 



I on 

I 1— 



I 2-3 
H 



|BC|Priority |PN number! 



20 



24 



28 



2C 



Meaning 

EQUATE — equates variable 
procedure-names to initial 
value; followed by 
procedure-name reference. 

ENTRY — defines entry point; 
followed by EBCDIC data-name 
reference giving entry point 
name. 

BLCHNG — specific contents of 
base locator changed; followed 
by base locator reference. 

ENDOPT — indicates end of 
register optimization. 

DECLARATIVES START — indicates 
beginning address of 
Declarative Section ; produced 
only if SYMDMP or STATE is in 
effect. 

ADCON — defines address 

constant; followed by relative 
address reference, procedure- 
name reference, calling 
sequence displacement element, 
or calling sequence dictionary 
pointer to which ADCON points. 

START — identifies first 
executable instruction. 

DC — identifies constant; 
followed by DC definition . 

RESERVE — specifies registers 
not to be used by phase 60 or 
phases 62 and 63 followed by 
register specification element. 

FREE — indicates registers no 
longer reserved; followed by 
register specification element. 
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30 



© 



© 



© 



34 
38 

3C 
40 



44 
4C 

50 



DESTROY — indicates that 

contents of register 14 or 15 
were destroyed; followed by 
register specification element. 
(phase 60 or Phase 63 generates 
a reload for the register from 
the appropriate cell when it 
needs the address contained 
there.) 

INIT — indicates when permanent 
registers must be loaded. 

ORIGIN — indicates where to set 
location counter for overlaying 
USE BEFORE REPORTING code; 
followed by generated 
procedure-name reference. 

REORIGIN — indicates that the 
reset location counter is to be 
reset. 

Q-BEGIN — indicates start of 
Q-routine coding; destroys 
permanent register assignment. 

Segmentation control break. 

Segment initialization (1-byte 
priority number in next field) . 

Dummy procedure-name reference 
element to force an XREF 
element to be written for the 
following procedure-name 
reference element. 



Bits 


Code Heaninq 


0-3 


0000 Unused 


a-7 


0000 BL 




0001 BLL 




0100 SBL 


Code 




(hex) 


Meaning 


02 


SAVE-AREA 


04 


SWITCH 


06 


TALLY 


Code 




(hex) 


Meaning 


00 


SDTFADR 


04 


VLC 


08 


ONCTL 


OC 


PFMCTL 


10 


PFMSAV 


14 


DTFADR 


18 


XSA 


1C 


PARAM 


20 


Working Cells 


24 


Temporary Storage 


28 


XSASW 


2C 


SUBADR 


30 


Temporary Storage-2 


34 


FIB 


3C 


SAVE-AREA-2 


44 


REPORT-SAVE area 


48 


Global Table Overflow cell 


50 


Checkpoint Counter 


54 


Temporary Storage-3 


58 


Temporary Storage~4 


5C 


Index-name 


60 


lOPTRCTR 



^ 


Bits 


Field Code Content or Meaning 




0-3 


i 0000 BL 

0001 BLL 

0011 Address of 

data-name as in 
register specified 
by bits 12-15 

0100 SBL 

0110 Subscript cell 




4-15 


d Displacement from start 
of area controlled by 
base locator. 




16-23 


k SBLr BL, or BLL number 
assigned from SBLCTR, 
BLCTRr or BLLCTR in COMMON 
or subscript cell number. 


® 


Bits 


Contents 


0-1 


Unused 




2-14 


Dictionary section number 




15-23 


Displacement in section 




Code 




© 


(hex) 


Meaning 


00 


INIT1 




04 


TALLY 




08 


PARAM 




OC 


BL 




14 


SBL 




1C 


VLC 




28 


BLL 




2C 


LITERAL 




30 


INIT3 




34 


Checkpoint counter 




38 


PGT 




3C 


TGT 




40 


INIT2 




44 


START (first executable 
instruction identified 
by START) 




48 


PN 




4C 


VIRTUAL 




50 


GN 




58 


VN 




5C 


VNI 




60 


SUBADR 




64 


Temporary Storage 




68 


External ADCON (for address of 
transient area in segmented 
program) 
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^0) The following special Phase 60 A-text 
elements are generated and then used by 
phase 60 to generate MVC instructions 
to initialize VN cells in the TGT: 

Identifier 

Byte Text Element 

90 A 4-byte element that 

contains the number of the 
VNI cell in the PGT* 

A8 A 1-byte element that 

indicates that the value in 
the P6PLDS field should be 
used as the ''plus" element 
of the MVC instruction 

AC A 1-byte element that 

indicates that the value in 
the P6LNG field should be 
used as the "length" 
element of the MVC 
instruction 



20 
24 
28 
2C 
60 
64 

©Code 
(hex) 
00 
01 



(l3)code 
^-^ (hex) 






Code 



04 


TALLY 


08 


PARAM 


OC 


BL 


10 


SAVE2 


14 


SEL 


18 


FIB 


1C 


VLC 



01 



02 



03 



04 



05 



06 



PN 

GN 

BLL 

Literal 

SUBADT? 

Temporary Storage 



Meaning 

No preceding base code 
Base code precedes 
this element 



Meaning 

Precedes a load instruction which 

is not followed by a branch 

instruction 

Precedes any possible entry point 

for which addressability must be 

established 

Precedes a load instruction for a 

PN or GN which must be processed 

with an address constant cell in 

the PGT 

Precedes a Variable 

procedure-name reference element 

at a PERFORM verb exit 

Precedes a Generated 

procedure-name definition element 

at the returning point of any 

performed procedure except a 

PERFORM. ..TIMES procedure in a 

nonsegmented program 

Precedes a load instruction for a 

PN or GN which is followed by an 

unconditional branch instruction 
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OPTIMIZATION A~TEXT 



VIRTUAL DEFINITION 



SOURCE PROCEDURE-NAME EQUATE STRING 
(NON-OPTIMIZER VERSION) 



I 1 1 

I 1 1|2-3 

I 1 1 

|00|00|VIR number assigned from 
I I IVIRCTR in COMMON 



"orT 



4- 



|2-3 
H 



OC|n / 2 I First PN number assigned 
I (Number ofjto identify a location 
Ifields to I 
{follow) I 



14-11 



I External-name in operand of 

I CALL statement, oleft justified, 

I padded with blanks 



{[Variable number of 2-byte 
{fields containing GN numbers] 



LITERAL DEFINITION 



{n through n + 1 



0{ 



04 {Type 
{code 

!0 



2|3 through 2 + c 



c( Value of 
j literal 

I 



{Last ON number assigned to same 
{location as others in string 



SEGMENTATION ELEMENT 



oil 



4- 



12-3 
4- 



GENERATED PROCEDURE-NAME EQUATE STRING 
(NON-OPTIMIZER VERSION) 



oil 



■+■ 



{2-3 
■4- 



08 {n / 2 {First GN number assigned 
{ (Number of {to identify a location 
{fields to { 
{follow) { 



r 



([Variable number of 2-byte fields 
i containing GN numbers] 



{n through n + 1 
h 



{Last GN number assigned to same 
{location as others in string 



1 14 {Priority number of{VN 

{segment to which {number} 
{VN belongs { 

-J , I 



VIRTUAL CONSTANT ELEMENT 



T- 



0{1-2 
4- 



T" 



{3-10 

4- 



18 {Contents of {External-name of 
{LOCCTR in {routine to be 
{COMMON {called 



GNUREF ELEMENT 



"T- 



0{1-2 



{ 1 

1C{GN number for AT END or INVALID KEY{ 
{branches, or GNs at REPORT-ORIGIN { 



DISPLAY LITERAL DEFINITION 



{ 0{1 {2{3 through 2 + c 
I 1 hH- 



{ 10 {Type {c{ Value of 
i { QG4® I I literal 
{ {(T) { I 
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PNDREF ELEMENT 



0|1-2 

—I 

I20IPN number for PNs following TO 
I PROCEED TO in ALTER verbs or 
I Declaratives PN number 



PROCEDURE-NAME REFERENCE 
0| 1|2-3 



-b=NJ- 



i4cir2)PN number assigned at point of 
I ^definition from PNCTR (COMMON) 



GN~VN ELEMENT FOR PERFORM VERB 



0|1-2 
-H 



13-4 



24|GN number — jVN number — 
{associated with | associated with 
I return point of | PERFORM EXIT 
I a performed | 
I procedure | 



VARIABLE PROCEDURE-NAME EQUATE 
PROCEDURE-NAME OR VARIABLE PROCEDURE-NAME 
EQUATE GENERATED PROCEDURE-NAME ELEMENT 
(OPTIMIZER VERSION) 

VARIABLE PROCEDURE-NAME DEFINITION 

0| 1|2-3 



+.=r^ 



l38[(2)iVN number — number assigned 
l^from VNCTR in COMMON 



MACRO-TYPE INSTRUCTION 



GENERATED PROCEDURE-NAME REFERENCE 

0|1-2 

— i 

I50IGN number assigned at point of 
I definition from GNCTR (COMMON) 



(^J Bit Code Meaning 

0-1 00 No boundary requirement 

01 Half word boundary 

10 Fullword boundary 

11 Double word boundary 

2 1 Floating-point number 

3 1 EBCDIC numeric value 

4 1 Binary number 

5 1 Packed-decimal number 

6 1 EBCDIC character string 

7 1 Hexadecimal number 



(2) Byte 1 contains the priority number of 
the segment within which the 
procedure-name is located. 



on 

4- 



© 



The code 00 indicates EQUATE. 



44|0£ 
1(3) I 
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PROCFDURE A1~TEXT 



The following elements of Procedure Al-text 
are identical to their counterparts in 
Procedure A~text. 



PROCEDURE BASE REGISTER ELEMENT FOR PNs 



I 11-2 
I h 



|C8|PN number 



PROCEDURE BASE REGISTER ELEMENT FOR GNs 



Code Element Name 

2C CARD NUMBER 

30 SOURCE PROCEDURE-NAME DEFINITION 

34 GENERATED PROCEDURE-NAME DEFINITION 

38 VARIABLE PROCEDURE-NAME DEFINITION 

3C EBCDIC PROCEDURE-NAME GENERATOR 

44 MACRO-TYPE INSTRUCTIONMj 

48 OPERATION CODE ^\.-^ 

4C PROCEDURE-NAME REFERENCe(2) 

50 iiENERATED PROCEDURE-NAME REFERENCE 

54 TARIABLE PROCEDURE-NAME REFERENCE 

58 VIRTUAL REFERENCE 

5C BASE LOCATOR REFERENCE 

60 GLOBAL TABLE STANDARD AREA 

REFERENCE 

64 GLOBAL TABLE OTHER AREA REFERENCE 

68 LITERAL REFERENCE 

6C DC DEFINITION 

70 BASE AND DISPLACEMENT 

7C EBCDIC DATA-NAME REFERENCE 

84 RELATIVE ADDRESS 

AO REGISTER SPECIFICATION 

BO CALLING SEQUENCE DISPLACEMENT 

B4 CALLING SEQUENCE DICTIONARY POINTER 

B8 FILE REFERENCE ELEMENT 

EC SEGMENTATION AND GO TO DEPFNDING ON 

SUBROUTINE CALL PARAMETER 



The SPECIAL PEASE 60 ELEMENTS are also 
present in Procedure Al-text and are 
processed by Phase 64 if OPT is specified. 



I 11-2 
I h 



|CC|GN number 



BASE DISPLACEMENT DATA-NAME 



0|1-2 



13-5 



-+- 



DO {Addressing ^J Diet ion ar^L | 
I parameters (ejpointer ^J| 



(7) A MACRO-TYPE INSTRUCTION element with a 
44 type code (segmentation control 
break) has an added byte which contains 
the priority number. 



© 
® 



Present only for those PNs and GNs that 
have address constant cells in the PGT. 



Code 
00 



OE 



OF 



ADDRESS INCREMENT 



Meaning 

LA instruction not to be 

generated 

LA instruction to be generated , 

using register 14 as base 

register 

LA instruction to be generated ^ 

using register 15 as base 

register. 



"T" 



01 1-3 



•+- 



® 



80 I Value that is to ICo^e 
I modify an address | (s) 



ADDRESS REFERENCE 



-T~ 



0|1-3 



1 4-6 



■+- 



78 I Addressing ^-U Dictionary | 
I parameters (4) pointer (s) | 



BLOCK NUMBER 



-r 



I on 
I — h 



I C4 I Block number 



Bits Field Code 


Content or Meaning 


i 


Use register 14 to 




address item. (A 




load instruction is 




generated if bits 2 




and 3 are on.) 


1 


Use register 15 to 




address item. (A 




load instruction is 




generated if bits 2 




and 3 are on.) 


1-3 000 


BL 


001 


BLL 


Oil 


Address of data-name 




is in register 




specified in bits 




12-15. Referred to 




by zero displacement 




from register. 


100 


SBL 


110 


Subscript cell 
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© 



© 



4-15 Displacement from start of 

area controlled by base 
locator. If a register 
is specified in bits 
0-3, however, bits 4-11 
contain zeros, and bits 
12-15 contain the 
register number. 

16-23 k 1 BL or BLL number 

assigned from BLCTR, or 
BLLCTR in COMMON 

2 Subscript cell number 

3 SBL number assigned from 
SBLCTR in COMMON 

Bits Contents 

0-1 Unused 

2-14 Dictionary section number 

15-23 Displacement in section 

For data-names with permanently 
addressable BLs, phase 63 changes the 
ADDRESS REFERENCE element to a BASE 
DISPLACEMENT DATA-NAME element, using 
the permanently assigned register 
number from the BLASGTBL table and the 
displacement given in the Address 
reference element. The contents of the 
field are: 



LISTING A-TEXT 



LISTING A-TEXT FOR PROCEDURE- NAMES 

r — T-T 1 

|0 1 112 through 1 + c | 

H-+-+ ^ 

17C I c] EBCDIC procedure-name; bit of | 
I I I the preceding field is set to 1.. | 

L L_± J 

LISTING A-TEXT FOR VERBS 

r — y-T T 1 

10 I Ij 2 throuah n|n+l j 

I— +-+ + -I 

|7C|n|EBCDIC verb | Alphabetic verb 1 
I I I 1 sequence number j 
L j._± i J 



END OF LISTING A-TEXT 
r — 1 

^~^ 

|01| 



Bits 



Contents 



0-3 Base register 

4-15 Displacement from start of 

area controlled by base locator 
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E-TEXT 



© 



Bits Contents 

0-3 Severity code, as follows: 



MESSAGE DEFINITIONS 

r — T — T — T 1 

1 0| 11 213-4 I 

K-+— +--+ ^ 

] 00 I 06 I 00 I Identifying | 
j I I I message number j 

L L J. X J 

r T 1 

15-6 17 1 

J. ^ ^ 

I Sequential 1 | 

I source card] | 

[number j (T) | 
L J. Jrl J 

MESSAGE PARAMETERS 

r — T-T 1 

I 011|2 1 

F~+-+ ^ 

I 00|n|IC-text identifier] 
1 I jfor parameter (T) | 

L l-X .J^ J 

r : — 1 

I 3 through n + 1 j 

(. ^ 

I Either the actual value to be | 
jinsertedy or a pointer to the j 
I PARTBL field where the value is.) 

L J 

DELIMITER 

r 1 

I 1 

I 01 (3) 



@ 



© 



0000 = W-level (Warning) 

0001 = C-level (Conditional) 
0010 

through = E-level (Error) 

0111 

1000 = D-level (Disaster) 

4-7 Phase number 



Code 

(hex) Meaning 

05 Alphaniameric literal 

22 Alphanumeric literal 

23 EBCDIC name 

34 Alphanumeric literal 

42 Critical program break 

4 3 Level number 
44 Verb 

5 Relational 
52 Parenthesis 

5 3 Arithmetic operator 

54 COBOL word 

7 5 Figurative constant 

7 9 Standard data-name 

87 Procedure-name definition 

F9 Global Table reference. Type 1 

AA Global Table reference. Type 2 

FE Dictionary pointer 

(not an IC-text element) 

This element is written on SYS004 only 
if the SYMDMP, STATE, or FLOW option is 
in effect and the program is segmented - 
It identifies the end of DATA A-text, 
DEF-text^ and E-text to Phase 6 and 
the beginning of text that is to be 
passed to phase 65- 
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XREF-TEXT 



DEF-TEXT ELEMENT FOR DATA-lNAME DEFINITION 
OR FILE-WAME DEFINITION 

r T T T""T 1 

I 011-2 13-5 |b|7 to c+6 I 

] 48 I Card | Pointer to | c| External- | 
I I number I dictionary entry j | name in | 
1 ] I for data-name "* | | EBCDIC | 

L L ± ±-± J 



DEF-TEXT ELEMENT FOR VERB DEFI^QITION 

r T T T T T-T T 1 

1 0|l-2 13|a |5|6|7|8to c+6| 

H- + +--+ +--+-+—+ -1 

48 I Number j EO j Alpha- | | c j FB | Verb 
jof I Ibetic I I I [text 
I occur- 1 j verb j | j j 
jrencesj j sequence) j j j 
I I (number | | | | 

± -L X J. ±-± ± 



DEF-TEXT ELEMENT FOR PROCEDURE-NAME 
DEFINITION 

r — T T r-T 1 

I 0|l-2 |3-4 |5|6 to c+5 | 

]4C|PN [Card number] c| External-name I 
I I number I j j in EBCDIC | 

L ± ± -L-X J 



REF-TEXT 



I 0-2 



I 3-4 



-I 

[Pointer to dictionary | Card number | 
] entry for data-name ] (TT) | 



lor PiM number 



REF-TEXT FOR VERBS 

r — T T 1 

I 0|l-2 |3-4 I 

|.«_| + ^ 

I EO I Verb I Card number ] 
I I code] I 

I I ©I ® I 



DELIMITER 

r T 

I I 

1- — ^ 

1 77 I 



©: 



(l) Bit Meaning 

= Reference is for data-name 
1 = Reference is' for 
procedure-nam.e 



(2) This element identifies end of REF-TEXT. 

(sj The alphabetic verb sequence numiber 
followed by X' OOV. 

(V) The high-order bit will always be off- 
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DEBUG-TEXT 



CARDLOC ELEMENT 

r — T T 1 

I 011-3 |4-6 I 

lie I COBOL card I Contents of LOCCTK in | 
1 I number (l) | COMMON when this | 
j I I card was encountered | 
L — ± X J 

ENDSEG ELEMENT 

r — T T 1 

I 0|l-3 1 4-6 I 

^„+ 1 ^ 

120 I Zeros I Contents of LOCCTR in COMMON | 
1 I I after processing last verb inj 
] I I a segment or last verb in | 
j I I the program if not segmented j 

L X X J 



SEGMENT ELEMENT 

r — T 1 

I 014 I 

h~+ ^ 

I 30 1 Priority I 
L X J 



DISCONTINUITY ELEMENT 

r — 1 
I 0| 

^~^ 

|40| 
L J 



(T) The high order bit in the second byte 

of the card number field is set to 1 if 
the card precedes a COBOL verb. 
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DICTIONARY ENTRY FORMATS 



This chapter contains diagrams of the 
formats of the entries in the dictionary. 
The dictionary is built in storage by 
phases 11 r 22, and 21, respectively. If it 
exceeds its allotted storage space, the 
compiler uses SYS001 as a spill file. The 
dictionary is used by phase 30 to replace 
names with their dictionary attributes in 
Procedure IC-text and is then released. It 
is also used by phase 25 to build the 
DATATAB and OBODOTAB tables for the Debug 
File when SYMDMP has been specified. 
Dictionary handling is performed by the 
ACCESS routines described in "Appendix A. 
Table and Dictionary Handling." 

The following notes apply to the format 
diagrams in this chapter: 



The top row of figures shows the number 
of bytes in the field. 



Shaded areas indicate fields that are 
present only if the condition they 
satisfy is present. 

c = Number of bytes in the following 
field. 

n = Total number of bytes to follow in 
the entry. 

Individual notes, applying to 
particular fields, are numbered 
consecutively with the numbers 
encircled. 



PROCEDORE-NAME (PARAGRAPH) ENTRY 



HASH Table Pointer 



Basic Fields 



Attributes 



I 



I Pointer to dic- 
(tionary entry for 
I last name with 
(same HASH table 
I value (T) 



1 1 Variable 



c I Name 
I 
I 
I 
I 



I 



I Count I 
land I 
I major I 
|co^ I 
I (2) I 



Character-! PN 
istics I number 
Q) I of this 

I paragraph 

I 



I 



Unused | Priority 
I number 

I 
I 
I 



PROCEDURE-NAME (SECTION) ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 



Basic Fields 




jPoxnter to die- j | Pointer to 
ftionary entry for 1 1 dictionary 
I last name with | | entry for 
Isame HASH table j jnext section- 
lvalue n) I I name (T) 



c I Name 



I 1 
I 

{Count 
land 
I major 
I code 



Attributes 



I 



I Characteristics I PN | Unused 
I f number j 

I I of this I 

I {section! 

! © ! ! 



I Priority I PN number 
{ number { of next 
I {section 
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FD ENTRY 



HASK Table Pointer 



Delimiter 
Pointer 



Basic Fields 



Attributes 



I 



(Pointer to die- 
jtionary entry for 
I last name with 
I same HA^H table 
I value (T) 




I Pointer to 
I next entry 
I after last LD 
j entry for 
I this file (T) 



c I Name 

I 

I 

I 

I 
I 



I 

I Count 
land 
jma jor 
code 

I (h 



I 1 I 



h 



-+- 



I Flag I First |DTF {Access 
I byte I BL {number | method and 
I I number I |I/0 specif i- 
I 4 I I I cations 

II I I © 



IPosi- I Maximum I Count |Flag 
jtion I record land I/O | byte 
I number I length j options | 

! ! ! © ! 




IKaximum 
I user label 
I length 



Secondary | Secondary | Secondary 
DTF |DTF |DTF 
numhex jnumb^ | number 

C2) I ® I @ 
-zi I -mil I _:rl 



Block I Device 
size I code 
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HASH Table Pointer 



I 



I 

[Pointer to dictionary 
I entry for last name 
I with saBie HASH table 
lvalue (Y) 
I 



Delimiter 
Pointer 



Basic Fields 



I Pointer to 
[next entry 
I after last 
|LD entry fQr| 
I this fileM) | 



|1 (Variable 
■+H 



|c|Name 
I I 
I I 
I I 
I I 



I 1 I 



Attributes 



I Count I Flag | First 
land I byte I BL 
|major|^^ [number | 
I code |(V) I 



FIB number I Access method 
land I/O speci- 
|f ications 

I (^ 



SD ENTRY 



I 



I Count of IDispl. of I Number of 
{entries | first JBLs 
jin IND1TB1 (entry in (needed 
(for file IIND2TBL (for this 



I 



(file 



HASH Table Pointer 



^ ■*■ — -^ 


•^ ^^ 


t ' - 

I 3 


1 
1 


1 


1 



Delimiter 
Pointer 



(Pointer to die- | 
(tionary entry for| 
[last name with j 
(same HASZ table | 
(value rt) 



(Pointer to 
[next entry 
[after last 
|LD entry fq; 
[this file 



S) 



Basic Fields 



1 1 Variable 



c(Name 
I 
I 
I 

I 




I 1 I 



h 



■+- 



Attributes 



( 



I 



-+- 



(1 



( Flag I First ( Maximum | Minimum ( Second 
I byte I BL | record [record (flag 
I ^-^v (number (length (length (byte 
|(10)| I I I ^-s ■ 

I 1 I I I ^"^ I 
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RD ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 



I 



[Fointer to die* 
('tioiiary en try ~ for 
I last name with 

isame HASH table 
iralue ^}J 



I Pointer to 
I next entry 
I after last 
|LD entry f^T 
I this filen) 



1 1 Variable 
H 



c I Name 

I 



I Count 
land 
I major 
I code 
I (2) 



LD ENTRY 



HASH Table Pointer 



j Pointer to die- 
I tionary entry for 
I last jiame with 
J same HAS|r table 
I value (T) 



Delimiter 
Pointer 



I If group item, 
I pointer to next 
I entry after 
I last LD entry 
I for this,^ group 

! © 



Basic 
Fields 



I — r 
1 1 Variable 



H 

c I Name 
I 
I 
I 



I Count 
land 
I major 
I code 

10© 



Attributes 



11 
■+- 



I Variable 



I Minor | Addressing | Flag |Level num- 
|code I parameters I byte I ber and 
land I for item | ^-^ | variable 
I flags I I (15) jinfoEffia-tion 

I h2)i ^-^ -^ 

L ^-^ I 



i® fe) 



CONDITION-NAME ENTRY 



HASH Table Pointer 



3 



I Pointer to die- \ 
jt^^ionary entry for I 
[last name 'wi'th ^^^" ] 
I'same HA§H:<,table \; ^^ | 
|4alue -M^'-, .--,.;:;, :1 



Basic 
Fields 



1 I Variable 



+ 



c I Name 
I 
I 

I 
I 




Attributes 



1 Pointer to dic- 
I tionary entry 
I for data item to 
I be tested for 
I condition Q\j 



Switch 

® 



|1|Variable| 



h-+- 



-f 



|c|P1-text I 
I j element j 

I I ns) I 
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HASH Table Pointer 



(Pointer to dic- 
jtionary entry for 
I last name with 
I same HASB table 
lvalue (T) 



Basic 
Fields 



c I Name 
I 
I 
I 

I 



1 1 Variable | | 
h 



I Count 
land 

I major 

|CQd^ 



Attributes 



I 1 I 



-+- 



i Flag i Index-name j Length of 
I byte I number taken | subject of 
I ^,-^ I from INDEX1 | OCCURS clause 

I (19) I in COMMON | 

II I 

I I I 







Bits Contents 

0-1 00 = Neither HASH table 

nor delimiter pointer 
01 = Delimiter pointer 

10 = HASH table pointer not 

followed by delimiter 
pointer 

11 = HASH table pointer followed 

by delimiter pointer 
2-14 Dictionary section number 
15-23 Displacement in section 



© 



© 



Bits 
0-3 



4-7 



Contents 

Number of bytes in attributes 
field. If 0, see "Elementary 
Item with Report Picture" portion 
of note 16. Count=9 if VSAM file 
1101 = Procedure-name entry 

1000 = FD entry 

1001 = SD entry 

1110 = RD entry 

0000 = LD entry under FD 

0001 = LD entry under SD 
0011 = FD entry (VSAM) 

0100 = LD entry in Working- 

Storage 

0101 = LD entry in Linkage 

Section 
0110 = LD entry in Report Section 
1100 = Condition-name entry 

1111 = Index-name entry 



Bit Meaning > if on 

Procedure-name 

1 Section-name 

2 Either name follows THRU in 

PERFORM. ..THRU or it follows 
PERFORM in a PERFORM without 
THRU. 

3 Referred to by ALTER 

4 Procedure-name of simple GO TO 

5 Procedure-name of EXIT 

6 Procedure-name following 

to PROCEED TO in ALTER 
statement 

7 Unused 

8 Referred to by DEBUG 

9 Defined in DEBUG 

10 Dummy section-name 

11 Defined in Declaratives Section 

or in DEBUG statement 
referring to such section. 
Bits 12-15 describe type of 
of section. 

12 Declarative error routine 

13 Declarative label routine 

14 Unused 

15 Declarative report section 



G) 


Bits 


Contents 







1 = Q-routine indication 




1-2 


00 = Format V 

01 = Format F 

10 = Format U 

11 = Format S 




3 


Multiple Reel 




4-7 


Number of BLs needed 



for this file 
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Bits 
0-3 



6 

7 

(5a) Bits 
0-2 



3 

^-5 

6 

7 



© 



© 



Bits 
0-3 

5 

6-7 



Meaning 
Access Method 
0001 = DTFCD 

0010 = DTFPR 

0011 = DTFMT 

0100 = DTFSD 

0101 = DTFDi^ 

0110 = DTFIS 

0111 = DTFDU 



1 = 



OMR (optical mark read) if 

DTFCD 
1 = LOAD file if DTFIS 
1 = APPLY WRITE ONLY if DTFMT 

or DTFSD 
1 = IBM extension, if DTFDA, 

Random Access 
1 = ACTUAL KEYr if DTFDA, 

Sequential Access 
Otherwise, Unused 
1 = Direct file with relative 

addressing 
1 = ASCII, if DTFMT 
1 = Double buffered, if DTFIS 
1 = 3525 associated file (print) 
1 = 3525 

Meaning 

Access mode 

100 = ACCESS IS SEQUENTIAL 

010 = ACCESS IS RANDOM 

001 = ACCESS IS DYNAMIC 

Unused 

Reserved 

1 = VSAM INDEXED 

1 = VSAM ADDRESSED SEQUTtlNTIAL 

Contents 

Number of bytes that follow 

1 = SAME RECORD AREA 

I = RANDOM ACCESS 

= SEQUENTIAL ACCESS 

00 = standard label 

01 = user standard label 
10 = nonstandard label 

II = labels omitted 



(s) Dictionary pointer to ACTUAL KEY, if 
specified. Phase 30 appends idk 
addressing parameters for the ACTUAL 
KEY. 

(9^ If access method is DTFDA , DTFCD, 

DTFDR, or DTFIS (ACCESS RANDOM), fields 
contain zero. 

Fields also contain zeros, unless OPEN 
option for a particular access method 
was specified. Otherwise, fields are 
as follows: 



Bits 


Contents 





1 = USING or GIVING specified 


1 


Unused 


2-4 


Carriage control type 




000 = none 




001 = WRITE AFTER POSITIONING 




010 = WRITE AFTER 




100 = WRITE BEFORE 




110 = mixed 


5 


1 = file single-buffered. 




unblocked or ISAM 


6 


1 = CLOSE WITH LOCK 


7 


1 = SELECT OPTIONAL 



Access method 


Field 


OPEN Option 


DTFMT 




1st 


INPUT 






2nd 


OUTPUT 






3rd 


INPUT REVERSED 


DTFSD 




1st 


INPUT 






2nd 


OUTPUT 






3rd 


I/O 


DTFIS 


(ACCESS 


1st 


RETRIEVE 


SEQUENTIAL) 


2nd 


LOAD 






3rd 


Contains zeros 


(9a) Code 
^-^ 80 


Device 
2560 






40 


5424 






(10) Bits 
^^ 


Contents 







1-2 


00 = Format 


V or 


S 




01 = Format 


F 






10 = Format 


U 




3 


1 = ASCII 


collating sequence 


4-7 


Number of BLs needed for this 




file 







® 



Bits Contents 

0-1 01 = LABEL RECORD STANDARD 

10 = LABEL RECORD OMITTED 
2-3 
4-7 Number of work units 



During phase 30 operations, the flag 
byte field is removed. The first four 
bits overlay the first four bits of the 
level number, and the last four bits 
overlay the count field preceding the 
major field. In the level number 
field, if bit 4 is on, the level is 01; 
if bit 6 is on, the level is 77. 
Otherwise, these bits are off. 
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13} Bits Code Operand's Characteristics 
Error detected for this 

operand 
Fixed-length group 
Alphabetic 
Alphanumeric 
Variable-^length group 
Numeric-edited item 
Sterling report item 
Usage is index 
External decimal 
External floating-point 
Internal floating-point 
Binary 

Internal decimal 
Sterling nonreport 
Alphanumeric edited 
Unused 

Subscripts Required 
None 
1 
2 
3 
OCCURS clause in this item 
REDEFINES clause for this 
item 

n^l) Location of item in data area of object 
module: 



0-3 0000 


0001 


0010 


0011 


0100 


0101 


0110 


0111 


1000 


1001 


1010 


1011 


1100 


1101 


1110 


1111 


4-5 Code 


00 


01 


10 


11 


6 1 = 1 


7 1 = ] 



Bits 
0-3 



4-15 



16-23 



F ield Meaning 

i Type of BL containing base 
address of area: 

0000 = BL 

0001 = BLL 
0100 = SBL 

d Displacement from 
base address 
BL number 



Bits 


HeaninQr if on 





INDEXED BY 


1 


SYNCHRONIZED 


2 


Subject of key 


3 


(If bit 3=1) 




= DESCENDING 




1 = ASCENDING 


4 


Report WITH CODE 


6-7 


00 = TRAILING 




01 = LEADING 




10 = SEPARATE TRAILING 




11 = SEPARATE LEADING 


Bits 


Contents 



0-5 Level number 

6 1 = 0-routine reguired 

7-End Variable, according to 

the following chart : 
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ns) (Continued) 



• "11 '■ ■■ -■ ■ 1 

1 Characteristic |Bits | Contents | 


1 Fixed-Length Group Item | 1-17 | Length of group | 


1 Elementary Alphabetic | 1 | 1 if JUSTIFIED RIGHT. | 
1 or 1 2-17 1 Length of item. I 
lAlphanumeric Item | 18-32* | Dictionary section number of entry for group in | 
1 1 1 which this item is included^ if the group contains | 
1 1 1 an OCCURS clause. | 
1 1 33-^1* 1 Displacement in section. j 


1 External Decimal | 1 | 1 , if PICTURE contains S. | 
I or 1 2 1 Flag bit | 
i Internal Decimal | 3-9 | If bit 2 is on^ bits 3 through 9 contain the number} 
1 or II of Ps to left of decimal point. If bit 2 is off, | 
(Binary I | they contain the total number of Ps plus 9s to I 
{ or 1 1 right of decimal point. | 
lUsage is index | 10-17 | Number of decimal digits. | 
1 1 18-32* 1 Dictionary section number of entry for group in | 
1 1 1 which this item is included if the group contains | 
1 1 1 an OCCURS clause. j 
1 |33-m* 1 Displacement in section. | 


1 Internal Floating-Point j 1-16 | Unused | 
1 1 17 1 = Short form | 
1 1 1 1 = Long form | 
1 1 18-32* 1 Dictionary section number of entry for group in | 
I 1 1 which this item is included if the group contains | 
1 1 1 an OCCURS clause. | 
1 133^41* 1 Displacement in section. j 


1 External Floating-Point | 1 j = Mantissa blank when positive | 
1 1 1 1 = Sign plus when positive | 
1 1 2 1 Same for exponent sign I 
1 1 3 1 = Implied decimal point | 
1 1 —^ 1 1 = Real decimal point I 
1 1 4- 9 1 Scale of mantissa j 
1 110-17 1 Total length | 
1 118-32* 1 Dictionary section number of entry for group in | 
1 1 1 which this item is included, if the group contains | 
1 1 1 an OCCURS clause. | 
1 133-41* I Displacement in section. | 


i *These bits are present only if the item is in a group with an OCCURS clause. They | 
1 are not present after phase 30, but at the end of the attributes from the dictionary, | 
1 3 bytes are appended indicating either the length of the item which this is | 
1 subordinate to or the VLC of the item. | 
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Qe) (Continued) 



r ■ 

1 Characteristic 


jBits 1 


Contents | 


1 Sterling Non-report 


1 1 1 


= BSI shillings | 


{Elementary Item 




1 = IBM shillings | 




1 2 ! 


= 1 -character pence | 

1 = 2~character pence | 




I 3 1 


= BSI pence | 

1 = IBM pence | 




I 4- 9 


Number of decimal positions to right of V in pence | 
field 1 




110-14 


Number of pound field digits I 




115-17 


000 = No sign specified | 

001 = Sign on high-order pound character | 

010 = Sign on low-order pound character | 

011 = Sign on high-order shilling character | 
100 = Sign on low-order pence character I 
10) = Sign on low-order decimal position in pence | 

field ' 1 

110 = Unused | 

111 = Unused | 




118-25 


Number of character positions | 




1 or 


or 1 




118-32* 


Dictionary section number of entry for group in | 
which this item is included, if the group contains | 
an OCCURS clause. | 




133-41* 


Displacement in section I 




142-49 

1 


Number of character positions | 


1 Variables-Length Group Item| 1- 2 


Unused | 




1 3- 5 


Number of BLLs for items | 




1 6-17 


VLC number | 




118-32* 

1 
1 


Dictionary section number of entry for group in I 
which this item is included, if the group contains | 
an OCCURS clause | 




133-41* 

1 


Displacement in section | 


1 Alphanumeric Edited Item 


I 

1 1 


1 1 = JUSTIFIED RIGHT | 




1 2- 9 


1 Number of bytes following | 




110-17** 


All zeros 1 




118-32* 

1 
1 


Dictionary section number of entry for group in | 

1 which this item is included, if the group contains | 

an OCCURS clause | 




133-41* 


1 Displacement in section | 




142-57 


1 Size of item | 




158-END 
1 

1 
1 


! Byte 1 contains PICTURE character. Bytes 2 and 3 | 

1 contain count of consecutive occurrences. These | 

1 three bytes are repeated until the entire PICTURE | 

is recorded. | 


1 *These bits are present 


only if tl 


le item is in a group with an OCCURS clause. They | 


1 are not present after 


phase 30 , but at the end of the attributes from the dictionary , | 


1 3 bytes are appended i 


ndicating either the length of the item which this is | 


1 subordinate to or the 


VLC of the 


item. 1 


|**These bits are not present after 


phase 30. | 
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(re) (Continued) 



r -■ — — 1 -T '"■ " - ■•■■ " ■' --..,.-., 1 

1 Characteristic I Bits | Contents I 
III 1 


1 Numeric Edited Item | 1 | 1 = 2 or *• in PICTURE. I 
1 1 2- 9 1 Number of bytes following. I 
1 110-17**1 All zeros I 
1 118-32* 1 Dictionary section number of entry for group in | 
f 1 1 which this item is included, if the group contains j 
1 1 1 an OCCURS clause j 
1 133-41* 1 Displacement in section | 
1 1 42 1 1 = BLANK WHEN ZERO | 
1 1 43 1 1 = * represents all numeric characters | 
1 1 44 1 Unused | 
1 145-49 1 Number of digit places in item I 
1 150-57 1 Scaling factor I 
1 158-65 1 Size of item | 
1 166-END 1 Byte 1 contains PICTURE character (except V or P) . | 
1 1 1 Byte 2 contains count of consecutive occurrences. j 
1 1 1 These two bytes are repeated until the entire | 
1 1 I PICTURE is recorded . I 
I 1 1 Exception: for CR and DB, first character appears | 
1 1 1 in byte 1 , the second in byte 2 . | 
1 II . 1 


1 Elementary Item with | 1 | Unused I 
1 Sterling Report PICUTRE | 2- 9 | Same as for Report PICTURE above | 
1 110-17 1 All zeros I 
1 118-32* J Dictionary section number of entry for group in | 
1 1 1 which this item is included , if the group contains j 
1 1 ! an OCCURS clause I 
1 133-41* 1 Displacement in section j 
1 1 42 1 1 = BLANK WHEN ZERO | 
1 1 43 1 = shilling delimiter is D | 
1 1 1 1 = shilling delimiter is S | 
1 1 44 1 Same as bit 19 for pounds | 
1 I 45 1 1 = No pounds field I 
1 146-57 1 Unused | 
1 , 158-65 I Total length of item | 
1 {66-73 1 Number of pound integer places | 
1 174-81 1 Number of pence decimal places j 


1 *These bits are present only if the item is in a group with an OCCURS clause. They \ 
1 are not present after phase 30, but at the end of the attributes from the dictionary,! 
1 3 bytes are appended indicating either the length of the item which this is | 
1 subordinate to or the VLC of the item. j 
|**These bits are not present after phase 30. | 



® 



If the switch =1, the next (c) field 
is followed by a 2-byte field 
containing the displacement in the 
VALTRU table of the object of the VALUE 
clause. If the switch =0, the rest of 
the entry is as shown. 



18J The first byte indicates the type of 
element according to the table below. 
It is followed by the rest of the 
Pi-text element. 



Byte 1 
32 
33 
34 
39 



Type of Element 
NUMERIC LITERAL 
FLOATING-POINT LITERAL 
ALPHANUMERIC LITERAL 
ALL Constant 



Bit Meaning^ if on 

Subject is variable length; last 
field contains VLC number. 
1-7 Unused 
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DEBUG FILE TABLES 



When SYMDMP or STATE are specified on 
the CBL card, phases 25 and 65 build 
additional tables for debugging purposes. 
When SYMDMP is specified, all seven tables 
which are diagrammed in this appendix are 
built and written on file SYS005. This 
file may be either on disk or on tape. 
When STATE is specified, only the PROCTAB 
and SEGINDX tables are built. These are 
written by phase 65 in the object module. 

The tables are accessed during execution 
of the program or at abnormal termination 
of the program by the subroutines of the 
Symbolic Dump program. For details see the 
publication IBM DOS/VS COBOL Subroutine 
Library, Program Logic , Order 
No. LY28-6424. 

The seven tables list the 
characteristics of the data areas defined 
by the user as well as information about 
the relative location in the object module 
of the code associated with the card 
numbers generated for PNs and COBOL verbs. 
This information is used by the object-time 
COBOL library subroutines to produce the 
dumps at user-specified card numbers or 
card and verb numbers. If abnormal 
termination occurs, this information is 
also used to associate the address of the 
instruction at which abnormal termination 
occurred with its corresponding card and 
verb number in the COBOL source program. 

Phase 25 builds the OBODOTAB table if 
there are any OCCURS clauses with the 
DEPENDING ON option. It also builds the 
DATATAB table. Phase 65 builds the 
PROGSUM, PROCTAB, CARDINDX, SEGINDX, and 
PROCINDX tables. 

The tables are made up of fixed-length 
512-byte blocks; a 1-byte field containing 



the hexadecimal value »FF' marks the end of 
usable information within a block. Table 
entries are never split across a block. 



The debug file is single buffered and 
the address of the buffer is placed by 
phase 01 in location FIL5BUP in COMMON. 
Each phase that uses the debug file is 
responsible for moving information into the 
buffer and marking the end of the buffer. 
Phase 00 is called only to write the buffer 
on the debug file. 



Figure 63 shows the positions of the 
tables in the debug file (SYS005) . The 
PROGSUM table contains information about 
and pointers to the other tables in the 
file". 



PROGSUM 



OBODOTAB 



a 



DATATAB 



PROCTAB 



CARDINDX 



SEGINDX 



PROCINDX 



Figure 63. SYS005 (Debug File) 
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PKOGSUM TABLE 



The PROGSUM table is the first table on the debug file. It consists of a single 
fixed-length 108-byte entry and contains information about the program and the debug file 
itself. 



Displ 






Dec 


Hex 


Field Name 


Bytes 








PGPROGID 


8 


8 


8 


PGDECLEN 


4 


12 


C 


PGBL1 


4 


16 


10 


PGBLL1 


4 


20 


14 


PGSBLI 


4 


24 


18 


PGDTFI 


4 


28 


1C 


PGVLC1 


4 


32 


20 


PGINDEX1 


4 


36 


24 


PGENDDTF 


4 


40 


28 


PGENDNDX 


4 


44 


2C 


PGDTDVAD 


4 


48 


30 


PGDTNUM 


2 


50 


32 


PGDTDSP 


2 


52 


34 


PGPTDVAD 


4 


56 


38 


PGCXDVAD 


4 


60 


3C 


PGSXDVAD 


4 


64 


40 


PGPXDVAD 


4 


68 


44 


PGCXNUM 


2 


70 


46 


PGSXNUM 


2 


72 


48 


PGPXNUM 


2 


74 


4A 


PGSXDSP 


2 


76 


4C 


PGPXDSP 


2 


78 


4E 


PGEPDSP 


2 


80 


50 


PGODONDM 


2 


82 


52 


PGHASH 


2 



84 

88 
89 



54 

58 
59 



PGFIB 

PGLNGTH 
PGSLACK 



1 

19 



Field Description 

PFOGPAM-ID 

Length of Declaratives Section 

BLI address relative to the start of the TGT 

BLL1 address relative to the start of the TGT 

SBL1 address relative to the start of the TGT 

DTF1 address relative to the start of the TGT 

VLC1 address relative to the start of the TGT 

INDEX1 address relative to the start of the TGT 

End of the DTFs relative to the start of the TGT 

End of the indexes relative to the start of the TGT 

Device address of first block in DATATAB 

Number of blocks in DAT]\TAB 

Displacement in the block of the first DATATAB entry 

Device address of PROCTAB 

Device address of CARDINDX 

Device address of SEGINDX 

Device address of PROCINDX 

Number of entries in CARDINDX 

Number of entries in SEGINDX 

Number of entries in PPOCINDX 

Displacement in the block of the first SEGINDX entry 

Displacement in the block of the first PROCINDX entry 

Displacement of floating-point virtual from the start 

of the PGT 

Number of bytes in OBODOTAB including the unused bytes 

at the end of the blocks 

Hashed compilation indicator which is matched by the 

COBOL library subroutine with the one in the DEBUG 

TABLE in the TGT. The date is hashed from the 

Communication Region within the Supervisor. 

Address of first File Information Block (FIB) relative 

to start of TGT. 

Length of PROGSUM table 

Reserved 



Note ; The only fields that may be zero in this table are PGDECLEN, PGODONUM, and PGFPDSP 
when there is no Declarative Section r or no OCCURS. . .DEPENDING ON clauses, or no internal 
floating-point items in the program. For TGT addresses which do not exist, the address 
of the first byte following the previous cell is used because these cells are used in 
calculating the number of TGT cells of a given kind to dump. 
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OBODOTAB TABLE 

The OBODOTAB table is an abstract of the DATATAB entries for all objects of 
OCCURS. . .DEPENDING ON clauses in the program. The OBODOTAB table, if present, follows 
the PROGSDM table on the next fullword boundary and contains one variable-length entry 
for each unique object of an OCCURS. . .DEPENDING ON clause. Each entry begins on a 
fullword boundary within the block. 

The entries are essentially the same as the DATATAB entries for the same name. See 
the entries for elementary numeric items in the format of the DATATAB table. OBODOTAB 
entries differ only in that the card-number field is zero and the renaming information is 
omitted. Table-locators within the DATATAB entries are used to access the OBODOTAB 
entries. See the subscripting information portion in the format of the DATATAB table. 
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Displ 
Dec Hex 



1 1 
1+c 1+c 
2+c 2+c 


Field Name 
CARDNUM 


Bytes 
1 
c 
1 
3 


5+c 5+c 


MAJMIN 


1 
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DATATAB TABLE 

The DATATAB table is the third table in the debug file. It immediately follows the 
last entry of the OBODOTAB table ^ if that table is present. Otherwise, it follows the 
PROGSDM table. The DATATAB table lists the characteristics of each data item in the DATA 
Division. The table consists of two fields, the Count-Name-Type field has the same 
format for all entries. It varies in length between 7 and 36 bytes. The Variable 
Attributes field differs for each type of entry and is described on the following pages. 



COUNT-NAME-TYPE FIELD 

Field Description 

Count field: Number of bytes (c) in name field 

Name field: Number of varies between 1 and 30 

Count field: Number of bytes in remainder of entry 

Card number where name is defined (contains zeros for 

RENAMES items) 

Type of entry 

Bit 

Bits Settings Meaning 

0-3 1000XXXX FD entry (non-VSAM) 

1011XXXX PD entry (VSAM) 

1001XXXX SD entry 

1110XXXX RD entry 

111 1XXXX Index-name 

OOOOXXXX Level description under FD 

0001XXXX Level description under SD 

0110XXXX Level description under RD 

0100XXXX Level description in Working-Storage 

0101XXXX Level description in Linkage 

4-7 XXXX0001 Fixed length group 

XXXX0010 Alphabetic 

XXXXOO 1 1 Alphanumeric 

XXXX0100 Variable length group 

XXXX0101 Numeric edited 

XXXX0110 Sterling report 

XXXX0111 Usage index 

XXXX1000 External decimal 

XXXX1001 External floating point 

XXXX1010 Internal floating point 

XXXX1011 Binary 

XXXX1100 Internal decimal 

XXXX1101 Sterling non-report 

XXXX1110 Alphanumeric edited 

XXXX1111 RENAMES (level 66) 
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VARIABLE ATTRIBUTES FIELD 



Displ 
Dec Hex 



Field Name Bytes Field Description 
SD item ; There are no variable attributes for an 5D entry. 



RENAMES item (level 66) 
6+c 6+c RENAMES 



1 



INDEX name ; 
6+c 6+c 



INDXCELL 



FD item (other than VSAM) ; 
6+c 6+c DTFNUM 
7+c 7+c ACCESSFLG 



FD item (VSAM) ; 
6+c 6+c FIB 
7+c 7+c ORGACC 



Bit 
7 



Bit 

Setting 

XXXXXXX1 

XXXXXXXO 



Meaning 

Next DATATAr entry RENAMES 
the same item as this one does 
This is the last (or only) item 
renaming an item. 



Index cell number in TGT 



1 


DTF 


number 




1 


Access method 








Bit 






Bit 


Settings 


Meaning 




0-3 


0001XXXX 


DTF CD 






0010XXXX 


DTFPR 






0011XXXX 


DTFMT 






0100XXXX 


DTFSD 






0101XXXX 


DTFDA 






0110XXXX 


DTFIS 




7 


XXXXXXX1 


Seguential access method 






XXXXXXXO 


Random access method 


1 

1 


FIB 


number 




Bit 


Meaning 









Access is 


seguential 




1 


Access is 


random 




2 


Access is 


dynamic 




3 


Unused 






4 


Reserved 






5 


Reserved 






6 


Organization is indexed 




7 


Organization is sequential 



RD item ; 
6+c 6+c 



LINECTR 



9+c 



9+c 



PAGECTR 



Addressing parameters of line counter 



Bit 
0-3 



Bit 

Settings 

OOOOXXXX 

0001XXXX 

0100XXXX 



M eaning 

BL entry 

BLL entry 

SBL entry 

4-15 Displacement from BL 

16-23 BL Number 

Addressing parameters of page counter (same form as 
addressing parameters above) 
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Level Description item ; 

Variable attributes for level description items are divided into two portions: (1) 
the type-dependent portion , (2) subscripting information portion. The sul?scripting 
information portion is the same for all level description item entries. It follows 
and is described after the typ^^ dependent portion descriptions. 



(1) Type dependent portion ; 



FIXED LENGTH GROUP ; 

6+c 6+c IDKPLD 3 

9+c 9+c LVLEDEFN 3 



Addressing parameters (same form as above) 



Bit 
Bit Settings 
0-5 XXXXXX1X 

6 
7-23 



Meaning 

Normalized level number 

REDEFINES 

Object time storage size 

(in bytes) 



VARIABLE LENGTH GROUP; 



6+c 6+c 


3 


Addressing parameters (same form as above) 


9+c 9+c MAXSIZE 


3 




Bit 








Bit 


Settings 


Meaning 






0-5 


XXXXXX1X 


Normalized level number 






6 




REDEFINES 






7-23 




Maximum object time storage 
size (in bytes) 


12+c C+c VLCNUM 


2 




Bit 








Bit 


Settings 


Meaning 









1XXXXXXX 


ODO Master 






1-3 




(Unused) 






a-is 




VLC number 


ELEMENTARY, ALPHABETIC, 


ALPHANUMERIC, REPORT, EDITED 


, STERLING, EXTERNAL FLOATING POINT 


6+c 6+c 


3 


Addressing parameters (same form as above) 


9+c 9+c JUSTRGT 


3 




Bit 








Bit 


Settings 


Meaning 






0-5 




Normalized level number 






6 


XXXXXX1X 


REDEFINES 






7 


XXXXXXX1 


JUSTIFIED RIGHT 






8-23 




Object time storage size 
(in bytes) 


INTERNAL FLOATING POINT: 










6+c 6+c 


3 


Addressing parameters (same form as above) 


9+c 9+c FLPTYPE 


1 




Bit 








Bit 


Settings 


Meaning 






0-5 




Normalized level number 






6 


XXXXXX1X 


REDEFINES 






7 


xxxxxxxo 

XXXXXXX1 


COMP-1 
COMP-2 


10+c A+c 


2 


(Unused) 
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BINARY, INDEXp INTERNAL DECIMAL EXTERNAL DECIMAL ; 



6+c 
9+c 



6+c 
9+c 



NUMINF01 



Addressing parameters (same form as above) 

Bit 

Bit Settings M eaning 

0-5 Normalized level number 

6 XXXXXX1X REDEFINES 

7 XXXXXXX1 S in PICTURE 

1XXXXXXX Leading sign 
OXXXXXXX Trailing sign 

1 X1ZXXXXX Separate sign 
XOXXXXXX Overpunch 

2 XX1XXXXX Significant digits left of 

decimal point 
XXOXXXXX No significant digits left 
of decimal point 

3 XXX1XXXX Significant digits right of 

decimal point 
XXXOXXXX No significant digits right 
of decimal point 

^-r-S If bit 2 eguals 1, number of 

digits to left of decimal point. 
If bit 2 eguals 0^ number of 
digits to right of decimal point. 

9-13 If bits 2 and 3 both equal 1, 

number of digits to right of 
decimal point. If only bit 2 or 
bit 3 equals 1, number of Ps 
in picture 

14-15 (Unused) 
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( 2 ) Subscripting Information Portion : 

This portion of the Variable Attributes section begins immediately after the 
type-dependent portion. 

It ranges in size from 1 byte for an unsubscripted item to a maximum of 20 bytes for 
an item belonging to 3 variable-length groups. 

1 Guide to EENAMES and subscripting 



Bit 



Bit 



Settings 
1XXXXXXX 


1 
2 
3 


X1XXXXXX 
XX1XXXXX 
XXX1XXXX 


4 


XXXX1XXX 


5 


XXXXX1XX 


6 

7 


XXXXXX1X 
XXXXXXX1 


VLC information 
Bit 
Fit Settings 

1XXXXXXX 

1 X1XXXXXX 


2 


XX1XXXXX 



1st subscript 
(if present) 



(most inclusive 
with OCCURS) 



Meaning 

This item is renamed. The 
next DATATAB entry renames it. 
This item contains an ODO clause. 
Item reguires at least 1 subscript. 
OCCURS clause connected with the 
most inclusive or only group; or 
elementary item contains an ODO. 
Item reguires at least two 
subscripts. 

OCCURS clause connected with the 
less inclusive group of 2 or the 
middle inclusive group of 3 or 
elementary group contains an ODO. 
Item reguires 3 subscripts. 
OCCURS clause connected with the 
least inclusive group of three or 
elementary item contains an ODO. 



Meaning 

Most inclusive or only group of 3 

Less inclusive group of 2 or middle 

inclusive group of 3 

Least inclusive group of 3 



If any of these bits eguals ^, bytes 2 and 3 
of the group length information for the 
associated group contain a VLC number rather 
than the length of the group. 



Number of occurrences (Maximum number if ODO) specified 
in OCCURS clause governing this item. 



Displacement of next occurrence governed by OCCURS 
clause (See note) 



2nd subscript 
(if present) 



3rd subscript 
(if present) 

(least inclusive 
with OCCURS) 



2 Number of occurrences (as above) 

2 Displacement of next occurrence governed by OCCURS 

"2 Number of occurrences (as above) 

_2 Displacement of next occurrence governed by OCCURS 
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1st subscript 
with ODO 
(if present) 



2nd subscript 
with ODO 
(if present) 

3rd subscript 
with ODO 
(if present) 



OBODOTAB pointer for most inclusive group or elementary 
item containing an ODO 

Bit Contents 

0-8 Relative block number in OBODOTAB 

9-15 Displacement within block (in fullwords) 



OBODOTAB pointer for less inclusive group (as above) 



OBODOTAB pointer for least inclusive group (as above) 



Note: All subscript length information precedes any OBODOTAB pointers. 
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PROCTAB TABLE 

The PROCTAB table contains one 5-byte entry for each card and/or verb in the source 
listing of the COBOL Procedure Division. The table is ordered on three levels: 

1. Priority (in ascending order of independent segments, with the root segment last) 

2. Card-number within priority 

3. Verb-number within card 

The last PROCTAB entry for a priority has a card and/or verb number of zero. In 
addition, the relative address field contains the address of the first byte following all 
instructions for the segment with that priority. 

Displ 

Dec Hex Field Name Bytes Field Description 
PTCDVB 3 Card-number and verb-number on source listing 

Bit Contents 

0-19 Card -number 

20-23 Verb-number 

3 3 PTRELAD 2 Relative address of instructions for this entry within 

program fragment to which it belongs 



CARDINDX TABLE 

The CARDINDX table is a directory to the SEGINDX table and contains one 5-byte entry 
for each program fragment and one entry for each discontinuity in the COBOL instructions 
within a segment. Entries in the CARDINDX table are in ascending card-number order and 
are accessed by indexing through the table seguentially . 

The CARDINDX table starts at the beginning of a block. 

Displ 
Dec Hex Field Name Bytes Field Description 
CXCDVB 3 Card-number and verb-number of first card represented 

by this entry 

Bit Contents 
0-19 Card-number 
20-23 Verb-number 

3 3 CXPRIOR 1 Priority number associated with this card 
f\ 4 CXFRAG 1 Relative fragment number within the priority to which 

this card belongs 
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SEGINDX TABLE 



The SEGINDX table contains one 10-byte entry for each program fragment, 
ordered on two levels: 



The table is 



1. Ascending priority number 

2 . Ascending fragment number within a priority 



Displ 
Dec Hex 



Field Name Bytes Field Description 



SXPRIOR 
SXEEL^iD 

SXPTL0C1 



SXPTL0C2 



1 Priority number 

3 Address of this fragment relative to the beginning of 

the segment 
3 Table locator for PROCTAB entry of first card number 

and verb number in this fragment 

Bit Contents 

0-14 Relative block number in PPOCTAB 
15-23 Displacement within block 
3 Table locator for PROCTAB entry of last card and/or 
verb in this fragment 



PROCINDX TABLE 

The PROCINDX table is a summary index of the PROCTAB table and contains one 10~byte 
entry for each block of PROCTAB entries. PROCINDX entries are ordered by relative block 
number in the PROCTAB table and are accessed by searching sequentially after indexing to 
a starting point determined by the block number from the CARDINDX or SEGINDX table. 



Displ 

Dec Hex 





Field Name Bytes F ield Description 

PXCDVB 3 Card number and verb number of first entry in block of 

PROCTAB table. 

Bit Contents 
0-^19 Card number 

20-23 Verb number 
PXRELAD 3 Relative address of instructions for this entry within 

segment to which it belongs. 
PXDEVADR 4 Device address of PROCTAB table block related to this 

entry. 



VSAM FILE INFORMATION BLOCK (FIB) 



The file information blocks a portion of the completed object module, is used at 
execution time by the ILBDVOCO and ILBDVIO COBOL library subroutines for processing 
input/output verbs used with VSAM files. The FIB is built by phase 21 and completed by 
the ILBDVOCO subroutine. 

Fixed Portion; 



Description 

External name 

External name* 

Device class and number 

ORGANIZATION 



Displacement 




No. of 


Hex Decimal 


Field 


Bytes 





INAMED 


7 


7 7 


INAMECB 


1 


8 8 


IDEVICE 


1 


9 9 


lORG 


1 
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Code: 



Equate 


Bit 








Bits Name 


Settings 


Meaning 


Source 


0-7 lORVPS 


1000 


1000 


ySKn ADDRESSED 
SEODENTIAL 


Code=S 


lORGSQO 


1000 


0100 


SEQUENTIAL 


Code=S 


lORGASC 


1000 


0001 


ASCII file 
SEQUENTIAL 


Code=C 


lORGSEQ 


1000 


0000 


SEQUENTIAL 


ORGANIZATION IS 
SEQUENTIAL 


lORGVIX 


0100 


1000 


VSAM INDEXED 




lORGINO 


0100 


0100 


INDEXED 


Code = I 


lORGIND 


0100 


0000 


INDEXED 


ORGANIZATION IS 
INDEXED 


lORGRLO 


0010 


0100 


RELATIVE 


Code = R 


lORGDIR 


0010 


0010 


DIRECT 


Code = D 


lORGDIW 


0010 


1000 


DIRECT (WRITE/ 
REWRITE) 


Code = W 


lORGVSAM 


0000 


1000 


VSAM File 





10 



lACCESS 



Code: 



Bits 
0-7 



11 



IRCDMODE 1 

Code: 



12 



ISW1 



Bits 
0-7 



1 

Code: 



ACCESS MODE 



Equate 

N ame 

lACCSEQ 

lACCRAN 

lACCDYN 



Bit 

Settings 
1000 0000 
0100 0000 
0010 0000 



RECORDING MODE 



Equate 

Nam e 

IRCDFIX 

IRCDVAR 

IRCDUND 

IRCDSPN 



Bit 

Settings 
1000 0000 
0100 0000 
0010 0000 
0001 0000 



Meaning 
SEQUENTIAL 
RANDOM 
DYNAMIC 



M eaning 

FIXED 

VARIABLE 

Undefined 

SPANNED 



Miscellaneous switches 



Bits 
0-7 



OD 



13 



ISW2 



Code: 
0-7 



Equate Bit 

Name Settings M eaning 

ISOPTNL 1000 0000 OPTIONAL specified 

ISBLKED 0100 0000 File is blocked 

ISSAMREC 0010 0000 SAME RECORD AREA specified 

ISSAME 0001 0000 SAME AREA specified 

ISLBOMIT 0000 1000 LABEL RECORDS ARE OMITTED 

ISLBSTAN 0000 0100 LABEL RECORDS ARE STANDARD 

ISLBUSER 0000 0010 LABEL RECORDS ARE dataname 

Miscellaneous switches 



ISADVAN 1000 0000 
ISPOSIT 0100 0000 
ISAFTER 0010 0000 
ISBEFORE 0001 0000 
ISNOSPAC 0000 1000 



WRITE ADVANCING 

WR-ITE POSITIONING 

WRITE AFTER 

WRITE BEFORE 

WRITE WITHOUT SPACING 
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Displacement 




No. of 


Hex Decimal 


Field 


Bytes 


OE 14 


ISW3 


1 


OF 15 


ISW4 


1 


10 16 


IAPPLY1 


1 


11 17 


IAPPLY2 


1 


12 18 


IBLKLEN 


2 



Description 

Unused 

Unused 

APPLY statements 

APPLY statements 

If •BLOCK CONTAINS (integer-1 TO) integer-2 

CHARACTERS S field contains integer-2. 

If »BLOCK CONTAINS (integer-1 TO) integer-2 RECORDS, 

field = integer-2 x (IRECLEN + control) + control + 

lASBFO, 

Where control = (Recording mode F or U) 

= 4 (Recordina mode Y, S, or D) 
lASBFO = (Non-ASCli file) 

= Buffer offset (ASCII file) 
If BLOCK CONTAINS clause is omitted, field contents 
are set in "BLOCK CONTAINS 1 RECORD'. 



ia 


20 


IRECLEN 


2 


16 


22 


IRECDBL 


2 


18 


24 


IRECNBL 


1 


19 


25 


IRESERVE 


1 


IA 


26 


ISTATDBL 


2 


1C 


28 


ISTATDDN 


2 


IE 


30 


ISTATLDN 


2 


20 


32 


IKEYISW . 


1 


21 


33 


IKEYNO 


1 


22 


34 


IKRYFNTL 


2 


24 


36 


IPSWISW 


1 


25 


37 


IPSWNO 


1 


26 


38 


IPSWBNTL 


2 


28 


40 




14 


36 


54 




2 


38 


56 


IHISCAD 


4 


3C 


60 


ILABELAD 


4 


40 


64 


IKEYLSTA 


4 


44 


68 


IPSWLSTA 


4 


48 


72 




4 



Number of bytes in longest 01 -entry 

Displacement in TGT of record's first base locator 

cell 

Number of base locators for RECORD AREA 

Reserve integer areas 

Displacement in TGT of base locator for STATUS 

data-name 

Displacement from base locator of STATUS data-name 

Length of STATUS data-name 

Miscellaneous switches 

Number of entries in key list 

Length of each entry in key list 

Miscellaneous switches 

Number of entries in password list 

Length of each entry in password list 

Reserved 

Slack bytes 

Address in variable length portion of FIB for 

miscellaneous clauses 

Address of labeling information block 

Address in variable length portion for first Key list 

entry 

Address in variable length portion for first Key list 

list entry. 

Reserved 
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Variable Length Portion ; 

Supplementary Information 

Displacement 
Hex Decimal Field 
IMSW1 



for Miscellaneous Clauses (one for each clause) 



6 
14 



IRERUNI 
IRERUNK 



Indexed Record Key List: 



IRKEYLDN 
IRKEYDDN 



No. of 

Bytes 

2 

Code: 

Bits 

0-7 

8-15 

4 

8 



Description 
Switch bytes 



Equate Bit 

Name Settings Meaning 

IMRREOV 1000 0000 RERUN at end of volume 

Unused 

RERUNN integer (Field contains zeros if RERUN not 

specified) 

External-name of RERUN clause 

Slack bytes 



Length of RECORD KEY data-name 

Displacement in record of RECORD KEY 

Record Key information follows for each ALTERNATE 

RECORD KEY specified 
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SECTIOl^ 6- DIAGNOSTIC AIDS 



This chapter provides information about 
compiler error messages and provides a few 
diagnostic aids for use in case a compiler 
error, rather than a user error, appears. 
A compiler error may produce one of two 
results: an abnormal termination while the 
compiler is still in storage, or erroneous 
output from a completed compilation. 



Note : The compiling program-name, its 
version numbers, its modification number, 
and the Program-ID can be found at the end 
of the INITl routine (see Appendix B) • 
INITl is at the end of the object module 
listing. 



DUMP PRODUCED FOR DISASTER LEVEL ERROR 
MESSAGES 



Under severe circumstances the compiler 
determines that processing during a phase 
cannot continue. The phase issues a 
Disaster-level (D-level) message on SYSLST 
and initiates a storage dump. Compilation 
is abandoned and control is returned to the 
operating system. 

The dump indicates which phase of tne 
compiler was executing at the time of the 
D-level circumstance. The contents of 
registers through 15 at the time of the 
last entry to the TAMER routines in phase 
00 may be found in the 16 fullwords 
starting at label TBSAVl in the load module 
ILACBLOO. 



ERROR MESSAGE LISTING 



A complete listing o± all the error 
messages produced by the compiler can be 
obtained by compiling a program with a 
PROGRAM-ID of ERRMSG. The listing consists 
of: 



• compiler identification and level 



• Brief description of the remainder of 
the listing 



• Description of listing conventions 

• Action codes and meanings 

• General procedure in recurring problem, 
situations 

• Error messages in the following format: 

— Message number 

— Severity level 

— Action code 

— Message text 

The messages are listed by phases of the 
compiler in the following order: 10, 11, 
20, 21, 22, 30, 40, 50, 60, 62, 63, 64, 00. 
The completed listing can be inserted in an 
8 1/2" by 11" binder for convenient 
reference. 



ABNORMAL TERMINATION DURING COMPILATION 



If the compiler terminates execution 
abnormally, the resulting dump can be used 
to locate some information from the data in 
storage at the time. If certain 
input/output error messages were printed, 
additional information is available. 



LOCATION OF INFORMATION IN STORAGE 



The programmer can determine from a dump 
the current processing phase in storage, 
the current record, the status of tables 
and buffers already in use, and the 
registers saved during the previous calling 
process. 



Current Phase 



If the compiler terminates execution 
while a processing phase (05, 06, 07, 08, 
10, 11, 12, 20, 22, 21, 25, 30, 40, 50, 51, 
60, 61, 62, 63, 64, 65, or 70) is in 
storage, the name of the phase can be found 
in the Phase 00 location LINKNAME. 
LINKNAME contains an 8-byte name in the 
form FCOBOLxx, where xx represents the 
phase number. 

Each of the five words located 15 
statements after LINKNAME in storage 
contains an address. These addresses point 
to the locations where one or more phases 
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are loaded- The five address constants, in 
order, are: 

1- Address of Phase 01. 

2o Address of Phases 10, 11, and 12. 

3. Address of Phases 20, 21, 22, 25, and 
30- 

4. Address of Phases 40, 50, 51, 60, 62, 
63, 64, 65, and 61. 

5„ Address of Phase 70. 

Phase 00 is loaded iniined lately after the 
L*OS/VS SysteiTi Supervisor. 

Current Record 



number- The result is the address of 
the proper TIB. 

3. The second, third, and fourth bytes in 
the TIB contain the address of the 
Table Area Management Map (TAMM) for 
the table. 

4. The second, third, and fourth bytes of 
the TAMM contain the address of the 
table. The seventh and eighth bytes 
contain the number of bytes used so 
far in the table. 

The entry format for each table 
manipulated by the TAMER routines is shown 
in "Section 5. Data Areas." See also 
"Appendix A. Table and Dictionary 
Handling. " 



Unless either phase 20 or phase 21 is 
executing, the record that is being 
processed at the time of the error can be 
related to a statement in the listing 
through a location in COMMON named CURCRD, 
which contains the current generated card 
number. (CURCRD is located at relative 
address 26C- See "Section 5- Data Areas" 
for more information on COMMON- ) If either 
phase 20 or phase 21 is executing, the 
generated card number can be found in the 
CARDNO field or the CARDNUM field, 
respectively- If there is no source 
listing available, the Jouffers for the 
files being read or written can be located, 
and the contents of the last bytes used can 
be examined. This process is described 
below under "Compiler Buffers and Their 
Contents. " 



Tables Used by Phases 



The status of the tables built or 
referenced by the current phase may reveal 
how much processing the phase had done 
before the dump occurred. Tables currently 
being used by a given phase can be located 
by the following steps: 

1. The Table Information Block (Tlri) 
number for any table handled by the 
TAMER routines can be found in 
"Section 4. Directory" (listed by- 
phase) or in "Section 5. Data Areas" 
(listed alphabetically by table name) - 

2- Add the phase 00 load address to the 
displacement (shown in the listing of 
phase 00) for the particular TIB 



Compiler Buffers and Their Contents 



When a processing phase requests an 
input/output operation via phase 00, 
register 9 contains tne address of an entry 
for the file within the phase 00 PQINT 
table- Figure 64 shows the contents of a 
POINT table entry. Each consists of two 
bytes, with the low-order bits of each byte 
containing the buffer numbers. If a file 
is double buffered, the numbers are 
different- If it is single buffered, the 
numbers are the same. If the first four 
bits of the entry contain a hexadecimal 
'F", no physical input/output has been done 
on the file in the current phase. 



I Bits 



Contents 



I 0-3 

I- 

1 4-7 



I 

-+- 

I 



X'O' or X"F' 
buffer number 



I 

-+- 

I 



X"0' 

buffer number 



I 8-11 

I- 

I 12-15 

L J. J 

Figure 64. POINT Table Entry Format 

The buffer number can then be used to 
locate the associated Buffer Control Block 
(BCB) - BCBs are contained in an area 
starting at BUFCNLS in phase 00, as shown 
in Figure 65. The format of a BCB is shown 
in Figure 66- For SYSIPT, SYSLST, SYSPCH, 
and SYSLNK, the buffer addresses are 
contained in the phase 00 locations IPTBUF, 
LSTBUF, PCHBUF, and LNKBUF, respectively - 
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Location 


1 


Control Block 


BUFCNLS+0 


1 


Buffer 


IBCB 


BUFCNLS+8 




Buffer 


2BCB 


BUFClSILS + 16 


1 


Buffer 


33CB 


BUFCNLS+24 


1 


Buffer 


4BCB 


BUFCNLS+32 




Buffer 


5BCB 


BUFCNLS+40 


1 


Buffer 


6BCB 



Figure 65- Buffer Control Blocks for 
Buffers 1-6 



r T T T 1 

Bytes I 1 I 3 | 2 | 2 | 
(. ^ + + ^ 

Contents I X' 00" ] Address (Bytes used | Length | 
I 1 of Buffer I so far for| of ] 
I I I GET or PUT I Buffer I 
L J. X J. J 

Figure 66. Buffer Control Block Format 



Note: The above does not apply to file 
SYS005. Phases 25 and 65 perform buffer 
management processing for SYS005. 



Register Usage 



When linking to another phase, phase 00 
passes a pointer in register 1 to a 
parameter list starting at location COSPARM 
in phase 00. The first word of this list 
always contains the address of COS, another 
location in phase 00. This address is used 
by the other phases in two ways: as the 
point in phase 00 to which control should 
be passed for an input/output request and 
as the base address for the COMMON DSECT 
used in the other phases. General register 
usage for each phase is shown in Figure 67- 



PHASE 00 (ILACBLOO) 



Register] Use 







10 

11 
12 

13 

14 
15 



Contains COS address at entry 
to COS; contains buffer address 
at exit from READ routine 

Used to return to calling 
phase; otherwise, work. 

Note: Registers S. 1 are 
destroyed by phase 00 
during calls to COS- 

Address of data for a WRITE. 

Length of data for a WRITE - 

Work; Address of TRMNATE CSECT 

Base register for ILACBLOO 
CSECT 

Points to buffer control block 
for logical I/O 

Points to buffer control block 
for physical I/O 

Return address-2 (Linkage 
parameters) 

Address of file pointers (Point 
table) for the file on which 
I/O is currently being 
performed- 

(File number-1) * 4; used to 
index into EUFCNLS and the 
table of DTF ADCONS. 

Linkage; base register for 
PHOTBDIC CSECT 

Linkage; base register for 
TBDATA CSECT 

Save area pointer (from calling 
phase) 

Linkage. 

Linkage; base for PHOTBSTl 



Figure 67- Compiler Register Usage 
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F- 



PHASE 01 (ILACBLOl) 



Register] Use 



-I 1-- 



I Linkage to phase 00; work in 
CSECT ILA002 

Contains address of phase 00 
parameters when phase 01 is 
called; work in CSECT ILA002 

2-3 I Work 

a I Work; input pointer in CSECT 
ILA002 

Base for CSECT ILACBLOl; base 
for CSECT ILA002 (COPY/BASIS) 

Base for DATA; base for CSECT 
ILA002 (COPY/BASIS) 

Work; base for CSECT ILA002 
(COPY/BASIS) 

Highest available storage 
address; linkage in CSECT 
ILA002 

Base for CSECT ILA002 
(COPY/BASIS) 

10 I Address of system's 
communication region; work in 
CSECT ILA002 

11 1 Address of COS; work in CSECT 
ILA002 

12 I Address of phase 00 parameter 
list; work in CSECT ILA002 

13 j Address of phase 01 save area 

14 I Internal linkage (SCAN 
routine) ; work in CSECT ILA002 

15 I Internal linkage (SCAN 
routine) ; address of COS in 
CSECT ILA002 



H F- 



j PHASE 05 (ILACBL05) 



1 Register] Use 



JO 

I 

|1 

I 

12-9 

I 
110-12 

I 
|13 

I 
114-15 

L 



Linkage to phase 00; work 

Address of COS; work 

Work 

Base 

Work area DSECT base 

Internal linkage 



I PHASE 06 (ILACBL06) 



\- T 

[Register] Use 



|0 

I 

|1 

I 

12-9 

I 
110-12 

I 
1 13 

I 
114-15 

L 



Linkage to phase 00; work 

Address of COS; work 

Work 

Base 

Work area DSECT base 

Internal linkage 



j PHASE 07 (ILACBL07) 



j Register] Use 



F- 



10 



12-9 

] 
110-12 

I 
1 13 

I 
114-15 

L 



Linkage to phase 00; work 
Address of COS; work 
Work 
Base 

Work area DSECT base 
] Internal linkage 
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I PHASE 08 (ILACBL08) 



I- T 

I Register I Use 
I- + 



|0 
1 


Linkage to phase 00; work 


1 

ll 

1 


Address of COS; work 


1 

12-9 

1 


Work 


1 10-12 
1 


Base 


1 

|13 

1 


Work area DSECT base 


114-15 


Internal linkage 



^ V 



PHASE 11 


(ILACBLll) 


J 


T 

Register] Use 




1 
1 





Work 




1 


1 


Address 


of COS 


in phase 00 | 


2-7 


Work 






8 


Base of 


IFQ109 


(EXHSVB) 1 


9 


Base of 


IEQ107 


(LETTER) 1 


10 


Base of 


IEQ104 


(COBWRD) 1 


11 


Base of 


IEQ103 


(GETWD) 1 


12 


Base of 


IEQ102 


(IDDIVl) 1 
1 


13 


Base of lEQlOl (PHISAV), | 

pointing directly to the phase | 

11 Save Area in that CSECT | 

1 


14 


Linkage 




\ 

1 

1 


15 


1 
Linkage to TAMER | 
Addressability to IEQ108 | 
(PDSCN) and temporary | 
addressability to IEQ116 j 
(VARPQ) and to IEQ106 (UNLVSN) | 



PHASE 20 (ILACBL20) 
1— 



Register] Use 



0-6 


1 Work 


7 


Address of input buffer area 


8-10 


Work 


11 


t Address of COMMON, except 




during ACCMET routine 


12 


Work 


13 


Address of save area 


14 


Branching 


15 


Base for all routines 


± 
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IPHASR 21 

1 


■ 1 

(ILACBL21) 1 


1 1 

1 Register 
1 1 


Use ! 


|0-1 

1 1 


Work 1 


1 1 

12 

1 1 


BUFTA5 pointer j 


13-6 1 

1 1 


Work 1 


1 1 

17 
1 


Data IC-text pointer | 


1 

18 

1 


Work 1 


1 

19 

1 


FDTAB pointer | 


[10 
1 


PIOTBL pointer | 


111 

1 


Address of COS in phase 00 | 


1 

112 

1 


Base of PERMCODE | 


1 

113 


Pointer to SAVEARBA | 


|1t, 15 


Linkage | 



1 

IPHASE 

1 


22 


(ILACBL22) 1 


1 

1 Register 
1 


Use 1 


10-6 




Work 1 


1 

17 

1 




Address of input buffer area | 


18-10 




Work 1 


1 

111 

1 

1 




Address of COMMON , except j 
during ACCMET routine. I 


1 

112 

1 




Work 1 


1 
113 

1 




Address of save area | 


1 

114 

1 




Branching | 


115 




Base for all routines j 



IPHASE 
1 


25 


(ILACBL25) 1 


1 

1 Register 
1 


Use 1 


|0-8 
1 




Work 1 


1 

19 

1 




Base register for SYMDICT DSECT| 


no 




Address of COS in phase 00 | 


111,12 

1 

1 




Permanent base of first 2 ) 
CSECTS 1 


1 
113 

1 




Permanent base of data CSECT | 


1 
114 

1 




Linkage | 


1 

115 

1 




Linkage, base of access j 
I routines j 
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PEASE 30 (ILACBL30) 



Register I Use 



f^-e I Work 



Work 

Frequently contains dictionary 
pointer to the entry currently 
being processed 

Frequently points to the start 
of attributes in the dictionary 
entry currently being processed 

Frequently contains dictionary 
pointer to the entry currently 
being processed 



Permanent base for the CSECT 
containing the following 
routines : 

GLORET 

PK5CTRL 

READ 

EOF 

GENOP 

SEARCH 

QUALIF 

CORRTN 

Permanent base for the CSECT 
containing the following 
routines: 

GLOSRY 

ENTRPD 

TSTHRD 

ERROR 

GETNXT 

GETALL 

GENDAT 

COPYIN 

COPREN 

ISTDLM 

ISTBCD 

GETLVL 

COUNT 

DESCUP 

ISPTR 

Permanent base for phase 30 
data area 



1 PHASE 


40 


(ILACBL40) 1 


1 1 

1 Register 


Use 1 


|0-6 




Work; used by verb analyzers, | 
subroutines, and phase j 
controller | 


17-11 




Permanent bases for the nonverbj 
analyzer routines: | 

phase controller | 
subroutines | 
constants | 
data area | 


|12 




Points to current contents of | 
input buffer | 


|13 




Unused | 


|ia 




Branching | 


MS 




Temporary base register for the | 
verb analyzer currently in | 
control 1 
Linkage to TAMER | 



IPHASE 50 


■ ■ ■ "1 

(ILACBL50) 1 


1 Register! 


Use j 


10-6 1 


Work 1 


|7 1 


Base for first CSECT in the | 
phase, beginning with PH5CTL j 


18 


Base of second CSECT, beginning | 
with XINSCN I 


|9 


Temporary base for verb j 
analyzer routines beyond the | 
third CSECT | 


|10 


Points to COMMON in phase 00 | 


ni 


Base of third CSECT, beginning | 
with A-text Generator | 


|12 


Base of phase 50 constant area | 
(next-to-last CSECT) | 


113 


Base of phase 50 data area | 
(last CSECT) 1 


114 


Linkage | 


|15 


1 Temporary base for some j 

routines called by verb | 

1 analyzers | 
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IPHASE 51 (ILACBL51) 
I 1 



I Register I Use 
I 



I 0-6 

I 

17 

I 

18 

I 

|9 



I 10 

I 

I 

111-15 

I 



Work 

Same as 50 

Work 

Base register for each verb 
analyzer 

Base register for each verb 
analyzer 

Base register for each verb 
analyzer 



IPHASE 60 


(ILACBL60) 1 


1 

1 Register 


Use 1 


|0-3 


Work 1 


|4 


Input for all texts | 


|5-7 


Work 1 


IS 


Base for the following CSECTs: j 




1 — performs phase j 




initialization (switches,! 




work areas, etc.) ; j 




processes the TGT I 




3 — processes Procedure | 




A -text 1 


|9 


Points to COMMON in phase 00 | 


|10 


Base for the following CSECTs: I 




2 — processes Optimization | 




A-text 1 




4 — processes Procedure | 




A-text and Data A-text; | 




generates initialization j 




routines | 


Ml 


Work 1 


112 


Base for CSECT containing j 




i constants (IE0605) | 


113 


Points to phase 60 save area j 


|14 


Linkage to subroutines j 


115 


Linkage to subroutines | 



IPHASE 62 


1 

(ILACBL62) 1 


I Register 


Use 1 


10-3 


1 
Work 1 


|4 


Input for all texts | 

1 


|5-7 


Work 1 


|8 


Base for the following CSECTs: | 




1 — performs phase | 




initialization (switches, I 




work areas, etc.) ; | 




processes the TGT | 




3 — processes Procedure | 




A-text 1 


\9 


Points to COMMON in phase 00 | 


110 


Base for the following CSECTs: | 




2-'^processes Optimization | 




A-text 1 




4 — processes Procedure | 




A-text and Data A-text; | 




generates initialization | 




routines | 


111 


Work 1 


112 


Base for CSECT containing | 




constant (IEQ625) | 


113 


Points to phase 62 save area | 


|14 


Linkage to subroutines | 


MS 


Linkage to subroutines | 



IPHASE 63 (TLACBL63) 



I 

[Register 

I 



10-10 

I 

111-13 

I 
114 

I 
115 



Use 



Work 

Base registers 

Return for internal subroutines 

Address of internal subroutines 
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jPHASS 64 


, 1 

(ILACBL64) 1 


1 1 

[Register 


Use 1 


10-3 


Work 1 


|4 1 


Input for all texts | 


15-7 


Work 1 


|8 


Base for the following CSECTs: | 
1 — performs phase | 
initialization (switches,} 
work areas r etc) ; | 
processes the TGT | 
3 — processes Procedure | 
A -text 1 


19 


Points to COMMON in phase 00 | 


no 


Base for the following CSECTs: | 
2 — processes Optimization | 
A-text 1 
4 — processes Procedure | 
A-text and Data A-text; | 
generates initialization j 
routines | 


111 


Work 1 


|12 


Base for CSECT containing | 
constants (IEQ6a5) | 


113 


Points to phase 64 save area | 


H'* 


1 Linkage to subroutines | 


115 


i Linkage to subroutines | 



1 — 

jPHASB 
1 


65 


(ILACBL65) 1 


IBegist 
1 


er| 
1 


Use 1 


10-3 

1 


1 

1 
1 


Work 1 


1 

14 

1 
1 


1 


Input for Debug-text and for | 
generating TXTCRD DSECT | 


1 

15-7 

1 


1 


Work 1 


1 

18 

1 




Ease for CSECT ILA651 | 


! 

19 




Points to COMMON in phase 00 | 


110 

1 




Base for CSECT ILA652 | 


111-12 
1 




Work 1 


1 

113 

1 
1 

1 




Points to phase 65 save area; | 

1 base for phase 65 constant | 

CSECT ILA653 f 


114-15 




Linkage to subroutines | 



IPHiiSE 


61 


(TLACBL61) 1 


i 

(Register 
1 


Use 1 


|0 




Work; return address when phase | 
61 has branched to phase 00 j 


|1 




Work; base for input DSECT j 


|2 




Work; pointer to data record | 
being formatted | 


13-9 




Work 1 


|10 




Points to COMMON in phase 00 | 


111 




Base for CSECT ILA6102 | 


112 




Base for CSECT ILA6101 | 


|13 




Points to phase 61 save area | 


|14 




Return address for internal | 
subroutines | 


115 




Work; address of internal | 
subroutines j 



1 PHASE 
1 


70 


(ILACBL70) 1 


1 1 

1 Register 1 
1 i 


Use 1 


10-3 

1 




Work 1 


1 

t 




Input for E-text | 


1 

15 

1 
1 

1 




Points to message in message | 
table during processing of mostj 
messages | 


16-7 




Work 1 


1 
18 

1 




Base for phase instructions | 


1 

|9 
1 




Points to COMMON in phase 00 | 


1 

110 

1 




Base for most constants | 


111-12 
1 




' Work 1 


1 

113 
1 




Points to phase 70 save area | 


1 

114 

1 




' Linkage to subroutines j 


115 

1 




1 Base for PUT, CONVERT, GET, | 
1 STRING, and XPRIME routines | 
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IPRASE 80 
1 


(ILACBL80-8D) | 


{Register 
1 


Use ) 


1 

10 


Work 1 


n 


Base for ILACBL80; work | 


12 


DTF pointer for ILACBL80; work | 


13 


DTF pointer for ILACBL80; work | 


1^ 


DTF pointer for ILACBL80; base | 


1 


for ILACBL8C; work | 


15 


Base for ILACBL8C; work | 


16 


Internal link for ILACBL8B^ | 


I 


ILACBL8C, and ILACBL8D; work | 


17-9 


Work 1 


no 


DTF pointer for ILACBL8 4, | 


I 


ILACBL86, and ILACBL8D I 


111 


DTF pointer for ILACBL8D; work | 


112 


Points to FIPSVT (FIPS vector | 


1 


table) 1 


113 


Save 1 


114 


Link 1 


115 


Base 1 
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ReQJster Saving 



INPDT/OOTPUT ERROR MESSAGES 



When phase 00 gets control from the 
system r it places the address of the DOS 
control program's save area in location 
MYSAVE+4. When it is called by another 
compiler phase, phase 00 places the address 
of the calling phase's save area in 
SAVER13. It puts the address of its own 
save area (MYSAVE) in register 13. 



Phase 01 generates messages if it 
discovers error conditions during 
initialization. The system handles 
directly all input/output errors. 



ERRONEOUS COMPILER OUTPUT 



The calling phase's registers can be 
located by adding decimal 12 to the address 
contained in SAVER 15. This locates 
register 14, followed by 15, etc. The 
following registers have significance in 
connection with the call: 



Register : Contains the address of the 
X and Y parameters of the linkage 
reguest. (See "Processing Between 
Phases" in the chapter on phase 00.) 
These parameters can be used with Figure 
11 in the phase 00 chapter to verify 
that the calling phase is making a 
legitimate reguest. 



Note: Register 10 of phase 00 should 
contain the file number code (Y 
parameter minus 1) multiplied by 4. 



Register 2 : Contains the address within 
the calling phase from which phase 00 is 
to write if the X parameter above is a 
reguest for a PUT. It can be used to 
determine that the indicated area is 
within the range of the storage 
allocated to the calling phase. 



Register 3 : Contains the length, in 
bytes, of the data to be written if a 
PUT has been requested. The number must 
be less than 256, but not egual to zero. 



If the calling phase is asking for 
action by a TAMER routine, the registers of 
the calling phase are saved in an area 
starting at location TBSAV1 by means of a 
STM 0,15 instruction. Register 14 contains 
the address of the instruction following 
the call to the TAMER routine; register 15 
contains the address of the TAMER routine 
entry point. For the complete calling 
sequence, including parameters, see 
"Appendix A. Table and Dictionary 
Handling." The MASTAM, also described in 
that chapter, can be found at location 
TBMASTAM and should be investigated to 
determ5-ne whether the table and dictionary 
areas are being properly used. 



If the compilation terminates normally 
(with the desired options in effect) and if 
the object module nevertheless executes 
incorrectly, the source program should be 
checked first for mistakes in logic, 
language, data formats, etc. Using the 
SYMDMP, STATE, and FLOW compiler options 
can help in determining mistakes. For 
information on the use of these options, 
see the publication IBM DOS/VS COBOL 
Compiler and Library Programmer's Guide , 
Order No. SC28-6478. If a compiler error 
is still suspected, the information below 
can help to pinpoint the problem. 



Note ; The LIST and LISTX compiler options, 
along with the linkage editor's MAP option, 
are invaluable under these conditions. The 
SYM, XRFF or SXREF and FLAGW compiler 
options are also useful. 



STORAGE LAYOUT 



An example of the general storage usage 
for a COBOL program being executed in the 
background area is given in Figure 68. The 
Memory Map printed as a result of the LISTX 
option contains the relative addresses of 
the TGT fields, the literal pool, PGT 
fields, the register assignments, the 
instructions generated from the Procedure 
Division, and the INIT2, INIT3, and INITI 
routines, in that order. (See "Appendix B 
Object Module" for a discussion of these 
fields.) The absolute addresses can then 
be found with the assistance of the phase 
map (see "Linkage Editor Phase Map" in this 
chapter) . 
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r T 1 



1 Permanent storage locations used 
jby CPU; Communication Region; 

tONTROL [Supervisor Nucleus; 

PROGRAM |I/0 Units Control Tables; and 
[Transient Area 

^ ^ 

1 1 INITl 
1 1 Working- Storage 
1 1 DTFs and BUFFERS 
i 1 TGT 
1 1 PGT 
1 1 Literals 
1 1 Report Writer 
BACK- ] OBJECT] Procedure Division 
GROUND 1 MODULE 1 (Priority less than 
] 1 segment limit) 
1 * 1 Q- routines 
1 1 INIT2 
1 1 INIT3 
1 1 Transient Area 
1 1 (Nonresident 
1 1 Segments) 
L ± 


ILIOCS Modules 

[COBOL Library Subroutines 


FORE- 1 

GROUNDS 1 

II £ I| 



1- X ^ 

I *The object module is not always first 
in its partition. 

L J 

Figure 68. Example of Storage Usage During 
Execution 



beginning of the object module as 
given in the linkage editor map. 

4. Allov?ing one fallword per DTFADR cell, 
count off cells from the starting 
address found in Step 3, using the 
order determined in Step 1, to locate 
the desired DTFADR cell. 

5. The DTFADR cell contains the absolute 
address of the desired DTF- 

Note: The procedure for locating a 
secondary DTF is essentially the sam.e, the 
only differences being that the SUBDTF 
address cells pointed to by the PGT are 
used and that the order of the cells is 
Input, Output, I-O, or Input Reversed. 



LOCATING DATA 



The location assigned to a given 
data-name may similarly be found by using 
the BL number and displacement given for 
that entry in the GLOSSARY, and locating 
the appropriate one-word BL cell in the 
TGT. The hexadecimal sum of the GLOSSARY 
displacement and the contents of the cell 
should give the relative address of the 
desired area. This can then be converted 
to an absolute address as above. 



REGISTER USAGE 



LOCATING A DTF 



A particular DTF may be located in an 
execution-time dump as follows: 

1. Determine the order of the DTF address 
(DTFADR) cells in the TGT from the DTF 
numbers shown for each file-name in 
the GLOSSARY. 



Note: 



Since the order is the same as 



the order of FDs in the Data Division, 
it can be determined from the source 
program whether the SYM option was not 
used (that is, no glossary was 
printed) . 

Determine the relative starting 
address of the block of DTFADR cells 
from the TGT listing in the Memory 
Map. 

Calculate the absolute starting 
address of the block by adding the 
hexadecimal relocation factor for the 



The compiler assigns registers for use 
at execution time according to the general 
rules indicated in Figure 69. When OPT is 
specified^ the register assignment is that 
indicated in Figure 70. In addition, the 
LISTX or CLIST or SYM Option causes the 
permanent register assignments for the data 
areas to be printed in the Memory Map, 
along with the Base Locators associated 
with them. 



r T 

[Register] Assignment 




Work 

Pointer to beginning of 

Working -Storage 

Pointers to FDs and then 

remainder of Working-Storage 

areas if needed 

Pointer to PGT 

Pointer to TGT 

Temporary base registers 



Figure 6 9- Register Usage at Execution 
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r T 

I Register I Assignment 




Work 

Assigned in the following 

order: 

1 TGT or PGT OVERFLOW CELLS 

2 Most used BLs or BLLs 
PGT OVERFLOW if another 
OVERFLOW results after 
allocation of PROCEDURE BLOCK 
CELLS or next most used BL 

or BLL 

Procedure Block cell 

PGT 

TGT 

Temporary base registers 



Figure 7 0, Register Usage at Execution 
when OPT is Specified 



the absolute addresses of all entry points 
of all CSECTs in the phase. Figure 71 is 
an example of a phase map. 

In the figure, ILBBSAEO, a COBOL library 
subroutine, handles sequential access 
input/output errors and ILBDDSPO handles 
DISPLAY verbs. IJJCPDl is a DOS logic 
module which is present whenever a DISPLAY 
or an ACCEPT verb is used. ILBDMNSO is a 
1-byte COBOL library subroutine which is 
always present and which provides a flag 
indicating whether a subprogram or a main 
program is executing. 



DIAGNOSTIC ASSISTANCE 



ERROR MESSAGES 

All error and warning messages listed 
during compilation should be examined- 
(The warning messages will be listed only 
if the FLAGW option is in effect.) If any 
message seems inappropriate, it can 
sometimes be traced back to the originating 
phase by examining the message 
identification code. The format is as 
follows: 

ILAnxxxI-s 

where : 

n is the first digit of the phase number 

XXX represents the assigned identifying 
numbers for the message 

s indicates the severity code (W, C, E, 
or D) 

Several phases can begin with the same 
digit (for example, phases 10, 11, and 12) 
but no further general distinction is made 
between the message numbers assigned by the 
various phases. 



LINKAGE EDITOR PHASE MAP 



If the MAP option is in effect, the 
linkage editor produces a phase map showing 



When you (the CE) telephone for 
diagnostic assistance, you can get a faster 
and more precise response if you provide as 
much information about the problem as 
possible. To determine whether your 
problem has been documented, it is 
necessary that you provide certain items, 
referred to as search arguments, that are 
needed to retrieve such documentation- 
Search arguments include such items as 
component identification, when failure 
occurred, type of failure, phase that 
failed, and verb being processed. 

To assist you in determining search 
arguments^ a COBOL Abstract Worksheet 
appears on the next page. The worksheet 
describes each search item, the search 
argument that identifies that item, and an 
explanation of how to find the search 
argument- For most efficient retrieval of 
documentation regarding your problem, 
provide as many search arguments as you 
can. 

In addition to the search arguments, 
have as many of the following items 
available as possible when you telephone 
for diagnostic assistance: 

• JCL 

• source listing 

• dump 

• console sheet 

• program output 
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PHASE 
PHASE*** 



XFR-AD LOCORE HICORE DSK-AD 

002800 002800 003EB3 5D 05 2 CSECT 



ESD TYPE 


LABEL 


LOADED 


REL-FRI 
1 


CSECT 


EXAMPLE 


002800 


0028001 
1 


CSECT 


ILBDSAEO 


003E08 


1 
003E08I 


ENTRY 


ILBDSAEl 


003E1E 


1 
1 


CSECT 


ILBDMNSO 


003E00 


003EC0I 
1 


CSECT 


ILBDDSPO 


003630 


1 

0036301 

i 


CSECT 


IJJCPDl 


003468 


1 

003t68 1 


ENTRY 


IJJCPDIN 


003468 


1 


* ENTRY 


IJJCPD3 


003468 


1 



Figure 71. Example of a Phase Map 
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I Search Item 

I- 



j Search Argument 



j How to Find Argument 



H 



1. Component ID: 

574 6-CB-xxx where 
XXX is the program 
product version 
level 



1. 5746-CB-xxx 




The program product version level is 
printed at the top of the first page of 
the COBOL listing- It is also con- 
tained in byte X'17' of the load 
module. 



H 



2- Keyword entry 

(use as indicated) ; 



If unsure, check the JCL to see which 
step was being executed at the time of 
the failure. 



CMPL 



3. Type of failure: 
one of the 
following: 

abend = ABENDxxx 

wait = WAIT 

loop = LOOP 

msa. = MSGILAxxxxx 



3. 



4, Failing phase: 

ILACBLxx, where xx 
is the compiler 
phase number - 



4- ILACBLxx 



Location LINKNAME in phase 00 contains 
a name in the form FCOBOLxx, where xx 
is the compiler phase number. 



5- COBOL verb being 
processed: (e.g., 

ADD, MOVE, GO) ' 



h 



5.. 



A. 



Find the register used by the 
failing phase (argument 4 above) to 
point to COMMON; see "Register 
Usage" in "Section 6. Diagnostic 
Aids."^ 




Obtain the address 
the register. 



of COMMON from 



•14C" 
■•153" 



•26C« 
-•26D" 



I Program ID 
I entry 

h 
1 

I Card being 
J. 

] processed 

1 



E. 



Verify that you are at the correct 
area for COMMON; the contents of 
COMMON address + X'14C" should be 
the same as the word coded on the 
PROGRAM- ID card (card 2 or 3 in the 
source program) - 

Find card numiber at COMMON address 
+ X"26C" (e..g., 8000030 would 
indicate card 48 because X'30* = 
decimal 48).. 

Find the indicated card in the 
source program and determine the 
COBOL verb being processed. 



-I 



^If this worksheet has been removed from the DOS/VS COBOL PLM, the address of COMMON 
can be found by using all of the registers listed under REG AT ENTRY TO ABEND. 
Starting with register 10 (then 11, then 9) perform steps B and C until step C results 
in a match; then do steps D and E. 
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COBOL Abstract Worksheet (Side B) 



j Search Item 



1. Component ID: 

5746-CB-xxx, where 
XXX is the program 
product version 
level, 



j Search Argument 
-+- 



Keyword entry (use 
as indicated) : 



If unsure, check the JCL to see which 
step was being executed at the time of 
the failure. 




Type of failure: 

one of the 

following: 

abend = ABENDxxx 

wait = WAIT 

loop = LOOP 

msg. = MSGILAxxxxx 

bad output 

= INCORROUT 



4, COBOL verb 

statement being 
executed: 



5, Optional COBOL 

library module name 
being executed: 



1. 5746-CB-xxx 



j How to Find Argument 



The program product version level is 
printed at the top of the first page of 
the COBOL listing,. It is also con- 
tained in byte X'17' of the load 
module- 



A. Determine the CSECT name assigned 
to the failing program in the 
PROGRAM- ID source statement, which 
is usually the second or third card 
in the source program. 

B. Determine the length of the compiled 
CSECT from one of the following 
areas: 

• linkage editor map 

• extent list 

• compiler generated Memory Map 

O. Use the PSW AT ENTRY TO ABEND to 

determine the address of the failing 
instruction. 

D. Is the failing instruction within 
the scope of the code compiled for 
the COBOL CSECT? If yes, see note 1 
below. If no,, see note 2 below.. 



6. Special COBOL 

features being used 
(optional) : 
(e.g., SORT, 

SYMDUMP) 



6. 



Note 1 . (a) Calculate the displacement of the failing instruction from the CSECT entry 
point. (b) Find this displacement in the Memory Map assembler listing. (c) The 
statement number related to the generated code is printed on the left side of the 
assembler listing. In some cases, the COBOL verb is also printed in the listing. 

Note 2 , (a) Trace back from failing CSECT to exit from COBOL CSECT,. (b) Use the 



linkage editor map, the CDE, and extent list or the PSW in the PRB in conjunction with 
the SAVE AREA TRACE to find the name of the failing CSECT and the entry point for the 
CSECT. (c) If the return address saved by the failing CSECT is within the scope of the 
compiled CSECT. proceed as in Note 1. If not, continue the traceback. 
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APPENDIX A. 



TABLE AND DICTIONARY HANDLING 



The tables that the compiler uses to 
store information within a phase or between 
phases are manipulated by a set of routines 
called TAMER (Table Area Management 
Executive Routines) . TAMER is part of 
phase 00 and is resident in storage 
throughout compilation. 

The dictionary, which is an internal 
data area used by phases 11, 21, 22, 25 and 
30, is manipulated by a set of routines 
called ACCESS routines. ACCESS routines 
are loaded into storage as part of these 
phases. 

The chapter on phase 01 explains how a 
region for tables and the dictionary is 
obtained. Figure 72 shows the arrangement 
of tables and the dictionary. 



I Table 1| .. 
I I 



T 1 r- 

I Table NlWain Free | 
I I Area | 

-J I L. 



I Dictionary | 
I Section N | 



. . I Dictionary I 
I Section 1 | 



Figure 72. Arrangement of Tables and 
Dictionary Sections in a 
Contiguous Region 



ACCESS DICTIONARY HANDLING ROUTINES 



ACCESS routines enter and retrieve 
dictionary entries . They are assembled by 
means of a macro instruction, with phases 
11, 21, 22, 25, and 30 the only phases that 
use the dictionary. Only those routines 
that are needed in a phase are assembled 
with it. Using the ACCESS routines, phases 
11, 21, and 22 make dictionary entries for 
data-names and procedure-names in the order 
in which the names are defined in the 
source program. (Phase 11 makes entries 
for procedure-names. Phases 21 and 22 make 
entries for data -names.) Basically, a 
dictionary entry consists of a name and 
attributes. Formats for the types of 
dictionary entries are illustrated in 
"Section 5. Data Areas". Phases 11, 21, 
and 22 do not use LOCNXT. 

Phase 30 uses the ACCESS routines to 
replace data-names and procedure-names in 
procedure statements with their dictionary 
attributes. It tells the ACCESS routines 
the name, and the ACCESS routines obtain 



the attributes from the dictionary entry 
for that name. It also uses the ACCESS 
routines to resolve qualification and the 
CORRESPONDING option. Phase 30 does not 
use "enter" or "get' ACCESS routines. 



ORGANIZATION OF THE DICTIONARY 



The dictionary is divided into sections 
of 512 bytes each. The location of a 
dictionary entry is indicated by its 
section and its displacement from the 
beginning of that section. For each 
dictionary section, table DICOT has an 
entry which gives the starting address of 
that section. 

The ACCESS routines use table HASH to 
keep track of the locations of dictionary 
entries. HASH is a hash table with 521 
entries. When a dictionary entry is made 
for a name, its section and displacement 
are entered in the HASH table entry for 
that name. When an ACCESS routine wants to 
find an entry, it determines the hash value 
of the name in order to find the HASH table 
entry for that name and obtains the section 
and displacement from the HASH table entry. 

If a name hashes to the same value as a 
previous name, the section and displacement 
for the previous name are taken from table 
HASH and placed in front of the dictionary 
entry for the new name as a dictionary 
pointer. Then the section and displacement 
of the new entry are entered in table HASH, 
and an indication is made that there were 
duplicate hash values. When an ACCESS 
routine wants to find an entry for a name 
and the HASH table indicates that there 
were duplicate hash values, it uses these 
dictionary pointers to search the 
dictionary, in reverse order, to find the 
specified name. That is, it obtains the 
section and displacement from the RASH 
table for the hash value and looks at the 
name in the indicated entry. If the names 
match, this is the correct entry, unless 
duplicate names were defined. Then the 
ACCESS routine looks at the entry with the 
section and displacement specified by the 
dictionary pointer of the last entry. This 
process continues until the names of all 
entries with duplicate hash values have 
been compared. At that time, the ACCESS 
routine has found a single unique name, a 
duplicately defined name, or no name at 
all. It issues an error indication if it 
does not find a name or if the name is 
duplicately defined. 
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Note: If a name is unique because it is 
qualified, the phases specify a range of 
dictionary entries to be searched vfhen they 
call an ACCESS routine. This is explained 
in routine LATACP. 



ACCESS ROUTINES 



ACCESS routines are available to perform 
the following functions: 



AREA FOR THE DICTIONARY 



1 . Enter attributes when given a 
data-name. 



Area for a new dictionary section can be 
obtained from the free area between the 
tables and the dictionary. 

When the outstanding available area is 
exhausted, dictionary sections are written 
on disk and the area is reused. Table 
DICOT is used to keep track of the 
dictionary sections. There is an entry for 
each section, giving the beginning address 
of the section and an indication of whether 
or not it has been written (spilled) on 
disk. For further information, see 
subroutine MOVDIC in the section "Table 
Handling with TAMER" in this appendix. 

When control passes from a smaller to a 
larger phase, any tables in danger of being 
overlaid must be moved to upper storage . 

The ACCESS routines do not restore 
registers and 1 on exit. 

In the following descriptions of the 
ACCESS routines, the format of the BCD name 
pointed to is: 



Enter attributes when given the 
dictionary pointer. 



3. Get a dictionary pointer when given 
the data-name and the length of its 
attributes. 



Enter delimiter (dictionary pointer of 
the entry that delimits a group or 
section) when given the dictionary 
pointer of the group or section. 



Locate attributes when given a 
data-name. 



Locate attributes when given a 
dictionary pointer. 

Locate attributes of next entry when 
given a dictionary pointer. 

Locate delimiter when given a 
data-name. 



No. of Bits: I 2 I 6 I n*8 



h 



Contents: 



+ 



I 00 I n 
I , I 



-I 

t name 



where n is the number of characters in the 
name. The entry starts on a word boundary 
and is a multiple of four bytes. Padding 
is done with zeros starting with the 
low-order bytes. 



9. Locate attributes when given an ACCESS 
pointer (name of an entry that is a 
subfield of the last entry referred to 
by an ACCESS routine) . 

10. Locate attributes when given a 

data-name and a dictionary pointer to 
a group of which it is a subfield. 



ENTNAM (Enter Attributes Given Name) 



INITIALISATION OF ACCESS ROUTINES 



In order to use the ACCESS routines, the 
phases must call routine INTACC to 
initialize them. INTACC primes the DICOT 
table and performs other initialization 
functions. The call to INTACC must follow 
the call to TAMEIN, the routine that 
initializes the TAMER. The calling 
sequence to INTACC is: 



Given the address of a BCD name 
(procedure-name or data-name) , routine 
ENTNAH makes a dictionary entry for ito It 
places its section and displacement in 
table HASH and also in register 1, for use 
by the calling phase as a dictionary 
pointer. The calling sequence is: 

L 1,=A (parameter) 
L 15,=A*(ENTNAM) 
BALR 14,15 



L 15, =A (INTACC) 
BALR 1U,15 



where parameter has the following format 
starting on a fullword boundary: 
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No. of 
Bytes 

Contents 



I 1 I 



h 



-4- 



1 I 
h 



I Code I Address I Count of | Address of 
I I of BCD lAttri- {Attributes 
I I Name jbutes | 



where code is for elementary items and 
paragraph-names and 4 for group items and 
section-names . 



ENTPTR (Enter Attributes Given Pointer) 



Given a dictionary pointer, that is, a 
section and displacement, routine ENTPTE 
enters a specified name and its attributes 
into the dictionary. The calling sequence 
is: 

L 1,=A (parameter) 
L 15,=A (ENTPTR) 

BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



r — 1 1 

I i 1 

II 1 3 1 1 


1 ■ ■ ■ 

1 

1 3 

1 


V 1 ■ - -I 

1 1 1 

Ml 3 1 

1 1 1 


|16|Ad- 1 Count 
1 1 dress 1 of 
1 |of lAttri- 
1 I BCD jbutes 
1 {Name | 

L. . .L. . . _ ,L. 


1 

jAd- 
1 dress 
-lof 
1 Attri- 
Ibutes 
.1. 


|0|Dic- 1 
1 1 tionary | 
1 1 Pointer! 
t 1 1 

1 1 1 

1 1 f 



GETPTR (Get Pointer) 



Given a BCD name and the length of its 
attributes, routine GETPTR determines its 
section and displacement and places this 
dictionary pointer in register 1. The 
calling sequence is: 

L 1 F =A (parameter) 
L 15,=A(GETPTB) 
BALE 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 

Bytes 

Contents 



I 1 I 



h 



-h 



j Code {Address of {Count of 
I {BCD name {Attributes 



where code is 8 for elementary items and 
paracrraph-names and 12 for group items and 
section-names . 



ENTDEL (Enter Delimiter Pointer ) 



Given a dictionary pointer for a group 
item or section-name and its delimiter 
pointer, routine ENTDEL enters the 
delimiter pointer into the dictionary entry 
for the group item or section-name. A 
delimiter pointer for a group item is the 
section and displacement of the next group 
item on the same or a lower level. A 
delimiter pointer for a section -name is the 
section and displacement of the next 
section-name. The calling sequence is: 



L 


1,= A (parameter) 


L 


15, =A (ENTDEL) 


BALR 


14,15 



where parameter has the following format 
starting on a fullword boundary : 



No. of 
Bytes 

Contents 



1{ 



i I 
Ml 



I { Dictionary j { Delimiter 
{Pointer { {Pointer 
J I I 



LATRNM (Locate Attributes Given Name) 



Given a BCD name, routine LATRNM locates 
its dictionary pointer and the starting 
address of its attributes. If the entry is 
found, the attributes • starting address is 
placed in register 2, the dictionary 
pointer is placed in register 3, and 
register 15 is set to zero. If the entry 
is not found, the contents of registers 2 
and 3 are meaningless. Register 15 
contains a 4 if the name was not found and 
an 8 if the name was duplicately defined. 
The calling sequence is: 

L 1,=A (parameter) 
L 15, =A (LATRNM) 

BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



1 I 
HI 
h-f- 



{0 I Address of BCD Name 
I I 



Appendix A. Table and Dictionary Handling 423 



Licensed Material - Property of IBM 



LATBPT (Locate Attributes Given Pointer) 



Given a dictionary pointer for an entry ^ 
routine LATRPT locates the starting address 
of its attributes and places it in register 
2. The calling sequence is: 

L 1 ,=A (parameter) 
L 15^=A (LATRPT) 
BALR 14^15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 



I I 
Ml 



Contents |4 jDictionary Pointer | 



If the unique name located was a 
paragraph-name or elementary item 
name, register 15 is set to 12. 
Registers 2 and 3 are set as above. 



If the name is not found, register 15 
is set to 4. Registers 2 and 3 
contain meaningless information. 

If the name is duplicately defined, 
register 15 is set to 8. Registers 2 
and 3 contain meaningless information. 



The calling sequence is: 

L 1,=A (parameter) 
L 15,=A (LDELNM) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



LOCNXT (Locate Next Entry) 



Given the dictionary pointer of an 
entry, rou-tine LOCNXT locates the next 
entry. In register 2, it places the 
starting address of the next entry's 
attributes. In register 1 , it places the 
dictionary pointer of the next entry. In 
register 3, it places the starting address 
of the BCD name of the next entry. The 
calling sequence is: 

L 1,=A (parameter) 
L 15, =A (LOCNXT) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 

Bytes 



I I 
HI 



Contents |0 IDictionary Pointer | 



LDELNM (Locate Delimiter Given Name) 



Given the BCD name of a group item or a 
section, LDELNM locates its delimiter. It 
places the starting address of the given 
name's attributes in register 2. It places 
the dictionary pointer of the data-name in 
register 3. It places the delimiter 
pointer in register 1. It sets register 15 
to zero. 

If an error is detected, one of the 
following codes is placed in register 15. 




No. of 

Bytes 

Contents 



LATACP (Locate Attributes Using ACCESS 
Pointer) 



Given the BCD name of an entry that is a 
subfield of the last entry referred to by 
an ACCESS routine, routine LATACP puts the 
starting address of the attributes in 
register 2 and the dictionary pointer in 
register 3. Register 15 is set to zero. 
(This routine is used to locate qualified 
names. It limits the search of the 
dictionary.) 

If an error is detected, a code is 
placed in register 15: the code is 4 if 
the name was not found, 8 if the name was 
duplicately defined, and 12 if the last 
entry referred to was an elementary item. 
Registers 2 and 3 contain meaningless 
information. The calling sequence is: 

L 1,= A (parameter) 
L 15, =A (LATACP) 

BALR 14^15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 

Bytes 

Contents 



I I 
HI 



|0 I Address of BCD Name J 
ji I 
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Note : There must have been no call to a 
TAMER routine intervening between routine 
LATACP and the last call to an ACCESS 
routine. 



LA T GRP (Locate Attributes Given Grou p 
Pointer) 



TIB (Table Information Block) 



For each table, there is a TIB in a 
fixed location. A TIB may be reassigned 
when the table for which it was used is 
released. The TIB points to another 
control field for that table — the TAMM 
(see below) . Each TIB has the following 
format: 



Given the BCD name of an entry and the 
dictionary pointer of the group item or 
section-name of which it is a subfield, 
routine LATGRP puts the starting address of 
the entry's attributes in register 2 and 
the dictionary pointer of the entry in 
register 3. It sets register 15 to zero. 



If an error occurs, it places a code in 
register 15: the code is 4 if the name was 
not found, 8 if the name was duplicately 
defined, and 12 if the given dictionary 
pointer pointed to an elementary item or 
paragraph-name. Registers 2 and 3 contain 
meaningless information. The calling 
sequence is: 

L 1 ,=A (parameter) 
L 15, = A (LATGRP) 

BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



I I 

II I 



I I 

|1| 



KH 

I 12| Address|0|Group or Section 
I I of BCD I I Dictionary Pointer 
I I Name | | 



No. of 
Bvtes 



I 



-+- 



Contents | Entry |TAMM | Table | Growth 
I Length j Address | Length | Factor 
I I I I 



Entry Length 

number of bytes in a table entry. 

TAMM Address 

address of the TAMM for the table. 

Table Length 

number of bytes requested for the 
table (used by the PRIME routine) . 

'Growth Factor 

not used; a table is always increased 
256 bytes at a time. 



n TAMM (Table Area Mancfement Map) 



For each table there is a TAMM in a 
variable location within a fixed block (the 
TAMM block) . Each TAMM points to a table 
and to the TIB for the table. The format 
of a TAMM is: 



TABLE HANDLING WITH TAKER 



TAMER (Table Area Management Executive 
Routines) resides permanently in storage as 
part of phase 00 and is available to ail 
phases to handle tables. 



CONTROL FIELDS 



No. of 
Bytes 

Contents 



1 



I 



-T 1 1 

I I i 

! 21 21 4 
H h— 4- 



1 

I S tatus I Table | N 1 1 N 2 | TIB 

I Address I | | Address 
I I I I 



Status 

code indicating the status of the 
table: 

Code Meaning 

01 Indicates that the table has 
been released so that its 
area is available as free 
area. 



The three control fields described below 
are set up and used by the TAMER routines 
as aids in the handling of tables. 



02 



Indicates that the table has 
been set static so that no 
further entries will be made. 
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04 Indicates that the table has 
been primed so that entries 
can be made. 



Table Address 

address of the first byte of the 
table. 



N1: 



If Status Is _ 
01 



Nils 



{Beginning of area 



I 

(Length of area 



I 

I First free byte not used so far 



I 

(Length of free area left over 



I 

[First TAMM used 



I 

{Next TAMM to be used 



I 

I Number of dictionary sections within the 
I area 



02 or 04 



Number of bytes used so 
far 



HOW SPACE IS ASSIGNED 



N2: 



If Status Is N2 Is 

01 Length of the freed area 



02 



04 



Number of unused bytes 
in the table 



Number of bytes assigned 
to the table 



TIB Address 

address of the TIB for the table. 



Note: Since the N1 field is two bytes 
long^ the maximum length of any table 
handled by TAMEP is limited both by the 
amount of storage available to the 
programmer and by the maximum size that can 
be described in two bytes, or 32K-1 
(32,767) bytes. If either limit is 
exceeded, compilation will terminate and an 
error message will be issued. This 
limitation does not apply to the 
dictionary, which uses SYS 001 as a spill 
file, or to the RLDTBL table in phase 60, 
or to the CNTLTBL, DATATBL, and OFLOTBL 
tables in phase 61 which are not built by 
TAMER and hence are limited only by the 
size of storage available. 



MASTAM (Master TAMM Table) 



The MASTAM contains the characteristics 
of the area in storage assigned to TAMER. 
The MASTAM has the following format: 



At the beginning of compilation, the 
space between the end of the largest phase 
and the beginning of the buffer area is 
defined as the main area of storage for 
TAMER. The MASTAM is set up for the area. 
If more space is needed later on, COBOL 
space is allocated (COBOL space is the 
difference in length between the longest 
phase and the current phase) . 

If the next phase to process is larger 
than the current phase, the tables which 
are to be passed between phases are packed 
and moved so that none of them are overlaid 
by the current phase. 

Within the TAMER area, the tables start 
in lowest storage and the dictionary starts 
in highest storage. The TAMMs are assigned 
contiguously within the TAMM block, and 
their order reflects the storage order of 
the tables to which they point. 



TAMEIN Routine 



TAMEIN is the TAMER initialization 
routine. It is called during phase 00 
before linking to phase 30. It is also 
called by Phase 01 (for BASIS or COPY) or 
Phase 10. Its operations are as follows: 



Phase 01 
or 10: 



Called before any other TAMER 
routine. Sets up the first 
MASTAM for the table area 
reguested at the beginning of 
compilation. Sets up a TAMM and 
TIB for the HASH table (see 
"ACCESS Dictionary Handling 
Routines" at the beginning of 
this appendix) . 



Phase 00: Before phase 30^ if the 

dictionary was not spilled (that 
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is, if no dictionary sections 
were written on an external 
device) , no action is taken. If 
the dictionary spilled , TAKETN 
calls TBGETSPC which tries to get 
more space for dictionary 
sections. If space is available r 
TBREADIC is called to read back 
as many sections as possible. 

The calling secruence for TAMEIN is: 

L 15,=A(TAMEIN) 

BALE 14,15 



where PARAM has the following format, 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



1 



I 



I 2 



1 f 

Entry |TIB |Reguested | Growth | 
Length I Address I Size | Factor | 
I I I I 



TBGETSPC Routine 



PRIME Routine 



Routine PRIME allocates space to the 
table named in the calling seguence. The 
following steps are taken in seguence until 
the reguired space is found: 

1 . A check is made for the reguired area 
in the remaining space of the main 
area. 

2. A check is made for the reguired area 
in the space made available because of 
the release of tables by TAMER — 
called freed area. 

3. An attempt is made to pack the tables 
(eliminating the free bytes between 
the primed and static tables) to make 
the main area larger. 

4. A reguest is made for COBOL space. 

5. The primed tables are packed; that is, 
all of the unused area minus the 
length of one more entry for each 
table is considered available. 



Routine TBGETSPC is called by routine 
PRIME to obtain COBOL space. The area 
between the current starting table address 
and the end of the current phase is made 
available to TAMER routines. 



MOVDIC Routine 



Routine MOVDIC reads back into storage a 
dictionary section which has been spilled. 
First, MOVDIC calls the PRIME routine to 
make space available for the section and, 
then, reads the section back into the space 
made available. 

The calling seguence for MOVDIC is: 

L 15, =A (MOVDIC) 

L 3,=A(DIC0T table entry) 

BALR 14,15 



DICSPC Routine 



6 . An attempt is made to spill a 

dictionary section (write it on an 
external device) . For steps 5 and 6, 
table space is assigned only on a 
single-entry basis. 

If none of these methods is successful, 
compilation cannot continue. If space is 
found, a TAMM is created for the new table 
(or is just updated in the case of success 
in step 2) • 

The PRIME routine can also be called 
internally by other routines just to find 
space. In this case, a TAMM is not created 
and the calling routine takes whatever 
action is necessary. 

The calling sequence for PRIME is: 



L 
L 
BALR 



1,=A (PARAM) 
15, =A (PRIME) 
14,15 



Routine DICSPC is called only by an 
ACCESS routine, and requests space for a 
dictionary section. The space is provided 
by an internal call to routine PRIME. 
Routine PRIME returns the starting address 
of the section in Register 1 and the ending 
address in Register 2. 

The calling seguence for DICSPC is: 

L 15, =A (DICSPC) 

BALR 14,15 



STATIC Routine 



Routine STATIC sets a table static. 
This means that no new entries will be made 
in the table during the rest of the phase. 
It sets the TAMM for the table to static 
format, that is, to the form: 
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No. of 

Bytes 

Contents 



1! 
4- 



I 02 I Table lUsed |Free 
I Address | Bytes | Bytes | 
_j I I 



The calling sequence to routine STATIC 



Note: If a table contains variable-length 
entries, the entry length specified in the 
TIB must be changed before a phase calls 
routine INSERT. Alternatively, the current 
entry length can be placed in register 
and the entry length field of the TIB set 
to 0. When this is done, the number of 
bytes currently occupied by table entries 
is returned to the phase in register 3. 



L 1,=A(TIB) 

L 15, =A (STATIC) 

BALE ia,15 



TABREL Routine 



Routine TABREL releases a table when it 
is no longer needed so that its area can be 
used as free area. It sets the TAMM for 
the table to released format, as follows: 



TAMEOP Routine 



Routine TAMEOP is called at the end of 
every phase to reset TAMER switches. It 
also handles the passing of tables between 
phases. 

The calling seguence for TAMEOP is: 

L 15, =A (TAMEOP) 

BALR 14,15 



No. of 
Bytes 

Contents 



11 



01 1 Table 
I Address 



L_ 



Released 
Bytes 



J 



The table address field is set to zero. 
Both the TAMM and the TIB for the released 
table can now be used for another table in 
a call to routine PRIME. 

The calling seguence for routine TABREL 



L 


1,=A (TIB) 


L 


15, =A (TABREL) 


BALR 


14,15 



TBSPILL Routine 



Routine TBSPILL is called by routine 
PRIME, checks for the last dictionary 
section (the section in highest storage) , 
and calls routine TBWRITE to spill it in 
order to provide additional storage for 
tables. If the section in highest storage 
is currently being built, the next-to-last 
one will be spilled. 

After the dictionary section is spilled, 
the TBSPILL routine moves the first section 
(the section in lowest storage and, 
therefore, closest to the tables) to the 
area just freed. 



INSERT Routine 



TBWRITE Routine 



Routine INSERT provides for inserting an 
entry into a table. It adjusts the 
displacement field of the TAMM for the 
table and returns to the phase the starting 
address (in register 2) and the 
displacement (in register 3) of the entry. 

If the area allocated to the table will 
not hold the entry, routine INSERT calls 
the PRIME routine to obtain additional 
space. 

The phases call routine INSERT with the 
following calling seguence: 



5ALR 



1,=A(TIB) 
15, =A (INSERT) 
14,15 



Routine TBWRITE is called by routine 
TBSPILL to spill dictionary sections by 
writing them on an external device, the 
TBWRITE routine uses the DICOT table to 
check and indicate the status of dictionary 
sections (see "ACCESS Dictionary Handling 
Routines" in this appendix) . 

If a section has never been spilled, 
routine TBWRITE spills it by issuing the 
WRITE macro instruction. If a section has 
been spilled before, but has been changed 
since then, routine TBWRITE issues the 
POINTW macro instruction followed by WRITE 
to put the fresh copy on the external 
device. If a section has been spilled and 
has not been changed since then (that is, 
an exact copy already exists on an external 
device) , it is not spilled again. 
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TEREADIC Routine 



Routine TBREADIC is called by routine 
MOVDIC to read a dictionary section back 
into storage. 



GETALL Routine 



Routine GETALL i 
phases and phases 6 
is to provide space 
be in excess of 32K 
maximuin size- This 
available table spa 
This request may be 
current tables have 
tables are packed. 



s called by the Lister 

and 61« Its function 
for a table which may 
bytes, the normal 
routine requests all 

ce in a contiguous area, 
made only when all 
been set static. The 

and GETALL passes the 



starting address and length of the 
remaining table area back to the calling 
phase in registers and 1, respectively. 

All subsequent use of that area is 
handled internally by the phase which 
called routine GETALL, since a call to the 
TABREL routine is the only TAMER call which 
may legitimately follow a call to GETALL in 
the same phase. At the end of the phase 
which called routine GETALL, the area then 
becomes available for normal phase 00 
table-handling procedures- 

In the event that additional space is 
needed after some tables have been 
released, a second call to the GETALL 
routine is issued. TAMER then packs the 
tables again and uses the additional space 
obtained to expand the original GETALL 
area. 
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APPENDIX B: OBJECT MODULE 



This appendix describes the object 
module produced by the compiler for input 
to the linkage editor. The fields in the 
object module are shown in Figure 73 as 
they appear after linkage editing. The 
fields are discussed in separate sections 
as they appear in this figure. 



INITl 



WORKING- STORAGE 



DTFs and BUFFERS 



TGT 



PGT 



LITERALS 



REPORT WRITER 



PROCEDURE DIVISION 
(for sections whose priority is less 
than segment limit) 



Q-R0UTINE3 



COUNT TABLE 



INIT2 



INIT3 



FLOW TRACE TABLE 



PROCTAB 



SEGINDX 



h 



TRANSIENT AREA 
(coding for sections whose priority is 
greater than segment limit and do not 
reside in storage throughout the entire 
execution of the program; used only for 
segmented programs) 

L 

Figure 7 3- Storage Map of Object Module 
Fields 



INITIALIZATION 1 ROUTINE (INITl) 



The Initialization 1 routine begins at 
relative location zero and is constant in 
length for every compilation. It performs 
the following: 



1. Saves the calling program registers 
and the pointer to its Task Global 
Table or save area. 

2. Sets up address constants for this 
program's Task Global Table, Program 
Global Table, first instruction to be 
executed, and Initialization 1, 2, and 
3 routines- 

3o Branches to INIT2 if it is a 

subprogram, or to INIT3 if it is a 
main program. 

4. Passes the address of the transient 
area to INIT2 in a segmented program. 

5. Contains a save area so that the 
program can be reset to the state it 
was left in upon re-entry. 

6. Branches to ILBVOCO COBOL Library 
Subroutine to initialize for 
input/output verbs with VSAM files. 

The code generated by INITl is shown in 
Figure 74. The same block of code at the 
end of the object module differs in that 
the relative addressing of the object 
module is here shown in a symbolic manner. 

WORKING- STORAGE 



This area contains reserved storage for 
the Working-Storage Section of the Data 
Division. The data items for which VALUE 
clauses were specified have been 
initialized. 

DTF'S AND BUFFERS 



This area contains data areas from the 
Data Division, including SDTFs, DTFs , 
record areas, and buffers- Buffers for the 
SORT SDs may be intermixed with DTFs. 

TASK GLOBAL TABLE (TGT) 



The TGT is used to record and save 
information needed during the execution of 
the object program. It consists of a fixed 
and a variable portion. In the fixed 
portion are those fields for which space is 
allocated for every object program. The 
variable portion is tailored to a 
particular object program. The fields in 
the TGT are shown in Figure 75 and are 
described in alphabetical order following 
the table. 
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Hexadecimal 






location 


INITl 


EALR 




0000 


15,0 






BCR 


0,0 






STM 


0,14, SAVEPl 






BC 


15, TRANOOO 


OOOC 


SAVEPl 


DS 


30F 




TRANOOO 


L 


12^ADCON003 






L 


14^=V(ILBDMNS0) 






L 


13;,ADCON004 






CLI 


0(14), 






BC 


7, TRANOOl 






01 


SWITCH, X' 10' 






FVl 


0(14) ,X'FF' 






BC 


15„;TRAN002 


00A4 


TRANOOl 


LM 


12,14,SAVEPl+48 






STM 


14„12, 12(13) 






LR 


5,13 


OOAE 


TRAN002 


LM 


9,15,ADC0N000 






TM 


SWITCH, X' 10' 






BCR 


1,9 






ECR 


15,15 






BCR 


0,0 


OOBC 


ADCONOOO 


DC 


A(INIT3) 




ADCONOOl 


DC 


A(INITl) 




ADCOTS1002 


DC 
or 


A (INITl) 






DC 


A(SEGiy!T) 




ADCON003 


DC 


A(PGT) 




ADCONOOU 


DC 


A(TGT) 




ADCON005 


DC 


A (START) 




ADCON006 


DC 


A(INIT2) 


00D8 




DC 
or 


X''C3D6C2C6' 






DC 


X''CBD6C2D6'' 


OODC 




DC 


XTOFOFOFO" 


OOEO 




DC 


X'NNNNNNNN" 






DC 


A(BLL2) 






or 








DC 


X'OOOO' 






DC 


X«F9F961F9F961F 






DC 


X'F1F242F5F942F 



Save Registers 

Register Save areas for entry 

and exit 

Load with address of PGT 

Get address of byte MAIN. SUB 

SWITCH 

Load with address of TGT 

Not a main program 
Set main program switch 
(Displacement is 48 (hex) 
from, start of TGT) 



For Subroutine; again save 
registers to comply with 
standard linkage convention 



For main bypass saving of 13 



If program is segmented 



COBF compiling program-nam.e 

COBOL compiling program-naire 

if compiled with OPT 

Version number, level of 

modification number 

Program-id name 

Address of BLL2 if program 

has Linkage Section 

If program has no Linkage 

Section 

Date of compilation 
F9« 

Time of compilation start 



Figure 74. INITl Coding 
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r 


T - 1 


[Relative 


Address 




1 (Hex) 
1 


(Dec) 


Field 1 

L J 


r 


-——'——^-——- 




1 





SAVE AREA 1 


1 ^s 


72 


SWITCH 1 


1 4C 


76 


TALLY 1 


1 50 


80 


SORT SAVE 1 


1 54 


84 


ENTRY- SAVE | 


1 58 


88 


SORT CORE SIZE j 


1 5C 


92 


NSTD-REELS \ 


1 5E 


94 


SORT RET 1 


1 60 


96 


WORKING CELLS j 


1 190 


400 


SORT FILE SIZE j 


1 194 


404 


SORT MODE SIZE | 


1 198 


408 


PGT-VN TBL I 


1 19C 


412 


TGT-VN TBL | 


1 lAO 


416 


SORTAB ADDRESS | 


1 1A4 


420 


LENGTH OF VN TBL | 


1 1A6 


422 


LENGTH OF SORTAB j 


1 1A8 


424 


PGM ID 1 


1 IBO 


432 


A(INITl) 1 


1 IB 4 


436 


UPSI SWITCHES 1 


1 IBC 


444 


DEBUG TABLE PTR j 


1 ICO 


448 


CURRENT PRIORITY | 


1 ICl 


449 


TA LENGTH j 


1 1C4 


452 


PROCEDURE BLOCKl PTR | 


1 1C8 


456 


Unused j 


1 ICC 


460 


COUNT TABLE ADDRESS j 


1 IDO 


464 


VSAM SAVE AREA | 


1 ID 4 


468 


Unused | 


1 IDC 


476 


COUNT CHAIN ADDRESS j 


1 lEO 


480 


Reserved | 


1 IF 4 

L 


500 


OVERFLOW CELLS j 
BL CELLS 1 
DTFADR CELLS j 
FIB 1 
TEMP STORAGE j 
TEMP STORAGE- 2 | 
TEMP STORAGE- 3 | 
TEMP STORAGE- 4 j 
BLL CELLS \ 
VLC CELLS 1 
SBL CELLS 1 
INDEX CELLS j 
SUBADR CELLS j 
ONCTL CELLS j 
PFMCTL CELLS | 
PFMSAV CELLS | 
VN CELLS 1 
SAVE AREA = 2 j 
XSASW CELLS | 
XSA CELLS 1 
PARAM CELLS | 
RPTSAV AREA | 
CHECKPT CTR j 
lOPTR CELLS 1 
DEBUG TABLE ) 
J 


r 






1 Note : Tl: 


le portic 
^LOW CEL] 


DTL of the TGT following | 


|the OVERI 


[jS consists of j 


jvariable- 

L 


-length 1 


fields. 1 

1 


Figure 75. 


TGT F; 


lelds 



BL CELLS 

Base locators- These are fullwords 
containing the addresses of data 
areas in object module field DATA. 
Phases 22 and 21 assign a hase 
locator to each block of 4 096 bytes 
in the Working-Storage Section and to 
each file in the File Section. 



BLL CELLS 

Base locators for Linkage Section. 
These are fullwords containing the 
addresses of areas passed as a result 
of ENTRY statements, label records, 
or the GIVING option in USE... ERROR 
clauses. 



CHECKPT CTR 

Four-byte counters used to coiint the 
numbers of records processed for 
files for which checkpoints are to be 
taken. 



COUNT CHAIN ADDRESS 

Address of the COUNT CHAIN for this 
program. The address is initialized 
to zero if COUNT is specified; the 
address is filled in at execution 
time. 



COUNT TABLE ADDRESS 

Relative address of the COUNT table 
from the beginning of the TGT. The 
COUNT table, which is generated by 
phase 60 or phase 64 if COUNT is 
specified, is located between the 
Q-routines, if any, and the INIT2 
routine. The count table is used 
only when the program terminates. 



CURRENT PRIORITY 

Priority of the segment currently in 
the transient area. If the STATE or 
SYMDMP option is specified, the 
segmentation subroutine (ILBDSEMO) 
inserts the priority in this cell. 
It is initialized to by phase 65. 

DEBUG TABLE 

This table is used by the SYMDMP 
(ILBDMP10-ILBDMP25), FLOW (ILBDFLWO) , 
and STATE (ILBDSTNO) COBOL library 
subroutines. It is built by phase 
65; the format depends on the options 
specified. (See Figure 76: Debug 
Table Formats) 

DEBUG TABLE PTR 

A fullword containing the 
displacement from the beginning of 
the TGT to the DEBUG TABLE field if 
SYMDMP, STATE, or FLOW option was 
specified. 
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DTFADR CELLS 

DTF address. There is one fullword 
containing the address in the object 
module of each DTF used by the object 
module. 



ENTRY -SAVE 

A 4-byte cell used to save the entry 
point of the object program during 
INIT2 and INIT3 execution. 



FIB 

File Information Block addresses. 
There is one fullword cell pointing 
to the address of the FIB for each 
VSAM file. At initialization time, 
it is changed to contain the address 
of the FIB for that file. 

INDEX CELLS 

Index-name cells for each index name 
in the program. 
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I Options 
I- 



j Length j Byte | 



Contents 



-+- 



If FLOW is 
specified: 




1-3 



Number of traces requested. 

Address of table area to be used by FLOW subroutine- 



H 



If FLOW and 
STATE are 
specified: 



24 




1-3 

4-7 
8-11 

12-15 
16-19 
20-23 



Number of traces requested- 
Address of table area to be used by FLOW subroutine- 
Address of beginning of Q-routines, or if none, INIT2, 
Size of Declaratives Section within Procedure 
Di vision- 

Address of beginning of PROCTAB in object module. 
Address of beginning of SEGINDX in object module. 
Address of end of SEGINDX. 



If FLOW and 
SYMDMP are 
specified: 



10 



0-7 
8-9 



The same as shown for bytes 0-7 for FLOW and STATE- 
Hashed compilation indicator. See "PROGSUM Table" in 
"Section 5. Data Areas." 



If STATE is 
specified: 



20 



0-19 



The same as shown for bytes 4-23 for FLOW and STATE. 



If SYMDNP 
only is 
specified: 



10 



0-3 

4-7 

8-9 



Unused. 

Address of the beginning of Q-routines or, if none, 

INIT2. 

Hashed compilation indicator. See "PROGSUN Table" in 

"Section 5. Data Areas." 



.-L 

Formiats 



Figure 76. Debug Table 



A(INITI) 

Address of INITl for GOBACK, STOP 
RUN, and EXIT PROGRAM instructions, 
and for segmented coding. 



lOPTR CELLS 

Four-byte cells used when SAME RECORD 
AREA clause is specified. 



PARAM CELLS 

Parameter area, consisting of 
fullwords. It contains parameter 
lists for certain verb expansions in 
the source program. The size of the 
parameter area is equal to the largest 
number of words required for any one 
verb"s uses. 



LENGTH OF SORTAB 

A halfword,; reserved but not presently 
being used- 



LENGTH OF VN TBL 

Two-byte field containing the length 
of the VNs for the independent 
segment. 

NSTD-REELS 

One-byte field for nonstandard labeled 
reels. 



ONCTL CELLS 

ON control counters. These are 
fullwords that control the execution 
of ON statements. They are 
initialized to zero. There is one 
ONCTL. for each ON statement in the 
program. 

OVERFLOW CELLS 

One pointer to each 4096-byte section 
after the first in the TGT, if 
necessary. 



PFMCTL CELLS 

Control counters for PERFORM 
statements. PFMCTL cells are 
fullwords that control the execution 
of PERFORM n TIMES Statements. There 
is one PFMCTL cell for each PERFORM n 
TIMES statement in the program. 

PFMSAV CELLS 

Saved locations for PERFORM and DEBUG 
statements. These are fullwords that 
contain addresses which enable the 
source program logic to execute 
in-line a paragraph that is also the 
object of a PERFORM statement- There 
is one PFMSAV cell for each PERFORM 
statement in the in-line procedure. 
In addition, there is one full word to 
hold the contents of register 14 upon 
entering a debug packet. Debug 
packets are called by BALR 14,15. 

PGM ID 

An 8 -character root segment name. It 
is used by the COBOL library 
subroutine ILBDSEMO to generate names 
of nonresident segments. 
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PGT-VN TBL 

A f ullword pointer to the VN cells in 
the PGT belonging to independent 
segment. 



PROCEDURE BLOCKl PTR 

A fullword containing the address of 
the first PROCEDURE BLOCK CELL in the 
PGT. 



RPTSAV AREA 

Six words used to save branch 
addresses during the execution of 
Report Writer routines, if necessary. 



SAVE AREA 

Save area for the program. 



SAVE AREA=2 

Save area pointer provided for label- 
and error- processing declaratives. 

SBL CELLS 

Secondary base locators. These are 
fullwords, set by the execution of a 
Q-routine^ each containing the address 
of a field that has a variable 
location because it follows a 
variable-length field. 

SORT CORE SIZE 

Four bytes containing the 
SORT-CORE-SIZE special register as 
specified in the source program. 

SORT FILE SIZE 

Four bytes containing the 
SORT-FILE-SIZE special register as 
specified in the source program. 

SORT MODE SIZE 

Four bytes containing the SORT-MODE 
SIZE special register as specified in 
the source program. 

SORT RET 

A halfword containing the return code 
from a SORT or MERGE operation. 

SORT SAVE 

A fullword used to save a GN cell 
during the execution of a SORT or 
MERGE RETURN Statement. 

SORTAB ADDRESS 

A fullword^ reserved but not currently 
used. 

SUBADR CELLS 

Subscript addresses. These are 
fullwords each containing the address 
calculated from a subscripted 
reference- They are filled in at 
execution time, not written as text. 



SWITCH 

A fullword switch, 
bits are used. 



Only the following 



Bit 




10 



11 



15 



20 
23 



24-31 



Meaning 

Set to 1 if SIZE ERROR for ADD 
and SUBTRACT CORRESPONDING 

Set to 1 for TRACE READY; set to 
for RESET TRACE 

Set to 1 when initialization is 
performed for the program 

Set to 1 if the program is a main 
program; set to if it is a 
subprogram 

Used for SYMDMP. It is set to 1 
by phase 65 if the SYMDMP 
option is in effect for the 
program. This bit is tested by 
the COBOL library Debug Control 
subroutine (ILBDDEGO) . 

Used for FLOW. It is set to 1 by 
phase 65 if the flow trace 
option is in effect for the 
program. This bit is tested by 
COBOL library Debug Control 
subroutine (ILBDDBGO) . 

Used for STATE. It is set to 1 
by phase 6 5 if the statement 
number option is in effect for 
the program. This bit is 
tested by the COBOL library 
Debug Control subroutine 
(ILBDDBGO) . 

Used for OPT. Set to 1 by phase 
62 if optimization has been 
requested for this program- 
This bit is tested by the COBOL 
library SORT subroutine 
(ILBDSRTO) . 

Used by IBM DOS Subset American 
National Standard COBOL 
compiler. It is set to 1 in a 
suDset compilation to 
differentiate between full and 
subset COBOL object programs. 

Used for segmentation. Set to 1 
by the IBM DOS Subset American 
National Standard COBOL 
compiler if there is 
segmentation in this program. 

Used for SORT. Set to for V3 
or to 1 for VS. 

Set to 1 if OCCURS. ..DEPENDING ON 
maximum length is to be 
calculated. Set to if 
OCCURS... DEPENDING ON actual 
length is to be calculated. 

COUNT switch 

Used by ILBDSRTO and ILBDCKPO. 
Set to 1 on entry to ILBDSRTO; 
set to if checkpoint restart 
occurs. 

DECIMAL-POINT IS COMMA 
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lA LENGTH 

A half word initialized by phase 6 to 
the length of the largest segment with 
a nonzero priority. 



TALLY 



A fullword for source program 
reference to the TALLY special 
register- 



TEMP STORAGE 

Variable-length cells analogous to 
WORKING"CELLS but used by arithmetic 
procedure instructions.. Each must 
start on a doubleword boundary. They 
are allocated by phase 50 in blocks of 
8 bytes. 

TEMP STORAGE- 2 

Variable-length cells analogous to 
WORKING CELLS but used by 
nonarithmetic procedure instructions. 

TEMP STORAGE- 3 

These cells are the same as TEMPORARY 
STORAGE-2, but used for SYNCHRONIZED 
clause handling. They start on a 
doubleword boundary. 

TEMP STORAGE- i| 

These cells are the same as TEMPORARY 
STORAGE- 2, but used for table 
handling. They start on a doubleword 
boundary. 

TGT-VN TBL 

A fullword pointer to VN cells in the 
TGT belonging to the independent 
segment. 

UPSI SWITCHES 

User Program Switch Indicators. This 
is an 8-byte field containing switches 
that can be tested by a problem 
program. 

VLC CELLS 

Variable-length cells. These are 
half words t set by the execution of a 
Q-routine, each containing the current 
length of a variable-length field. 
There is one VLC for each 
variable-length field. 

VN CELLS 

Variable procedure-names. There is 
one fullword VN containing the current 
address of each procedure-name in the 
object module field PROCEDURE that is 
altered by an ALTER statement or is 
the procedure-name of a paragraph that 
follows a paragraph (or a series of 
paragraphs) which is in the range of a 
PERFORM Statement. 

VSAM SAVE AREA 

Fullword pointer to the save area used 



by the VSAM COBOL Library Subroutines 
(ILBDVOCO and ILBDVIOO) . 

WORKING CELLS 

Variable-length cells used by COBOL 
library subroutines called by the 
generated code. The total length of 
the field is 304 bytes. 

XSA CELLS 

EXHIBIT saved areas. These are 
variable in length and are referred to 
in the coding generated for an EXHIBIT 
statement with a CHANGED option. 
There is one XSA for each operand to 
be exhibited with a CHANGED option in 
the in-line procedure. These areas 
are also used for SORT and RELEASE 
verbs. 

XSASW CELLS 

One-byte EXHIBIT switches „ These are 
used as first-time switches for the 
coding generated for the EXHIBIT 
CHANGED statement. They are also used 
in miscellaneous cases of SORT 
statements and special cases of ON 
statements. 



PROGRAM GLOBAL TABLE (PGT) 



The Program Global Table contains 
address constants and literals referred to 
by procedure instructions. The fields are 
shown in Figure 77- 



DEBUG LINKAGE AREA 
COUNT LINKAGE AREA 
OVERFLOW CELLS 
VIRTUAL CELLS 
PROCEDURE NAME CELLS 
GENERATED NAME CELLS 
SUBDTF ADDRESS CELLS 
VNI CELLS 
LITERALS 

DISPLAY LITERALS 
PROCEDURE BLOCK CELLS 

Figure 77. PGT Fields 

DEBUG LINKAGE AREA 

Eight-byte area which contains the 
linkage for dynamic dumps. The area 
contains the following code: 

L 11,=V(ILBDDBG5) 

BR 11 

(2 slack bytes) 

If the SYMDMP option is not specified, 
this 8-byte area does not exist. 

COUNT LINKAGE AREA 

Eight-byte area which contains the 
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linkage to the COUNT routine. If the 
COUNT option is not specified, this 
8-byte area does not exist. The area 
contains the following code: 



L 15,=V(ILBDC710) 
BR 15 
DC IH'O' 

OVERFLOW CELLS 

One pointer to each 4096-byte section 
after the first in the Program Global 
Table. 



VNI CELLS 

Variable procedure-naitie initialization 
cells- There is one VN for each 
variable procedure-name. It contains 
the initial address and is used to 
initialize the VN locations in the 
Task Global Table. 

LITERALS 

Literals that are referred to by 
instructions. Duplicate literals are 
deleted during phase 60 or 62 
processing. The literals are variable 
in length. 



VIRTUAL CELLS 

A virtual is a fullword containing the 
address of each unique external 
procedure (the result of an ESD and 
RLD in the object module). It is 
required because of a CALL statement 
to the external procedure or a branch 
to a COBOL library subroutine. 

PROCEDURE NAME CELLS 

Source procedure-names. Each PN cell 
is a fullword containing the address 
of an instruction. It corresponds to 
the procedure-name in the source 
program, except that a source program 
procedure-name which is not referenced 
is not assigned a PN. When OPT has 
been specified on the CBL card, only 
those PNs associated with ALTER and 
DECLARATIVES references receive PN 
cells. 

GENERATED NAME CELLS 

Compiler generated procedure-names. 
Each GN cell is a fullword containing 
the address of an instruction. The 
compiler assigns a GN wherever 
necessary in order to branch around 
generated code statements. When OPT 
has, been specified on the CBL card, 
only those GNs associated with AT END 
and INVALID KEY receive GN cells. 



DISPLAY LITERALS 

Literals that are referred to by 
calling sequences, rather than by 
instructions- Duplicate literals are 
deleted during phase 60 or 62 
processing- The literals are variable 
in length. 

PROCEDURE BLOCK CELLS 

Each cell is a fullword containing the 
address of a Procedure Block. The 
compiler assigns these cells when OPT 
is specified. 



REPORT WRITER 



See "Appendix C: Report Writer 
Subprogram. " 



PROCEDURE DIVISION 



This area contains the generated code 
for the Procedure Division of the source 
program. If the program is segmented, the 
root segment is loaded here (see "Transient 
Area" in this appendix) . 



SUBDTF ADDRESS CELLS 

SDTF addresses. Each SDTFADR is a 
fullword containing the address of an 
SDTF in the "DTFs and BUFFERS" field 
of the Object Module. There is one 
SDTFADR cell for each SDTF generated 
by the compiler. 



Q-ROUTINES 



Q-routines are special routines 
generated for data items described by the 

OCCURS DEPENDING ON option. The function 

of these routines is to update the length 



1 INIT2 


ST 


13,008(0,5) 




ST 


5,004(0,13) 




L 


2,=V(ILBDMNS0) 




CLI 


0(2),X'00' 




BCR 


7,9 




MVI 


0(2),X"FF' 


1 


01 


SWITCH, X"10' 



For subroutine only; chain 

save area of called and calling programs. 

In case program was entered 

from a secondary entry point, 

check whether it is a main 

or a subprogram. 



Figure 78. INIT2 Coding 
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of the variable-length data item when that 
length changes and to update the location 
of the field which follows it. The actual 
output of a Q-routine is a new value in the 
appropriate VLC cell of the TGT and the 
corresponding SBL cell (see the description 
of the TGT in this chapter for the meaning 
of these cells) . 



non-executable verbs. 
*7 If byte contains 02, the 

verb number (PL-code) 

or 

*7 to n+1 If byte contains 01, the 

EBCDIC name of the procedure 



The Q-routine only updates the pointers; 
it does not change the contents of the data 
area involved. For this reason, if the 

OCCURS DEPENDING ON area is followed by 

another field within the same 01-level item 
and if the OCCURS. . .DEPENDING ON area 
becomes longer, the information that had 
immediately followed the area before it 
changed is now no longer accessible. The 
pointer to it in the SBL has been moved. 
The source programmer can avoid a loss of 
data by moving it out of the SBL field 
before any change in the value of the 
DEPENDING ON object and moving it back 
after the change. This problem does not 
arise between one 01-level item and the 
next, because each 01 field of data is 
allocated enough space for the maximum 
number of occurrences. 

The generating of Q-routines is 
discussed under "Q-routine Generation" in 
the Phase 22 chapter. 



COUNT TABLE 



INITIALIZATION 2 ROUTINE (INIT2) 



The Initialization 2 routine is 
generated by phase 60 or 64 and performs 
the following operations: 

1. Stores the address of the Task Global 
Table for this program (pointed to by 
register 13) into the Save Area of the 
Task Global Table of the calling 
program- 

2. Stores the location of the Save Area 
of the Task Global Table of the 
calling program into the Save Area of 
this program's Task Global Table. 

3. Determines if this module is a main 
program or a subprogram in the run 
unit and sets a switch accordingly. 

The code generated by INIT2 is shown in 
Figure 78. Symbolic addressing has been 
substituted in some instructions (see the 
INITl coding above). 



The COUNT table is used by the COBOL 
library subroutine ILBOTC3 0. It contains 
entries for each procedure-name and source 
verb. Tnis table is present only if COUNT 
was specified. The format of each entry 
is: 



Byte 




*2-4 
*5-6 



Contents 
Identification code 



Code 
00 
01 
02 



Meaning 

end of table 

procedure-id 

verb-id 



Length of entry. If byte 

contains 00, this byte 

contains zero. 

Card number 

Block number 

If byte contains 01, these 

bytes contain zeros - 

If byte contains 02, 

block number of the count 

block for executable verbs; 

the count block is 00 for 



the 



*This field is not present if byte 
contains 00. 



INITIALIZATION 3 ROUTINE (INIT3) 



The Initialization 3 routine is executed 
whenever the program is entered. It is 
generated by phase 6 or 6 4 and immediately 
checks the SWITCH field in the TGT to 
determine whether this is the first time 
the module was entered. If so, it performs 
the following operations: 

1. Initialize the VN locations in the 
Task Global Table from the associated 
VN locations in the Program Global 
Table- 

2. Relocate each address constant in the 
Task Global Table and the Program 
Global Table to its absolute location. 
(Before the execution of this routine, 
the addresses are relative to the 
beginning of the program.) The 
relocation of the address constants 
for this program (or for only the root 
segment in a segmented program) is 
done by adding the absolute location 
of the first instruction in the 
program (Initialization 1 routine), 
which is in general register 11, to 
the relative addresses. If the high 
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5, 



byte of an ADCON is not zero, the 
address of the transient area 
(contained in register 10) is used as 
a relocation factor. If OPT is 
specified, the addresses contained in 
the PROCEDURE BLOCK CEILS in the PGT 
are processed as follows: If the 
program is not segmented, RLD~text is 
generated for the PROCEDURE BLOCK 
CELLS. If the program is segmented,, 
all PROCEDURE BLOCK CELLS are 
relocated by INIT3. 

Load and BALR to the addresses of 
Q-routines to initialize the VLC and 

SBL cells in the TGT for OCCURS 

DEPENDING ON fields that depend on an 
item in Working-Storage. 

Load permanent base registers for BLs 
assigned to the program and, if OPT is 
specified, for BLs, BLLs and OVERFLOW 
CELLS. 

Branch either to the first executable 
instruction of the object program, or 
to the instruction following the BALR 
to the Initialization 2 routine in the 
coding generated for an ENTRY 
statement. 



The compiler only allocates the area for 
the table, the size of which is dependent 
on the number (n[n]) of traces requested; 
the COBOL library subroutine (ILBDFLWO) 
makes the entries in the table. 



PROCTAB TABLE (PROCTAB) 



The PROCTAB table is used by the COBOL 
library subroutine (ILBDSTNO) . It contains 
entries for all the card numbers and verb 
numbers in the COBOL program. The format 
of each entry is: 

Byte Contents 

0-2 Card number and verb number. The 
verb number is contained in the 
last 4 bits of byte 2. 

3-4 Displacement of the verb within 
the program fragment. 



SEGINDX TABLE (SEGINDX) 



6. If the module was entered previously, 
INIT3 resets the program to the state 
it was left in the last time it was 
exited (from the register save area in 
INITl) . 

The code g-enerated by INIT3 is shown in 
Figure 79. Symbolic addressing has been 
substituted in some instructions (see the 
INITl coding above) - 



FLOW TRACE TABLE 



The Flow trace table is used by the 
COBOL liorary subroutine (ILBDFLWO), if 
FLOW has been specified. 



The SEGINDX table is used by the COBOL 
library subroutine (ILBDSTNO) . It contains 
an entry for each fragment of the program; 
these entries are wirtten in ascending 
order of priority in the object module. 
The format of each entry is: 

Byte Contents 

Priority. 

1-3 Program fragment address. 

4-6 Displacement from start of 

PROCTAB table of first PROCTAB 
entry for this program 
fragment. 

7-9 Displacement from start of 

PROCTAB table of last PROCTAB 
entry for this program 
fragment. 
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INIT3 



ST 



BALR 
TM 
EC 
L 

LM 
L 

BCR 
TRAN003 01 
LA 



14,0054(0,13) Save entry point to go to after INIT3 

(See Note) 
15,0 

SWITCH, X° 20** 

14,TRAN003 Register 11 used as base 
0,SAVEPl+48 

2, 13,;SAVEPl+50 Restore registers to what they were on last exit 
14,0054(0,13) 
15,14 

SWITCH, X" 20' 
6r4 



Relocate OVERFLOW, PN, GN, SUBDTF, and VNI cells of the PGT. 

If OPT is specified and the program is segmented, relocate all PROCEDURE BLOCK 
CELLS in the PGT. 

Relocate OVERFLOW, BL, and DTFADR cells of the TGT. 

Call Q-routine for OCCURS- • .DEPENDING ON fields which have their object in 
Working-Storage . 

Load base locators. 

Call initialization of checkpoint routine. 



L 
BCR 



14,0054(13) 
15,14 



^ ^ 

Note : If the SYMDMP, FLOW^^ STATE, or COUNT option is in effect, the following 
instructions are interposed between the first instruction (ST 14,0054,(0,13)) and 
the second instruction (BALR 15,0) of INIT3 coding. 

L 15,=V(ILBDDBG0) 

BALR 14,15 

In addition^ if COUNT is in effect, the following instruction is added after the BALR: 

DC H 'number of verbs blocks' 

L J 

Figure 7 9. INIT3 Coding 



TRANSIENT AREA (SEGMENTED PROGRAM) 



This area contains object modules of 
program segments of a higher priority than 
the segment limit (49 by default). The 
segments are compiled in ascending order of 
priority number, and the root segment is 
compiled last. If OPT is specified. Phase 



64 compiles the root segment first and then 
the other segments. (The root segment is 
stored in the Procedure Division area of 
the object module, as explained above.) 
Assuming the name of the program is 
SORTEST, and the segments are of priorities 
51, 52, and 0,, the object module produced 
by the compiler has the following format: 
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FOOT SEGMENT 



INDEPENDENT 
SEGMENT 



PHASE SORTEST;,ROOT 
(Object deck for the root 
segment) 

PHASE S0PTES51^* 
(Object deck for segment of 
priority 51) 



PHASE SORTES52,SORTES51 
INDEPENDENT (Object deck for segment of 
SEGMENT priority 52) 

ENTRY SORTEST 

If no root segment is specified , one is 
generated by the compiler. 



A root segment consists of the Data 
Division specified areas, including Report 
Writer routines, 0-routines, Global Tables, 
INIT1, INIT2, INIT3, and Procedure Division 
coding for sections of a priority less than 
the seqment limit. 



Each nonresident segment will be loaded 
into the transient area when necessary. 
The transient area is large enough to 
accommodate the largest segment with a 
nonzero priority. 
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APPENDIX C; P. EPORT WRITEP SUBPROGRAM 



This appendix describes the Report 
Writer Subprocrram (RWS) , its structure, 
elements r and response to verbs in the 
Procedure Division. The RWS is generated 
by phase 12 from statements in the Report 
Section of the Data Division. The 
operation of phase 12 and associated 
activities in other phases are described in 
the "Phase 12»» chapter. 

If OPT is specified, the code generated 
for the Report Writer Subprogram is 
optimized for procedure-name addressability 
and register usage by phases 62, 63, and 64 
in the same manner as the code generated 
for the other parts of the Procedure 
Division is optimized. The operation of 
phases 62, 63 and 64 is described in the 
chapters "Phase 62," "Phase 63," and "Phase 
64." 



FIXED ROUTINES 



Fixed routines never vary in logical 
content. Phase 12 generates one and only 
one copy of each of them after all of the 
statements under an RD have been scanned. 
The three fixed routines are 1ST-R0UT, 
LST-ROUT, and WRT-ROUT. 



1ST-R0UT Routine 



This routine causes the first headings 
to be printed by calling on the RPH-ROUT 
and the CRF-ROUT routines. Routine 
IST-ROUT is executed when either GENERATE 
Report-name or the first occurrence of 
GENERATE Detail-name is encountered. 



ST RUCTURE OF THE REPORT WRITER SUBPROGRAM 
(RWS) 



LST-ROUT Routine 



Each RWS is a complete subprogram which, 
when executed, produces a report according 
to the specifications coded in one RD 
statement and its associated group and 
elementary items. The RWS has a fixed 
logical structure; that is, it contains 
fixed, parametric, and group routines in a 
prescribed order and guantity. In certain 
cases, dummy routines are inserted to 
maintain the structure. The RWS produced 
contains all linkages and exits needed. 
Each routine refers to the compiler- 
generated card number of its respective RD. 
This is reflected when LISTX is in effect. 
Figure 80 shows the logic of a Report 
Writer Subprogram. The coding in the boxes 
is intended to be indicative rather than 
comprehensive . 



ELEMENTS OF A REPORT WRITER SUBPROGRAM 
(RWS) 



An RWS includes data items and three 
types of routines: fixed, parametric, and 
group. The data items are assigned special 
data-names; these can be either COBOL 
words, which may be used in the source 
program, or nonstandard words, which may 
not. These routines and data-names are 
discussed below, together with the special 
internal Report Writer verbs generated by 
the compiler. 



This routine terminates the report. It 
causes the highest -level control break (by 
setting CTL.LVL to 1) and then causes the 
final footings to be printed by calling 
routines CFF-ROUT and RPF-ROUT. Routine 
LST-ROUT transfers control to LAST-ROLL, 
which provides return linkage to the main 
program. (LAST-ROLL is the name of a STORE 
instruction located just before the 
ROL-ROUT routine. It is not itself an RWS 
routine.) Control then falls through to 
the POL-ROUT routine. 



WRT-ROUT Routine 



This routine writes a record from the 
output work area, RPT.RCD. It then moves 
blanks to CTL.CKR and to RPT.LIN. This 
routine contains two sets of coding if the 
program specifies two output files. The 
programmer may suppress printing of a line 
by coding "MOVE 1 TO PRINT-SWITCH". 



PARAMETRIC ROUTINES 



Parametric routines are generally fixed 
in structure but vary according to the data 
obtained from the source (01-49 level) 
statements. They may also include 



440 Appendixes 



Licensed Material - Property of IBM 



statements or blocks of statements that are 
repeated as needed. Except as noted under 
USM-EODT, RLS-ROUT, and ALS-RODT, the PWS 
contains one and only one copy of each 
parametric routine. The nine parametric 
routines are discussed in the following 
paragraphs. 



USM->ROUT Routine 



This routine adds the operands of all 
SUM clauses that either have UPON (this 
detail-name) or that appear as SOURCE items 
in a TYPE IS DETAIL group to as many 
sum-buckets as required. A sum-bucket is a 
work area which may be given a data-name by 
the programmer or else is assigned an 
S-point name by the compiler. (S^point 
names are described under "Nonstandard 
Data-names" in this appendix.) Phase 12 
generates one USM-ROUT routine for each 
DET-ROUT routine. If there is no DET-ROUT 
routine in an RWS, no USM-ROUT routine is 
generated . 



RST-ROUT Routine 



This routine moves the current contents 
of sum-buckets to control-field save areas 
and sets the sura-buckets to zero for all 
control levels just processed by the 
ROL-ROUT routine. The RST-ROUT routine 
contains one block of coding for each 
control level. When the level number of 
the block being executed is equal to the 
value in CTL.LVL^ control is returned to 
the routine that called the CTB-ROUT 
routine. 



SAY-ROUT Routine 



This routine moves the current control 
name contents to a save-area and the 
previous control name values to the current 
control names. 



RET-ROUT Routine 



CTB-ROUT Routine 



This routine resets the control names to 
their current values. 



This routine acts as a control break 
supervisor. It tests for a change in value 
of a control fields always beginning with 
the highest level and continuing until 
either the lowest level is tested or a 
control break occurs. A break causes 
control to be passed to the ROL-ROUT 
routine, leaving the current control level 
number in location CTL.LVL. The CTB-ROUT 
routine contains one block of coding for 
each control level . 



Note: Routines SAV-ROUT and RET-ROUT are 
used only when processing TYPE IS CONTROL 
FOOTING or TYPE IS CONTROL FOOTING FINAL 
report groups. Therefore, any source 
control name areas contain the previous 
value (i.e., the value prior to the control 
break) . 



INT-ROUT Routine 



ROL-ROUT Routine 



This routine sets initial values of all 
switches, counters, and SUM-names 
(data-names or S-point names) . Routine 
INT-ROUT is called when an initiate 
statement is encountered. 



This routine adds SUM-clause operands 
originally defined in another control 
group. It starts with the lowest level and 
continues until the level number of the 
current block is equal to the value found 
in CTL.LVL. At this point, control is 
transferred to the lowest level CTF-ROUT 
routine. Routine ROL-ROUT contains one 
block of coding for each control level. 



ALS-ROUT Routine 



This routine determines the line spacing 
for absolute lines. The ALS-ROUT routine 
is generated only if the RD entry contains 
a PAGE LIMIT clause. 
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(INITIATE report-name) 



REPORT-CALL INT-ROUT- 



-O 



(GENERATE report-name) 



REPORT-CALL 1ST- ROUT- 
REPORT-CALL CTB- ROUT- 



REPORT-CALL USM-ROUT (for each detail in report, in order of sequence)- 



ra 



-0 







(GENERATE detail-name) 



REPORT-CALL DET-ROUT (for this detail)- 



-G 



(TERMINATE report-name) 



REPORT-CALL LST-ROUT- 



O 



IST-ROUT 



REPORT-SAVE-2 

IF FRS.GEN NOT = 

REPORT-RETURN-2. 

REPORT-CALL WRT-ROUT 

MOVE 1 TO FRS.GEN 
*MOVE 1 TO PAGE-COUNTER 

REPORT-CALL RPH-ROUT 

REPORT-CALL CHF-ROUT 

REPORT-RETURN-2 



CHF-ROUT 



REPORT-SAVE-3 

02-coding 
GO TO CTH-ROUT (highest 
level) or (if no 
controls exist) 
REPORT-RETURN-3 



RPH-ROUT 



REPORT-SAVE-4 

02-coding 
GOTO PGH-ROUT- 



*Generated only if there is a PAGE clause. 



LST-ROUT 



REPORT-SAVE-6 

IF FRS.GEN = 

REPORT-RETURN-6. 

MOVE 1 to CTL. LVL, TER.COD 

REPORT-CALL (LAST-ROLL) 

REPORT-CALL CFF-ROUT 

MOVE 2 TO TER.COD 

REPORT-CALL PGF-ROUT 

GO TO RPF-ROUT 



RPF-ROUT 



02-coding 
REPORT-CALL WRT-ROUT - 
REPORT-RETURN-6 



1_£ 



PGH-ROUT 



02-coding 
IF LIN.SAV = 0, GOTO 
(GNNN) ELSE MOVE 
LIN.SAVTO ABS.LIN 
* REPORT-CALL ALS-ROUT - 
REPORT-CALL WRT-ROUT- 
(GNNN) 

MOVED TO LIN.SAV, 
FRS.GRP, GRP.IND 
REPORT-RETURN-4 



© 



(LAST-ROLL) 



REPORT-SAVE-2, then 
fall through to 
ROL-ROUT routine 



CFF-ROUT 



REPORT-SAVE-3 

02-coding 
REPORT-RETURN-3 



PGF-ROUT 



REPORT-SAVE-4 
02-coding 

IF TER.COD = 2 REPORT- 
RETURN-4. 

REPORT-CALL WRT-ROUT 

GOTO PGH-ROUT— 1 



U0 



Figure 80. Logic of the Generated Peport Writer Subprogram (Part 1 of 4) 
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DET-ROUT (for this detail group) 



REPORT-SAVE-1 



REPORT-CALL IST-ROUT- 
REPORT-CALL CTB-ROUT- 



REPORT-CALL USM-ROUT- 

02-cocling 
REPORT-RETURN-1 



<D 







USM-ROUT (for this DET-ROUT) 



REPORT-SAVE-2 

for each statement with UPON 
clause whose object is this 
DE and each statement with 
SOURCE-SUM correlation: 

ADD operand TO sum bucket. 

(may be more than one operand 
or sum bucket) 
REPORT-RETURN-2 



*Source-control is the name 
specified in the CONTROL 
clause of the source program. 

** Control-field save area name. 







CTB-ROUT 



REPORT-SAVE-2 
MOVE TO 

CTL.LVL. IF FRS.GEN NOT = 2 
MOVE 2 TO FRS.GEN GO TO RST-ROUT- 
(highest level) 



— 



one set 
per 

control 
level 



ADD 1 TO CTL.LVL 
IF source-control* 
NOT = -nnnn** 
MOVE TO GRP.IND 
GOTO ROL-ROUT 



(after lowest level) 
REPORT-RETURN-2 







ROL-ROUT 



one set 
per 

control 
level 



(lowest level) 

ADD (this level bucket) 
TO (higher level bucket) 
IF (this level-number) = 
CTL.LVL 

RPT-CALLSAV-ROUT- 
GO TO (lowest level) 
CTF-ROUT 



(next-higher level) 



REPORT-RETURN-2 



Figure 80. Logic of the Generated Report Writer Subprogram (Part 2 of U) 
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© 



RST-ROUT 



(lowest level) 

IFFRS.GEN=1 RPT-RETURN-3. 
MOVE TO sum bucket. 
MOVE source-control**TO 

-nnnn.*** 
IF this level number=CTL. LVL 
REPORT-RETURN-2. 
(next higher level) 



REPORT-RETURN-2 



© 



WRT-ROUT 



RPT-SAVE-5 
If 2 files, WRITE FILE-NAME RECORD-NAME 
code (-nnnn) FROM RPT. RCD AFTER 

repeated ADVANCING LIN.NUM LINES 

GO TO(GNBB). 



-^(GNAA) RPT-SAVE-5 

If 2 files, WRITE FILE-NAME RECORD-NAME 

code (-nnnn) FROM RPT. RCD AFTER 

repeated ADVANCING COl LINES. 

MOVE TO LINE-COUNTER 
ADD 1 TO PAGE-COUNTER.* 

(GNBB) MOVE SPACES TO RPT. LIN 
MOVE TO LIN.NUM 
RPT-RETURN-5 



© 



CTF- ROUT (lowest level) 



02-coding 
IF (this level number)=CTL. LVL 
RPT-CALL RET-ROUT 



GO TO (this level) CTH-ROUT. 

GO TO (next higher level) CTF-ROUT 



CTF-ROUT (highest level) 



RPT-CALL RET-ROUT — 
IFTER.COD=0 GOTO 

CTH (highest level), 

GO TO RST-ROUT. 



-© 






CTH-ROUT (highest level) 



:_£: 



CTH-ROUT (control break level) 

02-coding 
GO TO (next lower level) CTH-ROUT 



CTH-ROUT (next lower level) 



CTH-ROUT (lowest level) 
GO TO RST-ROUT. 



Note; All calls of the WRT-ROUT routine are 
not shown. Other routines call it as 
often as necessary to print all output 
lines to be produced. 

*Generated only if there is a PAGE clause. 
**Source-control is the name specified in the 
CONTROL clause of the source program. 
*** Control-field save area name. 



Figure 80. Logic of the Generated Report Writer Subprogram (Part 3 of ^) 
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ALS-ROUT* 



REPORT-SAVE-5 

IF LINE-COUNTER = MOVE 1 TO 

LINE-COUNTER. 
MOVE 1 TOFRS.GRP 
SUBTRACT LINE-COUNTER FROM 

ABS.LIN GIVING LIN.NUM 
MOVE ABS.LIN TO LINE-COUNTER. 
REPORT-RETURN-5 







SAV-ROUT 



REPORT-SAVE-5 
One for MOVE source-control** (CTB 
each value) TO -nnnn*** 

control MOVE -nnnn+1 

(value previous to CTB) 
TO source-control. 



REPORT-RETURN-5 



RLS-ROUT* 



REPORT-SAVt-5 

IF LINE-COUNTER = MOVE 1 TO 

LINE-COUNTER. 
IF LINE-COUNTER LESS THAN 

(integer for FIRST DETAIL) 
SUBTRACT LINE-COUNTER FROM 

(FIRST DETAIL MINUS 1) GIVING LIN.NUM 

MOVE (FIRST DETAIL MINUS 1) 

TO LINE-COUNTER. 
IF FRS.GRP = ADD 1 TO 

LINE-COUNTER ADD 1 TO 

LIN.NUM. 
REPORT-RETURN-5 



® 



RET- ROUT 



REPORT-SAVE-5 
One for MOVE -nnnn*** TO 
each source-control.** 

control 



REPORT-RETURN-5 



Note: Not all calls to ALS-ROUT and 
RLS-ROUT are shown since each routine 
will be called as many times as necessary 
to determine line spacing. 

*Generated only if there is a PAGE clause. 
**Source-control is the name specified in the 
CONTROL clause of the source program. 
*** Control-field save area name. 



© 


INT-ROUT 


REPORT-SAVE-2 

MOVE TO CTL.LVL, PRINT SWITCH, 
GRP.IND, FRS.GEN, TER.COD, 
FR5.GRP, LIN.NUM, ABS.LIN, 
LIN.SAV, &all sum counters 
*MOVE TO LINE-COUNTER 
*MOVE 1 TO PAGE-COUNTER 
REPORT-RETURN-2 



Figure 80. Logic of the Generated Report Writer Subprogram (Part 4 of 4) 
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RLS-ROOT Routine 



This routine determines the line spacing 
for relative lines. Routine RLS~ROUT is 
generated only if the RD entry contains a 
PAGE LIMIT clause. 



there is neither an actual nor a dummy 
CTH-ROUT routine generated. 



CT?~ROUT Routine 



GROUP ROUTINES 



Phase 12 generates one group routine for 
each 01 -level record description 
encountered. The group routine selected is 
determined by the TYPE clause of the 
01-level statement. The coding within the 
routine varies according to the 01-^9-level 
statements associated with it. An 01-level 
elementary item contains all necessary 
information and hence results in a complete 
group routine. 

If any of the group routines, except as 
discussed under DET-ROUT, CTH-ROUT, and 
CTP-ROUT routines, is not generated because 
there is no corresponding 01-level 
statement, phase 12 supplies a dummy 
routine to maintain the fixed logical 
structure of the RWS. The nine group 
routines are discussed in the following 
paragraphs. 



RPH-ROUT Routine 



This routine produces the control 
footings. There is one CTF-ROUT routine 
for each control (except FINAL) in the 
source program. It results from a TYPE IS 
CONTROL FOOTING group. If there is no such 
group, a dummy CTF-ROUT routine is 
generated for each control below the 
highest (FINAL) level. If, however, there 
are no controls (again, except FINAL) , 
there is neither an actual nor a dummy 
CTF-ROUT routine generated. 



CHF-ROUT Routine 



This routine produces the heading for 
the highest (FINAL) level control. There 
is one CHF-ROUT routine in an RWS. It 
results from a TYPE IS CONTROL HEADING 
FINAL group. If there is no such group 
defined, or if there is no CONTROL clause 
in the program, a dummy CHF-ROUT routine is 
generated. 



This routine produces the report 
heading. There is one RPH-ROUT routine in 
an RWS; it results from a TYPE IS REPORT 
READING group. 



RPF-ROUT Routine 



This routine produces the report 
footing. There is one RPF-ROUT routine in 
an RWS; it results from a TYPE IS REPORT 
FOOTING group. 



CFF-ROUT Routine 



This routine produces the footing for 
the highest (FINAL) level control. There 
is one CFF-ROUT routine in an RWS. It 
results from a TYPE IS CONTROL FOOTING 
FINAL group. If there is no such group 
defined or if there is no CONTROL clause in 
the program , a dummy CFF-ROUT routine is 
generated. 



PGH-ROUT Routine 



CTR-ROUT Routine 



This routine produces the control 
headings. There is one CTH-ROUT routine 
for each control (except FINAL) in the 
source program. It results from a TYPE IS 
CONTROL READING group. If there is no such 
group, a dummy CTH-ROUT routine is 
generated for each control below the 
highest (FINAL) level. If, however, there 
are no controls (again, except FINAL) , 



This routine produces the page headings. 
There is one PGH-ROUT routine in an RWS; it 
results from a TYPE IS PAGE HEADING group. 



PGF-ROUT Routine 



This routine produces the page footings. 
There is one PGF-ROUT routine in an RWS; it 
results from a TYPE IS PAGE FOOTING group. 
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DET-BOUT Routine 



This routine produces a detail line (or 
group of lines) of the report. There is 
one DFT-POUT routine for each TYPE IS 
DETAIL group. If there is no such group in 
the source program, there is neither an 
actual nor a dummy DET-ROUT routine 
generated. 



DATA-NAMES 



Report Writer data-names are generated 
to identify counters, switches, and control 
fields. There are two types of data-names 
used in an RWS, COBOL word data-names and 
nonstandard data-names. 



COBOL Word Data-names 



The COBOL word data-names follow the 
rules for coding COBOL names and are 
accessible to the source programmer. They 
are PAGE-COUNTER, LINE-COUNTER, and 
PRINT-SWITCH. 

PAGE-COUNTER : A counter generated only if 
there is a PAGE LIMIT clause in the RD 
entry. There can be only one PAGE-COUNTER 
in an RWS. If present, it is initialized 
to 1 by the INT-ROUT routine and used by 
the WRT-ROUT routine. 



and are uniquely numbered; the other nine 
appear once per report. The nonstandard 
data-names are: 



CTL.LVL : A counter used by the CTB-ROUT, 
ROL-ROUT, CTF-ROUT, and RST-ROUT routines 
to coordinate control break activities. It 
is initialized to by the INT-ROUT routine 
and set to 1 by the LST-ROUT routine. 

FRS.GEN ; A one-byte switch used by the 
1ST-R0UT and CTB-ROUT routines to ensure 
that routine 1ST-R0UT is executed once 
only. After the 1ST-R0UT routine is 
finished, FRS.GEN has a value of 1; after 
routine CTB-ROUT is executed, the value is 
2. FRS.GEN is also tested by routine 
LST-RODT to determine whether a TERMINATE 
was coded without an earlier GENERATE. 



GRP.INB ; A work area con sis tin 
switches. There is one switch 
GROUP INDICATE clause in a TYPE 
group. The switches are turned 
CTB-ROUT routine and individual 
DET-ROUT routines after control 
break activities so that items 
a GROUP INDICATE clause will be 
the output line work area. The 
may be treated as a group or in 
as follows: 



g of 1-byte 
for each 

IS DETAIL 

on by the 
ly tested by 

or page 
specified in 

moved to 

switches 
divi dually. 



GRP.TND: Group name (01-level) 
for a set of GF.nnnn names. It is 
set to after a page or control 
break by the PGH-ROUT or the 
CTB-ROUT routine. 



LINE-COUNTER : A counter generated only if 
there is a PAGE LIMIT clause in the RD 
entry. There can be only one LINE-COUNTER 
in an RWS. If present, it is initialized 
to zero by the INT-ROUT routine and reset 
to zero by the WRT-ROUT routine for each 
new page. 

PRINT-SWITCH : A 1-byte switch generated by 
Phase 12 for any program that contains a 
Report Section. (It may then be used by 
any RWS generated for that program.) It is 
set to by the INT-ROUT routine, 
indicating that the current line is to be 
printed. The source programmer can use 
PRINT-SWITCH to suppress printing of a 
report group by coding "HOVE 1 TO 
PRINT-SWITCH". 



Nonstandard Data-names 



The nonstandard data-names contain the 
special character "." or begin with a 
hyphen; they cannot, therefore, be used by 
the programmer. Data-names in the form, 
"-.nnnn" (for example, E.0001) and 
control -field save area names have no limit 



b. GP.nnnn: Elementary names 

(02-level) following the GRP.IND. 
They are tested and, if zero, set 
to 1 by the DET-ROUT routine for a 
specific TYPE IS DETAIL group. 
Each GP.nnnn represents one 1-byte 
switch . 

TER.COD : A 1-byte switch tested by the 
PGF-ROUT routine to prevent printing of an 
extra .page heading, and by the CTF-ROUT 
routine (highest level) to determine if 
control headings should be produced. It is 
initialized to by the INT-ROUT routine 
and set to 1 by the LST-ROUT routine. 

RPT.RCD : The work area for the record 
containing the output print line. It is 
133 bytes long and consists of either two 
or three parts (CODE-Cell is optional) in 
the following order: CODE-Cell, a 1-byte 
cell used to hold the code specified in the 
CODE clause of the RD statement and defined 
in the SPECIAL-NAMES paragraph; CTL.CHR, a 
1-byte cell used to hold the carriage 
control character; and RPT.LIN, which 
contains the actual output print line. 
Note that, if there is no CODE clause, 
there will be no CODE-Cell and RPT.LIN will 
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be 132 bytes. The equivalent COBOL coding 
for the RPT.RCD group would be: 

01 RPT.RCD. 

02 FILLER PICTURE X VALUE code. 

02 CTL.CRR PICTURE X VALUE SPACE. 

02 RPT.LIN PICTURE X(131) VALUE SPACE. 

ABS.LIN ; A 2-byte counter used by the 
ALS-ROUT routine for absolute line spacing. 
It is initialized to by the INT-ROUT 
routine and set to the appropriate value as 
report lines are produced. It is set^ 
therefore, by all group routines generated 
as a result of source statements r but not 
by dummy group routines. 

LIN.SAV ; A 2-byte save area. It contains 
either zero or an absolute line to be 
skipped to after a page heading is 
produced. If a Control Footing, Control 
Heading, or Detail report group contains a 
NEXT GROUP IS integer clause and if, after 
the presentation of that report group, the 
value of integer is less than or equal to 
LINE-COUNTER, then the integer is saved in 
LIN.SAV and the report group will space up 
to and including FOOTING. 

LIN.NUM ; A work area used in the »RT-ROUT 
routine in conjunction with the WRITE AFTER 
ADVANCING. ..LINES clause. LIN.NUM can be 
set by any group routine or by either the 
ALS-ROUT or the RLS-ROUT routine. Routine 
WRT-ROUT fills in LIN.NUM with zeros before 
exiting. 

FRS.GRP ; A switch set to zero after the 
PGH-ROUT routine is executed. It is tested 
and set to 1 by a CTH-ROUT, CTF-ROUT, or 
DET-ROUT routine. If one of these groups 
is to be printed and if its first line is 
relative (that is, LINE PLUS integer) , and 
if FRS.GRP is zero, the first relative line 
will be printed on either FIRST DETAIL or 
(LIN.SAV + 1) . 

Control-field Save Area Names ; Data-names 
in the form ''-nnnn" are names of 
control-field save areas. (There are two 
save areas per control level.) 

A "-nnnn" name is also generated for any 
FD that contains a REPORT clause. The size 
of the 01~level item is determined from the 
RECORD CONTAINS clause or is 133 characters 
by default. 

E-point Data-names ; Data--names in the form 
"E.nnnn" are generated from COLUMN clauses 
in elementary record descriptions. They 
use the special RW-Redefines of ''RPT.LIN + 
COLUMN - (integer-1) ". 

N^point Data-names ; Data-names in the form 
"N.nnnn" are counters used to hold the 
number of lines in a report group that 
contains a relative NEXT GROUP clause, at 



least one relative LINE clause, or both. 
Using the N-point counter, the initial 
coding for a report group determines 
whether there are enough lines left on a 
page to print the entire group. 

S-point Data-names ; Data-names in the form 
"S.nnnn" are used for accumulators 
(sum-buckets) for Control Footing record 
descriptions that have a SUM clause but no 
data-name specified. They are generated so 
that coding of MOVE sum-bucket TO E.nnnn 
can be produced. Attributes of the SUM 
clause are picked up in the normal manner, 
except for the PICTURE which is picked up 
from the corresponding E.nnnn name 
generated for the sum bucket. If the 
statement has a data-name, S.nnnn is not 
generated. Its PICTURE, however, is picked 
up in the same manner as an S.nnnn name. 



SPECIAL REPORT WRITER VERBS 



Phase 12 generates five special v^rbs 
for use in the RWS; REPORT-CALL, 
REPORT-SAVE, REPORT-RETURN, REPORT-ORIGIN, 
and REP0RT-RE0RI6IN. The first three of 
these are used for linkage between the main 
program and the RWS — for example, as a 
result of a GENERATE statement — and 
between routines of the RWS itself. Their 
equivalent assembler language coding is 
shown below. The remaining two verbs are 
used to process USE BEFORE REPORTING 
sentences... In the following descriptions, 
the PO-text and Pi-text verb codes are 
shown in parentheses after each verb. 



REPORT-CALL^ 
is: 

L 

BALR 



(4F) ; The equivalent coding 



15, A (Called Routine) 
1.15 



REPORT-SAVE-O through REPORT-SAVE-n 
(50-55); The equivalent coding is: 



ST 



1 ,Save-cell-n 



REPORT-RETURN-0 through REPORT-RETURN-n 
(56-5B} ; The equivalent coding is; 

L 1,Save-cell-n 
BCR 15,1 

REPORT-ORIGIN (5C) : The execution of this 
verb causes the address counter to be set 
to the address of the RW-NOP statement at 
the start of the specified routine. A link 
to the USE routine is inserted at this 
point. 

REPORT-REORIGIN (5D) ; The execution of 
this verb causes the address counter to be 
reset to the address it contained before 
the REPORT-ORIGIN was encountered. 
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RESPONSE TO PROCEDURE DIVISION VERBS 



Once the Report Writer Subprogram has 
been generated , it is called at particular 
entry points and executed as a result of 
INITIATE, GENERATE, and TERMINATE 
statements in the Procedure Division of the 
source program. These responses are as 
follows: 

Response to INITIATE ; As a result of 
INITIATE, a branch is made to the INT-ROUT 
routine of the particular report. Routine 
INT-ROUT is executed and control returns to 
the next instruction after the INITIATE. 



To find cell CTL.LVL, turn to the Memory 
Map and find the BL CELLS field in the TGT . 
BL1 is located at the address listed there 
and, 8 bytes farther, BL3. To the contents 
of BL3 add the displacement (DISPL) ,88. 
The result is the address of CTL.LVL. 



Note that if there are registers 
available for each BL needed in the 
program, one register is assigned 
permanently to BL3 and listed in the 
REGISTER ASSIGNMENT column of the Memory 
Map. In that case, add the DISPL to the 
contents of that register. 



Response to GENERATE ; The response to a 
GENERATE Statement depends on whether the 
statement is the first such GENERATE or a 
subseguent one. Figures 81 and 8 2 
illustrate the two cases. The logic flow 
shown is that for GENERATE detail-name 
statements. The logic for GENERATE 
report-name statements is the same except 
that all DET-ROUT routines are skipped and 
all DSM-ROUT routines, in the order of 
their DET-ROUT routines, are executed. 

Response to TERMINATE ; The response to a 
TERMINATE statement is illustrated in 
Figure 83. 



LOCATING DATA ITEMS IN THE OBJECT MODULE 



To find references to a data item in the 
object module, note its internal name in 
the glossary and refer to the 
cross-reference dictionary. A portion of 
the cross-reference dictionary would look 
like this (again using CTL.LVL as the 
example) : 



DATA NAMES 



FINDING TEE ELEMENTS OF A REPORT WRITER 
SUBPROGRAM (PWS) 



It may become necessary to locate, in 
the object module or in a storage dump, the 
data items and routines that mak^ up the 
RWS. This can best be done using a listing 
that includes a glossary and a 
cross-reference dictionary. The following 
discussion assumes the use of the SYM and 
XREF options. 



LOCATING DATA ITEMS IN A STORAGE DUMP 



CTL 



LVL 



DFFN 



00100 



REFERENCE 



00100 00118 



To the left of the object module appear 
the numbers of the source statements that 
generate each section of code ; to the 
right, in the remarks column, are the 
internal data-names. Among the 
instructions generated for source 
statements 00100 and 00118 will be found 
references to item »»DNM=2-426»», the 
internal name for CTL.LVL. 



The glossary lists the cells, switches, 
and work areas mentioned under "Data-names" 
in this appendix. A portion of the four 
pertinent columns of a typical glossary 
look, for example, like this: 



LOCATING ROUTINES IN A STORAGE DUMP 



SOURCE NAME 



CTL 



LVL 



BASE 



BL=3 



DISPL 



088 



INTRNL NAME 



DNM=2-426 



To locate RWS routines in storage, 
identify the desired routine in the object 
module (discussed below) , add the relative 
address to the load address (shown in the 
Linkage Editor map) , and proceed as in 
finding any other instruction or routine. 
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Figure 81. First GENFRATE Statement Logic Flow 



450 Appendixes 



Licensed Material - Property of IBM 



Control 

break 

path 



CTB- 
ROUT 



AAAIN PROGRAM 



(IN-LINE CODE) 



GENERATE 
detail-name 
Next Seq. Instr. 



STOP RUN 



DET-ROUT 






& 



SAV- 
ROUT 



ROL- 
ROUT 



CTF- 
ROUT 

(Minor) 



Non- 
control 
break 
path 



RET- 
ROUT 



CTH-ROUT 
(Major) 



CTF-ROUT 
(Inter- 
mediate-!) 



CTF-ROUT 

(Inter- 
mediate-n) 



CTF- 
ROUT 

(Major) 



RET- 
ROUT 



RET- 
ROUT 



CTH-ROUT 

(Inter- 
mediate-n) 



RET- 
ROUT 



CTH-ROUT 

(Inter- 
mediate-!) 



CTH-ROUT 
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RST-, 
ROUT 



CTF- LOGIC; 

IF the CTF level = the control break level, 

GO to CTH for that level; else 

GO to CTF for next higher level. 



USM- 
ROUT 



Figure 82. Logic Flow of All GENERATE Statements After the First 
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MAIN PROGRAM 



(IN-LINE CODE) 
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Nexf Seq. Instr.-^t- 



STOP RUN 



• LST-ROUT 



Q 



0- 



0- 



RPF- 
ROUT 



ROL- 
ROUT 



SAV- 
ROUT 



CTF- 
ROUT 
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CFF- 
ROUT 
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Figure 83 • TERMINATE Statement Logic Flow 



LOCATING ROUTINES IN THE OBJECT MODULE 



PWS routines can be found by scanning 
the name field of the object module for 
their GN numbers. Most of their GN numbers 
can be found by using Figure 84. Phase 12 
reserves 24 GN numbers while scanning each 
RD statement and assigns 17 of them to 
routines as shown in this table. (The 
other four routines, DET-ROUT, USM-ROUT, 
CTH-ROUT, and CTF-ROUT, are discussed 
separately below.) The GN numbers in 
Figure 34 may be considered absolu-te for 
the first RHS and relative for any 
succeeding RWSs generated. In the latter 
case, the GN number of the INT-ROUT routine 
can be used as a base. It may be found 
from the coding for the INITIATE statement, 
which is a branch to the INT-ROUT routine, 
with "the GN number of that routine 
indicated in the remarks column. 



Locating PET-ROUT and USM-ROUT Routines 



There is one DET-ROUT routitte generated 
for each detail group in the source 
program. Each DET-ROUT routine has one 
corresponding USM-RODT routine. The 



DET-ROUT routines can be found by tracing 
from the 01-level statement containing the 
TYPE IS DETAIL clause. The generated 
instruction would look about like this: 



GN=032 



EQU * 



r ■ 1 

1 GN 


■ ■■■ - 1 

ROUTINE 1 


1 01 1 


RPH-ROUT 1 


1 02 1 


RPF-ROUT 1 


i 03 ] 


PGH-ROUT 1 


i 04 


PGF-ROUT 1 


I 05 1 


1ST-R0UT 1 


1 06 1 


LST-ROUT 1 


1 07 1 


WRT-SOUT I 


1 010 1 


CTB-ROUT 1 


1 Oil 


f ROL-ROUT 1 


1 012 


RST-ROUT \ 


1 016 


CEF-ROUT 1 


1 017 


CFF-ROUT 1 


I 020 


INT-ROUT 1 


1 021 


ALS-ROUT 1 


1 022 


RLS-ROUT 1 


I 023 


1 SAV-ROUT I 


1 024 


1 RET-ROUT 1 



Figure 84. RwS GN Numbers 
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This is the first instruction of the 
DET-RODT routine and 032 is the GN number. 



RWS LOGIC FLOWCHARTS 



Each DET-ROUT routine has one 
corresponding USM-RODT routine. The 
USM-RODT routine is assigned a GN number 
one less than its DET-ROUT routine^ in this 
case 031. 



Locating CTF-ROUT and CTH-ROOT Routines 



A set of flowcharts for a typical report 
writer subprogram is included in the 
Flowcharts chapter of this publication 
beginning with chart number 501- The logic 
of many of the routines varies with 
different source programs. The particular 
program used to produce this RWS is the 
report writer program ACME, which is used 
as the example in the publication IBM DOS 
Full American National Standard COBOL , 
Order No. GC28-6394. 



One CTF-RODT and one CTH-ROUT routine 
are assigned to each control after the 
highest (FINAL) level control (whose 
heading and footing are provided by the 
CRF-ROUT and CFF-ROUT routines) . If they 
are described in the source program, they 
may be found in the same way as the 
DET-ROOT routines. If not, they can be 
found by tracing the logic, using Figure 80 
as a guide. 



The CTF-RODT routines generated for DAY 
and MONTH, the two controls used in ACME, 
are virtually identical; therefore, only 
the CTF-ROUT flowchart for DAY is included. 
CTH-ROUT routines were not reguired for 
this source program for either control. 
Phase 12, therefore, generates dummy 
CTH-ROUT routines; these dummy routines are 
not included in the set of flowcharts. 
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APPENDIX D; GENERATED CODE FOR INPUT/OUTPUT VERBS 



This appendix shows the generated coding produced by the compiler for 
input/output verbs. The presentation closely follows the organization 
of phase 51, where input/output verb coding is generated (see 
"Input/Output Verbs" in that chapter for further discussion) . For each 
verb, the set of instructions is built in the seguence shown. For 
example, decision 1 is made and the code shown under it is accordingly 
skipped or generated, then decision 2, and so on. 



OPEN CODING 



If the file is opened more than one way in a program: 



MVC DTFPTR (4) ,SECPTP 



Secondary DTF address to current DTF 
pointer cell 



If OPEN OOTPUT and DTFSD: 



L 

LA 



KVC 

SH 

01 



1, DTFPTR 
2,224(1) 



0(224,2) ,0(1) 

1,=K»4» 

(1) ,X»80'' 



Beginning of DTF 

Get the address of the save area behind 

the DTF (+224) in order to save the 

entire DTP in case of subseguent OPEN 

OUTPUT statements 
Move the DTF 

Point to PRF-DTF switch byte 
Set PRE-DTF switch to indicate that DTF 

was saved 



If the file is ever closed with lock: 
L 1, DTFPTR 



15,=V(ILBDCLK0) 



BALR 14,15 



DTF pointer for subroutine to test the 
pre-DTF byte switch which indicates 
whether the file was closed with lock 

Subroutine to handle error condition 
(cannot open the file again if 
pre-DTF switch contains X»FF») 



If the STXIT option is requested and there is a standard error 
declarative for a unit record device: 



L 15,=V(ILBDABX0) 
BALR 14,15 



Subroutine to issue STXIT AB to estab- 
lish linkage to the user procedure 



If DTFDA and not relative track addressing, seguential access, OPEN 
INPUT: 



L 

SH 

xc 



1, DTFPTR 
1,=HM2» 
0(12,1) ,0(1) 



The three words preceding the DTF (for 
ERROR, BOF, and EOF addresses) are 
cleared before the OPEN, since 
different addresses may be used when 
the file is opened more than one way 
and there is only one DTF for a 
direct-access file 
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L 


1,DTFFTR 


Sfi 


1,=H»31» 


MVI 


14(1) ,X«00« 


XC 


0(3,1) ,0(1) 


MVI 


3(1) ,X»01» 


XC 


18(12,1) ,18(1) 


If 


there are any d 


I. 


1,DTFPTR 


SH 


1,=H»nn' 



Licensed Material - Property of IBM 
If DTFDA, relative track addressing, sequential, and OPEN INPUT: 



Initialize current-extent bucket 
Clear TTT of SEEK address 
Record 1 
Clear PN area 



Beginning of DTF 

nn=20 for DTFMT, SD (5 possible 

declaratives) 
nn=12 for DTFDA (3 possible 

declaratives) 
nn=4 for DTFCD, PP, IS (1 possible 

declaratives 

MVC 0(a,1),PNBOV Generated only if MT or SD with a BOV 

declarative 
MVC 4(4,1),PNEOV Generated only if MT or SD with an EOV 

declarative 
MVC 0(4,1),PNEOF Generated only if DA with an EOF 

declarative 
MVC 8(4,1),PNEOF Generated only if MT or SD with an EOF 

declarative 
MVC 4(4,1),PNBOF Generated only if DA with a BOF 

declarative 
MVC 12 (4,1) ,PNBOF Generated only if MT or SD with a BOF 

declarative 
MVC 0(4,1),PNERR Generated only if CD, PR, IS or DU, 

with an ERROR declarative 
MVC 8(4,1),PNERR Generated only if DA with an ERROR 

declarative 
MVC 16 (4,1) ,PNERR Generated only if MT or SD with an 

ERROR declarative 

If either DTFMT or DTFSD, and there are user-standard labels: 

PRE-DTF switch will be turned off to 
indicate to subroutine ILBDOSLO that 
any labels processed are BOF rather 
than BOV 

If DTFDA or DTFSD; note that during user standard label processing, 
a LBRET3 instruction is issued by subroutine ILBDUSLO if labels are 
being updated. Otherwise, a LBRET1 (no more label processing 
needed) or LBRET2 (GO TO more labels) is issued, depending on the 
declarative: 

If not already done 
If not already done 
Generated only for OPEN I-O 
Generated if not OPEN 1-0 
Spanned records indicator (generated 
only for DTFDA) 

10. If variable blocked records: 

L 1,DTFPTR Point to PRE-DTF switch if Rl does not 

SH 1,=H«4» already contain this address 

NI 0(1),X»EF» Indicates next WRITE will be the first 

one 

Note: Subroutine ILBDVBLO will not check the space available in the 
buffer the first time. It will set the PRE-DTF switch on so that, for 
each subsequent WRITE, the space available will be checked. 
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L 


1,DTFPTR 


SH 


1,=H»4>» 


NI 


0(1) ,X'»DF» 



L 


1,DTFPTR 


SH 


1,=H«4» 


01 


(1) ,X»40» 


NI 


(1) ,X»BF« 


01 


0(1) ,X»08" 
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11, 



If 


DTFDA: 






L 


4,DTFPTB 




01 


21(4) 


rX» 


80» 


NI 


21(4) 


rX* 


7?" 


01 


16(4) 


.x« 


80» 



Generated only if OPEN OUTPUT 
Generated only if OPEN INPUT 
Generated only if EOF labels 



12. 



If DTFMT and nonstandard labels: 



BALE 15,0 

CLI 93(13),X»00» 

BE 28(15) 

L 1,DTFPTE 

SH 1,=H»24» 

MVC 0(1,1) ,93(13) 

MVC 1(1,1) ,0(1) 



Establish addressability 
User-specified number of reels in TGT 
No - Skip next four instructions 
Set address of DTF-^24, where 2 bytes 
are set to the reel number for 
subroutine ILBDNSLO to count reels. 



13. If DTFMT, first or only file on reel, and OPEN NO BEWIND: 



L 
01 



1,DTFPTR 
32(1) ,XMO» 



Set byte 32, bit 3, in DTFMT to 
indicate OPEN NO REWIND 



14. 



If DTFMT and not the first file on the reel: 



L 1,DTFPTR 

LA 2, Number of file 

L 15,=V (ILBDMFTO) 

BALE 14,15 

01 32(1) ,XMO» 



Point to DTF 

Number (sequence) of this file on the 

reel 
This subroutine positions the reel 

to the requested file 
Indicate NO REWIND 



15. 



If DTFMT, DTPSD, DTFCD, or DTFPR , opened OUTPUT, and record format 
F or V: 



L 2,BL cell 
16. Basic OPEN codinq (qenerated in all cases) 



17. 



LA 

L 

LR 


1,=CL8»$$B0PEN» 

0,DTFPTR 

4,0 


CNOP 


2,4 


BALE 
ST 


15,0 
0,8(15) 


BALE 

DS 

SVC 


0,12(15) 

1F 

2 


If 


DTFMT: 


LA 

L 

BALE 


0,DTFPTE 

15,=V(ILBDIML0) 

14,15 



Transient subroutine 

Point to DTF 

Save DTF address for subroutine 

ILBDUSLO, ILBDNSLO, or TLBDSAEO 
Force fullword boundary after the next 

instruction 
Establish addressability 
Store DTF address for transient 

subroutine $$BOPEN 
Branch around DS instruction 
To contain DTF address 
Fetch transient subroutine 



Point to DTF 

Subroutine to save the PUB number of 

the first reel in a multiple-reel 

file 



18. If DTFMT and not OPEN NO REWIND: 



L 
01 



1,DTFPTR 
32(1) ,X»10» 



Point to DTF 

Indicate NO REWIND for CLOSE time 
unless REWIND was requested 



19. If OPEN OUTPUT, and not sinqle-buffered and not unblocked, 
and not DTFDA, and if variable records: 
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LA 



2,^^(2) 
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Point to data area of record, by- 
passing the first ^ bytes (the 
RECLENGTH field) . 



20. If OPEN OUTPUT, and not single-buffered and not unblocked, and not 
DTFDA, and if the records are either fixed, undefined, or variable 
records with two lOAREAS: 



ST 2,I0PTR Cell 
ST 2,BL cell 



If SAME RECORD AREA 

If not SAME RECORD AREA 



21. If DTEDA and OPEN ODTPOT: 



L 1,DTFPTR 

L 1 5, =V (Subroutine) 

BALR 14,15 



Point to DTP 

Subroutine to initialize the file by 
writing RO onto each track of the 
specified extents and an EOF record 
at the end of the last extent, as 
follows: 



22. 



If DTFIS and OPEN OUTPUT: 



ILBDFMTO, if not relative track 

addressing 
ILBDRFMO, if relative track 

addressing. 



L 
LA 



SVC 



0,DTPPTR 
1,=CL8«$$BSETFL» 



Point to DTF 

Transient subroutine to preformat 

tracks for loading or extending a 

file 
Fetch transient subroutine 



23. If DTFIS and OPEN INPUT and seguential: 



L 
L 


1,DTFPTR 

15, GN next sentence 


TM 
BCR 


16(1) ,X»20" 
1r15 


L 
LA 


0,DTFPTR 
1,=CL8»$$BSETL» 


CNOP 


2,4 


BALR 

ST 

BAL 

DC 

DC 

SVC 


15,0 

0,8(15) 

0,16(15) 

XL4»00» 

CL4»B0F • 

2 



Sentence beyond fetch, transient 

$$BSETL 
Was file assigned IGN 
Yes, branch around transient $$BSETL, 

otherwise fall through 

Transient which initiates the mode for 

seguential retrieval 
Force fullword boundary after the next 

instruction 
Establish addressability 
Store DTF address 
Branch around DC instruction 
To contain DTF address 
Retrieval begins at BOF 
Fetch, transient $$BSETL 



CLOSE CODING 



1. If DTFMT and either CLOSE WITH REWIND or CLOSE WITH LOCK: 



L 


1,DTFPTR 


NI 


32(1) ,X«EF» 


XI 


32(1) ,X"30« 


LR 


0,1 



Generated only if CLOSE WITH REWIND 
Generated only if CLOSE WITH LOCK 
Load DTF address into RO 



[Go to Number 4] 
2. If DTFIS: 
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[Go to Number 9] 



3. If not DTFMT CLOSE WITH REWIND or LOCK: 
L O^DTFPTR 

4. Basic coding for all files (CLOSE macro expansion) 



LP 4,0 



LA 



CNOP 

BALE 

ST 

BAL 

DS 

SVC 



L 
LA 



SVC 



1,=CL»$$BCL0SE» 
2,4 



15,0 

0,6(15) 

0,12(15) 

F 

2 



If DTFMT: 



0,DTFPTR 
1,=CL8»$$BFCMUL» 



Save DTF address in R4 for label 

subroutines 
Transient subroutine to close file 
Force fullword boundary after the next 

instruction 
Establish addressability 
Store DTF address 
Branch around next instruction 
To contain DTF address 
Fetch transient subroutine 



Transient to shift JIB pointers until 
the PITB pointer of the first volume 
of the file is found (for 
multiple-reel files) 

Fetch transient subroutine 



If DTFMT and CLOSE NO REWIND: 



L 


1,DTFPTR 


NI 


32 (1) ,X»CF» 


If 


DTFSD: 


L 


1,DTFPTR 


SE 


1,=H»4» 


BALR 


15,0 


TM 


(1) ,X»80» 


BZ 


22(15) 


LA 


1r^(1) 


LA 


2,224(2) 


MVC 


0(224,1) ,0(2) 



Indicate NO REWIND 



Point to Pre-DTP switch to determine 

whether this DTF was saved 
Establish addressability 
Was DTF saved (was it OPEN OUTPUT) 
No - Bypass next three instructions 
Point to closed DTF 
Point to save area 
Move initialized DTF into position for 

next OPEN OUTPUT 



8. If CLOSE WITH LOCK and file is opened only one way: 



L 1,DTFPTR 
SH 1,=H»4» 
MVI 0(1) ,X»FF» 



Point to Pre*DTF switch 

Indicate that file must not be reopened 



[Exit - End of CLOSE Coding] 

9, If CLOSE WITH LOCK and file is opened more than one way: 

Point to first secondary DTF pointer 
Point to Pre-DTF switch 
Indicate that file must not be reopened 
Point to second secondary DTF pointer 
Point to Pre-DTF switch 
Indicate that file must not be reopened 
Point to third secondary DTF pointer. 
(Note: skip this and the next two 
instructions if there is no third 
SDTF) 
Point to Pre-DTF switch 
Indicate that file must not be reopened 

[Exit -- End of CLOSE coding] 



L 


1,SDTFPTR1 


SH 


1,=H»4» 


MVI 


3(1) ,X»FF» 


L 


1,SDTFPTR2 


SH 


1,=H»4» 


MVI 


(1) ,X»FF« 


L 


1,SDTFPTR3 


SH 


1,=H»4* 


MVI 


0(1) ,X»FF» 
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10. If DTFIS and random access: 

[Go to number 3] 
11« If DTFIS and never opened as output: 

[Go to Number 14] 
12. If DTFIS and OUTPUT and two lOAREAs: 



L 15,16(1) 
BAL 14,6(15) 
DC X^AAOO" 



Address of logic module 
ENDFL routine 



[Go to 13] 
13. If DTFIS and OUTPUT and one or two lOAREAs: 



L 


0,DTFPTR 


LA 


1,=CL8'"$$BE]SIDFL 


SVC 


2 


LR 


1,0 


TM 


30(1), X'Ol' 


L 


15,=V(ILBDISE1) 


BCR 


7,15 



Transient subroutine to write last 
necessary block of data and on EOF 
record after it 

Fetch transient subroutine 

Check if EOF written 

If EOF record not written;, go to ISAM 
error subroutine to handle 



[GO to Number 3] 
14.. If DTFIS and opened either as sequential input or I-O: 



L 1,DTFPTR 
L 15,16(1) 
BAL 14^20(15) 



Address of LIOCS module 
Enter LIOCS module for ESETL (End 
Sequential Mode) 



[Go to Number 8] 
15. If RERUN specified for this file: 



LA 3 , CHKPTCTR 

CLI CHKPTCTR, X" FF" 

L 14,GN=XY 

BCR 8,14 

L 0, CHKPTCTR 

L 15,=V(ILBDCKP1) 

L 14,GN=XX 

BCTR 0,14 

BALR 14,15 

DC ALKSYSNO) 

DC CL7"File name" 
GN=XY 

L 0, Number of records 
GN=XX 

ST 0, CHKPTCTR 



If this is first record, 
branch around call to 
Checkpoint Subroutine - 

Number of records remaining. 

Checkpoint Subroutine 

If number of records left 

is not 0, branch around 

checkpoint. 

Parameter for subroutine 

Parameter for subroutine 

Maximum number of records 

Reset counter to maximum number of 
records. 



CLOSE REEL CODING (FOR DTFSD, DTFMT, AND DTFDA SEQUENTIAL INPUT ONLY) 



1. If DTFSD and CLOSE UNIT: 

CNOP 2,4 

L 0,DTFPTR 

LA 1,=CL8"$$E0SDEV' 



Force fullword boundary 

Address of DTF 

Transient subroutine to handle FEOVD 
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BALR 15,0 

ST 0,8(15) 

BAL 0,12(15) 

DC F'O' 

SVC 2 

If DTFDA, sequential input: 

L l.DTFPTR 

L 15, =V (Subroutine) 

BALR 14,15 



5, 



6.. 



7. 



Establish addressability 

Save DTF address in fullv^ord constant 

Bypass constant, addressing it with RO 

DTF address 

Fetch subroutine $$BOSDEV 



Subroutine to point to beginning of 
first extent specified on next 
volume, as follows: 

ILBDCRDO, if not relative track 

addressing, 
ILBDRCRO, if relative track 

addressing. 



3. If DTFDA, sequential input, with relative track addressing: 



L 1,DTFPTR 

L 15, =V (ILBDRCRO) 

BALR 14,15 



4, If DTFMT: 

L 1,DTFPTR 

LR 4,1 

NF 31(1), X'FD' 



Address of DTF 

Subroutine to point to beginning of 
first extent specified on next 
volume, for relative track addressing 



Point to beginning of DTF 

Save DTF address for label subroutine 

Turn off FORCE-REWIND indicator 



If DTFMT and CLOSE REEL with REWIND: 
NI 32(1), X'EF" Turn off NO-REWIND indicator 

If DTFMT: 



L 
BAL 



15,16(1) 
14,16(15) 



Address logic module 

Enter module for EOV processing 



If DTFMT and CLOSE REEL WITH REWIND: 

01 32(1), X'lO" Turn on NO-REWIND indicator 

3. If DTFMT or DTFSD, and variable records: 

LA 2,4(2) Point to data section of record 

9. If DTFMT or DTFSD, and fixed, variable, or undefined records and 
not single buffered, unblocked records: 



ST 



2,BL 



Save pointer to data record 



READ CODING 



1. If CHKPT was requested for this file: 



LA 


3,CHKPTCTR 


CLI 


CHKPTCTR,X"FF" 


L 


14,GN=XY 


BCR 


8 , GN=XY 


L 


0,CHKPTCTR 


L 


15,=V(ILBDCKP1) 


L 


14,GN=XX 


BCTR 


0,14 



If this is first record, branch 
around call to Checkpoint subroutine 



Number of records remaining 
Subroutine to issue checkpoint macro 

If count is greater than zero, subtract 
one and skip next four instructions 
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BALR 14^15 

DC AL1 (SYSNO) 

DC CL7»Pile name" 
GN=XY 

L ^Number of Records 
GN=XX 

ST OrCHKPTCTR 



If count equals zero, branch to 

subroutine to issue CHKPT 
Parameter for subroutine 
Parameter for subroutine 

Maximum number of records 

Reset counter 



Basic coding (generated in all cases) : 



L 1,DTFPTR 

L 15,GN(E0P) 

TH 16(1),X»20» 

BCR 1,15 



Pointer to beginning of DTP 

Address for EOF 

Was file assigned IGN 

Yes - Go to EOF 



3. If sequential and not unit record: 

LR 4,1 Save DTF address 

4. If spanned records and either DTFSD or DTFMT, multiple--reel 
file labels omitted: 

Address of record 

Point to RECSIZE field 

Force fullword boundary after the BALR 

instruction 
User EOF address 
Establish addressability 
Save EOPADDR in first fullword 
Save WORKAREA adds in second fullword 
Point to first DS 
Address of logic module 
Branch around next two constants 
To contain EOFADDR 
To contain WORKAREA address 
Enter logic module 

[Go to Number 10] 

5. If DTFMT, multiple reel file, labels omitted, and not spanned 
records: 

EOF address 

Establish addressability 

Address of instruction after BAL 

Address of logic module 

Enter logic module 

[Go to Number 10] 



L 


0,BL 


SH 


0,=H»4» 


CNOP 


2,4 


L 


5, EOFADDR 


BALR 


15,0 


ST 


5,20(15) 


ST 


0,24(15) 


LA 


5,20(15) 


L 


15,16(1) 


B 


8(5) 


DS 


F 


DS 


F 


BAL 


14,8(15) 



L 


5, EOFADDR 


BALR 


15,0 


LA 


3,12(15) 


L 


15,16(1) 


BAL 


14,8(15) 



If sequential access: 

LA 15,6N(E0F) 

MVC Disp(3,1) ,1(15) 

L 15,16(1) 

BAL 14,8(15) 



At end address 
Move EOFADDR into DTF 
Address of logic module 
Enter logic module 



7. If DTFDA and either random or sequential access 
LA 0, ACTUAL KEY 
SR 0,0 



Generated only if ACTUAL KEY is 

specified 
Generated only if sequential with no 

ACTUAL KEY specified 
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8. If DTFIS and sequential access: 



L 0,BL 



Point to user's record 



9. If DTFDA or DTFIS: 



L 5,GN (INVALID KEY) 
L 15^=V (Subroutine) 



BALE 14^15 

[Go to Number 12] 



Address of INVALID KEY routine 
Address of subroutine, as -follows: 
ILBDDSRO, if sequential access, DA, 

and not relative track addressing. 
ILBDRDSO, if sequential access, DA, 

and relative track addressing. 
ILBDDI01, if random access, American 

National Standard, and not relative 

track addressing. 
ILBDPDI1, if random access, American 

National Standard, and relative 

track addressing. 
ILBDDI02, if random access, IBM 

American National Standard, and not 

relative track addressing. 
ILBDFDI2, if random access, IBM 

American National Standard, and 

relative track addressing. 
ILBDISM3, if sequential access and 

ISAM. 
ILBDISM2, if random access and ISAM. 



10. If variable records: 

LA 2,i;(2) Point to data portion of record 

11. If two lOAREA's or blocked records, and not SAME RECORD AREA: 
ST 2,BL Reset BL to point to buffer in use 

12. If DTFIS and SAME RECORD AREA and one lOAREA: 



LH 2,100(1) 
L 2,4(2) 



Get address of 
lOAREA into R2 



13. If either SAME RECORD AREA and not single-buffered, unblocked or 
ISAM and SAME RECORD AREA: 



L 1,BL 

MVC (SECSIZE,1) ,0 (2) 



Point to SAME RECORD AREA 
Move data from buffer to SAME RECORD 
AREA 



l^t. If file has a subiect or an object of an OCCURS clause with a 
DEPENDING ON option: 



L 3,GN=NN 
BALR 2,3 



NN = GN number for the 
0-Routine for this file 



15. Basic coding, generated in all cases: 



L 15,GN=NN 
BCR 15,15 



NN = GN number of next sentence 

after AT END or INVALID KEY coding 



Note : This is followed by the expansion of the imperative statements 
following AT END or INVALID KEY. 
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1. If checkpoint is requested: 

LA 3^CKKPTCTR 
CL1 CHKPTCTR,X»FF» 
L ia,GN=XY 
PCR 8^GN=XY 



If this is first record, branch 
around call to Checkpoint subroutine 



L O^CHKPTCTR 

L 15,=V {ILBDCKP1) 

L 14,GN=XX 

BCTR 0,14 



BALR ia,15 



DC 

DC 
GN=XY 

L 
GN = XX 

ST 



AL1 (SY5N0) 
CL7»File name' 

0, Number of records 

O^CHKPTCTR 



Number of records remaining in count 
Subroutine to issue CHKPT macro 
instruction 

If number of records remaining is not 
0, subtract 1 and skip the next four 
instructions 

Go to subroutine 

Parameter for subroutine 

Parameter for subroutine 

load with maximum number of records 
Reset counter to maximum number 



2. Basic coding (generated in all cases) : 

L 1,DTFPTR Address of beginning of DTF 

3. If DTFDA: 

[Go to Number 27] 

4. If DTFTS: 

[Go to Number 28] 

5. If DTFPR, and single-buffered, unblocked, and an END-OF-PAGE test is 
required: 



01 2 (1) ,X»04" 
If one of the following controls is specified 



Indicate that device end posting is 
reguired 



a. WRITE {BEFORE or AFTER} (ADVANCING or POSITIONING] identifier 

b. WRITE {BEFORE or AFTER) {ADVANCING or POSITIONING] 
integer-greater-^than-3 

c. WRITE AFTER {ADVANCING or POSITIONING] with S/360 CTLCHR logic 
module: 



LA 



4, Identifier 



L 


2,I0PTR 


L 


3,BL 


MVC 


D (XX, 2), 0(3) 


L 


2,BL 


LA 


0, RECORD 


LH 


3,Lenqth 


L 


15,=V(ILBDSPA0) 


BALR 


14,15 


DC 


XL1»Flag» 


DC 


XL1»YY" 


DC 


XLVZZ» 


DC 


XL1»XX» 



Generated if Identifier is used in the 

WRITE statement 
Generated only if SRA and not MINCASF 

and not APPLY WRITE ONLY. 



Generated only if not APPLY WRITE ONLY 
Generated only if APPLY WRITE ONLY 
Length of record 
Subroutine to issue the I/O requests to 

the logic module 
See Note 1; below 
See Note 2, below 
See Note 3, below 

XX is 01 if WITH CODE is specified and 
00 if it is not 
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Note 1i 



Set To 






If 


00 






Binary data-name 


01 






Packed data-name 


10 






Zoned data-name 









BEFOPB 


1 






AFTER 









S/360 control characters 


1 






ASA control characters 


00 






Integer 


01 






Identifier 


10 






Mnemonic-name 


Remainder 


of 




Integer 








divided 


by 


3 





Bits 
& 1 



2 

3 
4 S 5 

6 S 7 



Note 2 ; YY = mnemonic-name eguivalant skip/space code, or guotient 
of integer divided by 3, or length of data -name 

Note 3: 

ZZ If 

00 Fixed records 

01 Variable unblocked records 

02 Variable blocked records and not APPLY WRITE 
ONLY 

04 Undefined records 

08 Variable blocked records and APPLY WRITE ONLY 

[Go to Number 21 ] 

7. If control was specified/ and if not DTFCD, and if no 
subroutine linkage was required: 

MVi RECORD, NN NN = control character for LIOCS 

8. If DTFCD with Mnemonic-name and a control is 

specified (see note under 9 below) : 

MVI RECORD, NN NN = control character for LIOCS 

9. If DTFCD with Identifier and a control character is specified: 

MVI RECORD, NN NN = POCKET SELECT 1 or 2 

L 2,BL Pointer to record 

MVC (1,2) , Data-name Move control character to first byte of 

record for POCKET SELECT 1 or 2 

Note: Subroutine ILBDSPAO is not required except in cases specified 
under 6 above. The appropriate spacing is placed in the first byte of 
the record by the code shown, and normal PUT linkage to LIOCS is 
generated. 



10. If spanned records: 



11 



L 


0,BL 


SH 


0,=H»4» 


If 


DTFSD: 


LA 


15, GN (INVKEY) 


LR 


^,1 


SH 


4,=H»4» 


BALR 


14,0 


TM 


(4) ,X»40» 


BO 


18(14) 


MVC 


NN (3,1), 1(15) 



Record address 

Point to record length field in front 
of record 



INVALID KEY address 

DTF address 

Fullword preceding DTF 

Establish addressability 

Was there an OPEN I-O 

Yes - Skip next two instructions 

Move INVALID KEY address into DTF 
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NN = 173 if variable or spanned records 
NN = 165 if undefined records 
NN = 161 if Fixed records 

01 16(1)rX«01» Indicate end of extent function 

requested 

Note: At end of extent^ go to user INVALID KEY address, 

12. If SAME RECORD AREA and two lOAREAs and not APPLY WRITE only 

a. If record length less than 2047 bytes: 

L 2^I0PTR Address of buffer 

L 3rBL Address of SAKE RECORD AREA 

HVC (Length, 2) ,0(3) Move record to buffer 

MVC 256 (length, 2) ,256 (3) If greater than 256 

b. If record length egual to or greater than 2047 bytes: 

L 5,I0PTR Address of buffer 

L 2,BL Address of SAME RECORD AREA 

LH 3,=H»RECSIZE» 

L 15,=V(ILBDMOV0) Move record to buffer 

BALR 14,15 

13. If variable-length and blocked records. 

L 2,BL Generated only if not APPLY WRITE ONLY 

and not SAME RECORD AREA or SAME RECORD 
AREA and single buffering 
Generated only if SAME RECORD AREA and 
double buffering and not APPLY WRITE 
ONLY 

Generated only if APPLY WRITE ONLY 
Generated only if not ODOs 
Generated only if ODOs 
Generated only if APPLY WRITE ONLY 

Subroutine to write variable-length 
blocked records 

[Go to Number 22] 

14. If variable or undefined records, and not SAME RECORD AREA: 
L 2,BL Address of record 

15. If variable or undefined records, and they contain an 
OCCURS... DEPENDING ON clause: 

LH 3,VLC Variable-length cell, containing length 

SH 2,=E»4« Point to record length field 

LA 3,4(3) Add 4 to include record length field 

STH 3,0(2) Put length in record length field 

16. If variable records and no OCCURS. . .DEPENDING ON clause: 

SH 2,=H»4» Point to record length field 

LH 3,=H»RECSIZE» Record length given by user 

LA 3,4(3) Include record length field 

STH 3,0(2) Store length in Record length field for 

LIOCS 

17. If variable records, of if undefined records with an 
OCCURS... DEPENDING ON clause: 
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L 


2,I0PTR 


LA 


2, sending field 


LH 


3,=H"RECSIZE» 


LH 


3,VLC 


LH 


5, =H 'SENDING FIELD 




LENGTH • or »VLC» 


L 


15,=V(ILBDVBL1) 


BALR 


14,15 
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XC 2 (2,2) ,2 (2) Set record half word of record length 

field to zero 

18. If undefined or spanned records, and no OCCURS .. .DEPENDING ON 
clause: 

LH 3,=H"RECSTZE» Record length for LIOCS 

19. If spanned records: 

AH 3,=H»4» Include record length field 

20. If any file except DA, IS, or PR with SR linkage: 

LR 4,1 If seguential but not unit record, save 

DTF address for label or error 
processing subroutine 
L 15,16(1) Address of LIOCS module 

BAL 14,12(15) Branch into logic module 

21. If variable and double buffered records: 

LA 2,4(2) Point to data, past record length 

field. 

22. If variable and double buffered records and SAME RECORD AREA: 
ST 2,I0PTR Save cell for lOAREA being used 

23. If variable records not SAME RECORD AREA, and two lOAREAs: 
ST 2,BL Address of 10 AREA 

24. If o-routines are required: 

01 73(13,X»01» Turn on CALCULATE MAXIMUM RECORD LENGTH 

indicator 
L 3,GN(Q-RrN) Address of Q-routine for this file 

EALR 2,3 
NI 73(13),X«01» Turn off CALCULATE MAXIMUM RECORD 

LENGTH indicator 

25. If END-OF-PAGE test required: 

L 15, GN (Next Sentence) For branch if not EOP 

NI 2(1),X»FB» Turn off DEVICE END posting request 

TM NN(1),X»01» Test for unit exception: 

NN = 4 if S/360 control characters 
NN = 39 if ASA control characters 

BCR 8,15 Not EOP, branch to next sentence; else, 

fall through to user's EOP coding 

26. If INVALID KEY is used: 

L 15, GN (Next Sentence) Address for bypass of INVALID KEY 

coding 
BR 15 Go to user's next sentence 
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27. 



If DTFDA: 



LA O^ACTKEY 

L 5,GN(INVKEY) 

L 15, =V (Subroutine) 



BALE ^^,^5 



Point to user's ACTUAL KEY for 

subroutine 
Address of user's INVALID KEY coding 
Address of subroutine, as follows: 
ILBDDIOO, if American National 

Standard WRITE and not relative 

track addressing. 
ILBDRDIO, if American National 

Standard WRITE and relative track 

addressing. 
ILBDDI03, if REWRITE and not relative 

track addressing. 
ILBDRDI3, if REWRITE and relative 

track addressing. 
ILBDDI04, if IBM American National 

Standard WRITE and not relative 

track addressing. 
ILBDRDI4, if IBM American National 

Standard WRITE and relative track 

addressing. 



28. If DTFIS and SEQUENTIAL REWRITE: 
L 0,=A (RECORD) 

29. If DTFIS: 



L 5,GN(INVKEY) 

L 15,=V (Subroutine) 



BALR 14,15 

[Go to Number 26] 

SEEK CODING 



Address of user's INVALID KEY coding 
Address of subroutine, as follows: 

ILBDISMO if WRITE SEQUENTIAL 
ILBDISM1 if RANDOM WRITE 
ILBDISM4 if RANDOM REWRITE 
ILBDISM5 if REWRITE SEQUENTIAL 



Basic coding, generated in all cases: 

Point to beginning of DTF 

Point to PRE-DTF area for SEEK address 
Move first seven bytes (MBBCCHR) 

of user's ACTUAL KEY to PRE-DTF area 
SEEK command code 
Logic module address (DTF+16) 
Enter logic module 



L 


1,DTFPTR 


LR 


15,1 


SH 


15,=H»26» 


LA 


3, ACTUAL KEY 


MVC 


0(7, 15), 0(3) 


LA 


0,7 


L 


15,42(15) 


BALR 


14,15 



START CODING 



1. Basic coding, generated in all cases: 



L 1,DTFPTR 

L 15, GN next sentence 

TM 16(1),X»20' 

BCR 1,15 



Point to beginning of DTF 

Sentence beyond INVALID KEY coding 

Was file assigned IGN? 

Yes. Branch around INVALID KEY coding. 
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L 

BAL 

L 



15,16(1) 
m, 20(15) 

0,DTFPTR 



Otherwise, fall through. 
Address of logic module for ESET 
Enter logic module 



Generated only if KEY EQUAL TO: 



LA 3rdata-name 

LH 5, 'LENGTH* 

L 15,=V(ILBDSTI^0) 

BALB 14,15 



Address of data-name containing key 

value 
Length of identifier 
Address of subroutine to move value of 

data-name to NOMINAL KEY and issue 
$$BSETL MACRO with 'GKEY' option 



3. Generated only if no KEY EQUAL TO: 



L 15,=V(TLBDSTR1) 

BALR 14,15 

TM 30(1) ,X»D8» 

L 15, GN Next sentence 

BCR 8,15 



Address of subroutine to issue 
$$BSETL MACRO with »KEY« option 
Test for SETL errors 
Sentence beyond INVALID KEY coding 
No errors; else, fall through to user's 
INVALID KEY coding 



DISPLAY CODING 



The coding generated for a DISPLAY statement consists of linkage to 
the DISPLAY subroutine or, when the OPT option has been specified, the 
Optimizer DISPLAY subroutine (ILBDDSSO) • The various forms of that 
linkage are discussed in the description of those subroutines in the 
publication IBM DOS/VS COBOL > Subroutine Library , Order No. LY28-6424. 



ACCEPT CODING: 



Basic coding, generated in all cases: 



L 15,=V(ILBDACP0) 

BALR 1,15 

DC XL2' Device Code» 



DC 



DC 



XL1»TYPE» 



XL3»MNN» 



DC AL4 (Base locator) 
DC XL2 'Displacements' 



Subroutine to read a record from 

SYSIPT or console 
The device codes are: 

X»0002», if CONSOLE 

X'0004', if SYSIPT 
The bits have the following meanings 

Bit 0-1: (not used) 

2 Variable Length 

3 : Pointer ADCON is direct 
4-7: (not used) 

If binary or internal decimal, M=length 

of input item and NN=length of 

converted result 
If variable length, MNN-the address of 

the VLC-cell; 

otherwise, MNN=length of the item 
Or AL4 (operand-text) if bit 3 of TYPE 

is set 
Displacement of text from base 
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USE CODING 




1. If 


USE -..ERROR: 




ST 
CNOP 


1U,SA2 
2,8 




BALR 
B 


15,0 
12(15) 




2. If 


USE. . .ERROR and 


GIVING. 


LA 
CNOP 


2, Data- name 
0,8 




3. If 


USE... ERROR and 


not GIV 


DC 


XL8"00' 




4.. If 


USE.. .ERROR and 


GIVING. 


ST 


1,BLL=N 





MVC 



Data-name, (1) 



Return address 

Force doubleword boundary after branch 

instruction 
Establish addressability 
Skip eight bytes 

•Option 1 (error bytes): 

User's error byte area 

Position to next doubleword boundary 

^G... Option 1: 

Indicates no request for error bytes 

.Option 2, i.e., data-name- 2: 

Point to error block. If D-N is in 
working storage, n=l; if D-N is in 
the linkage section, n=the number of 
the next available ELL. 

Move to user-defined area- This 
statement is generated by Phase 40 
The length of the buffer is the "TO" 
field of the operand; of the length 
of the record is the "FROM" field 



5, If USE.. -ERROR: 



L 
BR 



14,SA2 
14 



Restore return address 
Return to subroutine ILBDSAEO, 
ILBDDAEO, or ILBDISEO 



6« If USE LABELS: 



ST 
ST 



2,BLL=1 
4,SA2 



SAVE address of label 
SAVE DTF address 



If USE.. -LABELS and nonstandard labels: 



L 
L 
BR 

8. If 

L 
L 
BR 



4,SA2 

15,=V(ILBDNSL1) 

15 



Subroutine which will return control 
to user's procedure 



USE-.. LABELS and user-standard labels: 
4 , SA2 

15,=V(ILBDUSL1) Subroutine which will return control to 
15 user's procedure 



If GO TO MORE- LABELS and non-standard labels: 



L 4,SA2 

L 15,=V(ILBDNSL2) 

BR 15 



Restore DTF address 

Subroutine to return control to 

LIOCS to read or write the next label 



10- If GO TO MORE-LABELS and user-standard labels: 



L 4,SA2 

L 15,=V(ILBDUSL2) 

BR 15 



Restore DTF address 

Subroutine to return control to 

LIOCS to read or write the next 

label - 
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GLOSSARY 



The words listed below are defined 
according to their use in this book, and 
the definitions are not necessarily 
applicable elsewhere. Efforts have been 
made to exclude terms which are common in 
the programming profession unless they are 
used in a special sense. 



Associated file: 



A file on a 3525 card 



punch device with optional read and print 
feature for which more than one of the 
read, punch, or print functions has oeen 
specified in the ASSIGN clause of the 
SELECT sentence. 

ATF-text ; An internal compiler text 
generated by phase 20 for phase 22. It is 
used in preparing entries for the 
dictionary™ See "Section 5. Data Areas." 

ACCESS routines ; A group of routines which 
build and access the dictionary. They 
reside in storage as part of Phase 00. See 
"Appendix A. " 

Base Locator (B L) ; A 4-byte address cell 
in the TGT« There is one EL pointing to 
the Report Section, one to the 
Working-Storage Section, and one to each 
FD, SD, and RD entry. Any FD, SD, or RD 
entry exceeding 4,096 bytes will have one 
BL assigned to each 4,096 bytes. Phase 60 
loads a register with each address unless 
there are too many BLs. In that case, it 
loads registers with BLs as they are 
needed. BLs are assigned in phase 22. 

Base Locator for Lin k age Section (BLL) ; A 
4~byte address cell in the TGT. BLLs are 
assigned by counter and are unique. BLLl 
points to a work area used to process label 
records. BLL2 through BLLn are assigned to 
each 77-level and each 01-level entry in 
the Linkage Section. Any 77- or 01-level • 
entries exceeding 4,096 bytes have one BLL 
assigned per 4,096 bytes. BLLs are 
assigned in phase 22. 



BL: 



see Base Locator. 



COBOL space : The difference in length 
between the longest phase and the phase 
currently processing. This space is 
available to supplement the space initially 
assigned to TAMER. 

COMMON: A communications region available 
to all phases for storing and accessing 
information. It is resident in storage at 
the beginning of phase 00 and accessible 
via DSECTs to other phases- See "Section 
5. Data Areas." 

COUNT Table : A part of the object module 
only when the COUNT option is specified. 
It contains entries for each procedure-name 
and verb in the source program. 

Data A-text : An internal compiler text 
generated by phases 21 and 22, It is used 
by phase 6 to generate the data and global 
table areas of the object module. See 
"Section 5. Data Areas." 

Data IC-text : An internal compiler text 
generated by phases 10 and 12. It is used 
in phases 21 and 22 to create Data A-text. 
See "Section 5. Data Areas." 

Debug text : A type of deiDugging text which 
contains card numbers^ their displacement 
within the object module, the priority of 
each segment, and discontinuity elem.ents, 

DEF-text : An internal compiler text 
generated in phases 22 and 30. It is used 
by phase 61 to create the cross-reference 
table. See "Section 5- Data Areas." 

Delimiter : An internal compiler text 
category that consists of the following 
elements: critical program breaks, verbs, 
source procedure-names at point of 
definition, and compiler-generated 
procedure-names at point of definition. 

Delimiter pointer : A dictionary pointer to 
the next item with the same or a lower 
level number. 



BLL: see Base Locator for Linkage Section. 

COBOL Library Subroutine : One of a set of 
subroutines that perform frequently 
required operations and which, because they 
are too extensive to be efficiently placed 
into the object module wherever needed, are 
stored in the COBOL library and included in 
the load module by the linkage editor when 
needed. See the publication IBM DQS/VS 
COBOL Subroutine Library Program Logic , 
Order No. LY28-6424. 



Dictionary : A table, built by phases 11, 
21, and 22, in which is stored information 
about procedure-names and data operands. 
When SYMDMP is in effect, it is used by 
phase 25 to build the Debug File. It is 
used by phase 30 when creating Pl-text and 
then released. The dictionary format is 
shown in "Section 5. Data Areas." 

Dictionary attributes ; Descriptive 
information about a source program-name 
placed in the dictionary by phases 11, 21, 
and 22. Phase 30 replaces each name with 
its dictionary attributes. 
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Dictionary pointer ; The pointer to the 
location of an entry in the dictionary. 
Since it provides a unique identification 
for a name, it is retained and used by some 
phases after the dictionary has been 
released. 

E~text ; An internal compiler text 
generated by phases 10 through 51 whenever 
an error is detected. It is used by phase 
70 to generate error messages. See 
"Section 5. Data Areas." 

Fixed routine ; One of a set of routines 
generated by phase 12 as part of the Report 
Writer subprogram. Fixed routines never 
vary in logic content. See Appendix C. 

Fragment ; A portion of code having a 
maximum size of one less than 64K bytes 
(65,535) . A fragment begins with the first 
byte of a verb and ends with the last byte 
of a verb preceding the verb with a final 
relative displacement greater than 6^K 
bytes. This unit is used in processing for 
the SYHDMP or STATE option. 



GN: 



see Procedure-name. 



Group routines ; One of a set of routines 
generated by phase 12 as part of the Report 
Writer subprogram. There is one group 
routine for each 01 -level statement in the 
Report Section. See Appendix C. 

Incomplete Data A-text ; An internal 
compiler text generated by phase 20. It 
has a blank location field, later filled in 
by phase 22, and a 2-byte prefix. 
Otherwise, its format is that shown for 
Data A-text in "Section 5. Data Areas." 

Initialization routines ; Collectively, 
routines INITI, INIT2, and INIT3. These 
are generated by phase 60 as part of the 
object module. A discussion of them, 
including their coding, is provided in 
Appendix B. 

Intermediate A-text ; An internal compiler 
text generated by phase 50. It may be 
basically Procedure A-text or Optimization 
A-text and has an identification prefix 
attached for phase 51 » See "Section 5. 
Data Areas." 

Intermediate E-text ; An internal compiler 
text generated by phase 50. It consists of 
E-text to which an identification prefix 
has been added for phase 51. See "Section 
5. Data Areas." 



Main Free Area : Space in storage 
permanently allocated for tables and the 
dictionary . It is located immediately 
~af ter~(that~is7~~in'"next™~higher~location""of~ 
storage after) COBOL space. 



Major code ; A ^-bit code identifying the 
different types of dictionary entries. The 
codes are listed in "Section 5. Data 
Areas." 

Master of an OCCURS clause with the 
DFPENDING ON option ; A data-name for a 
variable-length croup item which does not 
itself contain an OCCURS clause with the 
DEFENDING ON option, but at least one of 
its subordinate items at the next level 
does contain an OCCURS clause with the 
DEPENDING ON option. See the "Phase 25" 
and "Phase 65" chapters and "Section 5. 
Data Areas." 

Minor code ; A 4-bit code identifying the 
type of operand in the dictionary entry of 
an LD item. The codes are listed in 
"Section 5. Data Areas." 

Object hierarchy ; The order of all group 
and elementary items defined within the 
second group item in a HOVE CORRESPONDING 
statement. 

Object module ; The result of a successful 
compilation. It is the output of a single 
execution of the compiler and is the input 
to the linkage editor. 

Opt i mization A-text ; An internal compiler 
text generated by phase 51. It is used by 
phase 60 to eliminate storage duplications. 
See "Section 5. Data Areas." 

Pa rametric routine ; One of a set of 
routines generated by phase 12 as part of 
the Report Writer subprogram. See Appendix 
C. 



PGT: see Program Global Table. 

PN; see Procedure-name. 

Priority ; see Segmentation. 

Procedure-name (GN^ PN » or VN) ; The name 
of a point in a program which can be the 
object of a branch instruction. PNs are 
user-assigned procedure-names which 
correspond to paragraph or section names in 
the Procedure Division of the source 
program. GNs are compiler generated and 
are inserted wherever a need for an 
additional name occurs. VNs are variable 
names; that is, they may vary at execution 
time because of a PERFORM or ALTER 
statement. All procedure-^names are unique 
since they include a number assigned by a 
counter (for example, PNI, VN2, GNI, and 
GN2) . See the chapter on phase 40 for a 
fuller discussion of procedure-names. 

Procedure A-text : An internal compiler 
~text~generated~by~phase~ 51^— It-is~simrlar — 
to assembler language and is used by phase 
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60 to create machine code for the object 
module. See ''Section 5. Data Areas." 

Procedure Block ; Unit of addressability in 
the machine language program which is 
produced when OPT is specified. Each 
Procedure Block consists of approximately 
4096 bytes of code. Most PNs and GNs 
within a Procedure Block are addressed as 
displacements added to a base register 
which contains the address of the first 
instruction of the Procedure Block. 

Procedure IC~tex t; One of a series of 
three texts, PO, P1, and P2r generated by 
phases ^^ , ^2, 2^, and 22 (PO-text) , 30 
(Pl~text) and 40 (P2-text) . They are based 
on the source program Procedure Division 
and Report Section statements, and 
represent stages in the translation process 
from source statement to Procedure A-text. 
See "Section 5. Data Areas." 

Program Global Table (P6T) ; A part of the 
object module. The PGT contains virtuals, 
literals, and addresses used during 
execution. See Appendix B. 

PO-text ; See Procedure IC-text. 

Pl-text ; See Procedure IC-text. 

P2~text ; See Procedure IC-text. 

Q-routine ; One of a set of routines 
generated by phase 22. Q-routines 
calculate the length of variable^length 
fields and the location of variably located 
fields resulting from an OCCURS clause with 
the DEPENDING ON option. 

REFHbext: An internal compiler text 
produced by phase 60 if the SXREF or XREF 
option is in effect. Phase 61 uses 
REF-text and DEF-text to produce a 
cross-reference listing. Each element of 
EEF-text consists of a user-assigned name 
and the card number of a statement that 
included that name. 

Root segment ; See Segmentation. 



SBL; See Secondary Base Locator. 

Secondary Base Locator (SBL) ; A 4 -byte 
address cell in the TGT. Pha.se 22 assigns 
a unigue SBL, using a counter in COMMON, to 
each variably located field. At execution 
time, each SBL points to its field. 
Variably located fields are those which 
follow a variable-length field and which 
are not new files or records; they occur as 
a result of OCCURS. . .DEPENDING ON 
statements in the source program. If a 
variably located field exceeds 4,096 bytes, 
phase 22 assigns one SBL to each 4,096 
bytes • 



Section; A series of source program 
procedure instructions grouped under the 
same section-name. 

Segment ; A section or a group of sections 
all having the same priority. 

Segmentation ; A special feature of the 
compiler which permits the programmer to 
organize his program into several load 
modules. Each section in the Procedure 
Division is assigned a priority number. 
All sections having the same priority are 
loaded together as a segment. One of 
these, the root segment, resides in storage 
throughout execution of the program . The 
other segments are loaded in order of the 
priority number, each segment overlaying 
the one before. 

Subject hierarchy ; The order of all group 
and elementary items defined within the 
first group item to appear in a MOVE 
CORRESPONDING statement. 

Table ; An area in storage containing a 
number of entries of a fixed, often 
identical, format. Many tables used within 
a single phase and all tables used by two 
or more phases are handled by the TAMER 
routines of phase 00. 

TAMER; A set of routines, resident 
throughout compilation as part of phase 00 
and accessible to all phases, which get 
space for, access, and build tables. Those 
tables which employ TAMER routines include 
those passed between phases and those used 
by a single phase and having a variable 
length. Usually, tables which have a fixed 
length and which are built, used, and 
released within one phase are not handled 
by TAMER routines. 

TAMER space ; Space in storage occupied by 
TAMER tables. It follows (that is, is in a 
higher location of storage COBOL space. 

Task Global Table (TGT) ; A part of the 
object module. The TGT contains 
information, addresses, and work areas for 
use during execution. See Appendix B. 

TIB (Table Information Block) ; One of 
thirty-six 8-byte cells in COMMON used to 
provide information about TAMER tables. 
The TIBs are numbered and can be reassigned 
after a table has been released. See 
Appendix A. 

TGT; See Task Global Table (TGT) . 

Transient area ; A portion of storage 
reserved during execution time to contain 
segments which are not permanently 
resident. It contains one such segment at 
a time and is large enough to hold the 
largest nonresident segment in the program. 
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UPSI: User Program Status Information. 
There are eight 1-bit UPSI switches 
provided by the DOS/VS system. The UPSI 
feature of this compiler provides the 
facility of naming and using these 
switches. Phases 10 and 22 perform the 
processing of this feature. 



necessary because of a CALL to an external 
procedure or a reference to a COBOL library 
subroutine. At execution time, the address 
of all procedures referred to by virtuals 
(which have been link edited into the load 
module) are stored in the Program Global 
Table. 



Verb string ; A verb and its operands. 

Virtual ; The name of a procedure switch or 
table referenced by a procedure, but not 
defined in the source module. It is 



VN: 



See Procedure -name. 
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building tables. 
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Contains installation default values of compilation parameters, determines user options. 
If LIB is specified, handles COPY and BASIC functions. 



Processes compilation parameters, determines buffer sizes for all phases, obtains storage for 
tables, dictionary, and buffers, enters information in COMMON, opens data sets. 



Activity of data sets and buffer assignments is summarized in Figure 10. 
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method of indentation, summary listing; lister option listing; punches source program 
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Reads source cards and stores information in the form of Data IC-text, builds tables, sets 
cells in COMMON, analyzes syntax, writes source on SYSLST if LIST is in effect or on 
SYS006ifLVL is in effect. 



If source program contains Report Section, generates Report Writer Subprogram (for the 
structure of this program see Appendix G "Report Writer Subprogram") as Data IC-text 
scans input for errors and generates E-text, writes Report Section on SYSLST if LIST 
is in effect (or on SYS006 if LVL is in effect), builds TAMER tables and sets COMMON 
cells. If VERB is in effect, generates Listing A-text. 



Translates VALUE and PICTURE clauses from Data IC-text to ATF-text, writes partial 
dictionary entry for each LD, scans input for errors and generates E-text, builds TAMER 
tables. 



Produces dummy FD and SD dictionary entries, builds CD, LD, RD, and ID entries, 
completes Data A-text, generates Q-routines, produces E-text, builds TAMER tables; 
completes FD and SD entries, writes Data A-text for DTFs, determines buffer sizes, 
produces E-text. 
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Creates PI -text; replaces source program names with dictionary attributes; builds Data 
Division Glossary of all source program data-names; performs special processing on 
procedure-names in segmented programs, verb strings, and verb strings with 
CORRESPONDING options; performs syntax analysis requiring dictionary; releases 
dictionary. 
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ILACBL40 



ILACBL50 



ILACBL51 



Phase 11 



Phage 30 



Phase 40 



Phase 50 



Phase 51 



DA 



JA 



MA 



Diagram 2. Part 5. Method of Operation: Procedure Division Translation 
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Diagram 2. Part 7. Method of Operation: Optimization of Object Module (Optional) 
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Diagram 2. Part 8. Method of Operation: Debug Data Set Creation (Optional) 
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optimizing literals 115 

PGT space allocation 118 

segmented program object text 122 
control and input/output diagram 485 
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Control breaks 10 U 

Control-field save-area names 448 

COPY library 

flag in Data IC-text 53 

phase 10 actions 39 
COPYPCH option 23 
COPYRN routine 53 
CORESIZE cell (COMMON) 281 
CORRESPONDING option 7 3 
CORRTN routine 73 
COS cell (COMMON) 275 
COS routine 

address location 24 

handling segmentation 34 

processing between phases 28 
COSPARM area 462 

COUNT CHAIN ADDRESS field (TGT) 432 
COUNT LINKAGE AREA field (PGT) 435 
COUNT option 

definition 21 

phase 40 processing 81 

virtuals required 99 
COUNT table 437,470 

COUNT TABLE ADDRESS field (TGT) 432 
counters in COMMON 113 
CRDNUMXX cell (COMMON) 28 2 
critical program break, action by 

phase 20 53 
cross-reference list 

(see also Lister option) 

diagram 497 

locating RWS elements 449 

phase 61 processing 144^145 

use of REF-text 118 ' 

used by phase 11 48 

used in phase 20 52 

used in phase 22 55 
CSYNTAX option 

(see also SYNTAX) 

definition 23 

phase 22 processing 59 

phase 30 processing 78 

phase 40 processing 91 
CTB-ROUT routine 

description 441 

flowchart 242 
CTF-ROUT routine 

description 446 

flowchart 253 
CTH-ROUT routine 44 6 
CTLoCHR cell 447 
CTLoLVL cell 447 
CTLTBL table 292 
CURCRD cell (COMMON) 

description 282 

locating processing record 410 

use in phase 20 52 

use in phase 22 55 
CURGCN cell 39 
CURRENCY-SIGN clause 4 
CURRENT- DATE register 370 
CURRENT PRIORITY field (TGT) 432 

set by phase 65 112 
CURSGN cell (COMMON) 

contents 40 

description 279 
CVIRTB table 

description 293 



optimizing virtuals 116 
segmented program object text 122 
virtual allocation 116 

"d" addressing parameter 60 
Data A-text 

associated file DTFs 67 

data-name DEF elements 58 

data-names and file-names 41 

definition 470 

description 34 9-350 

location on file SYS004 123 

phase 22 generation 58 

phase 60 processing 123 

purpose 123 

Q-routine identification elements 58 

VALUE clause constants 58 

Working- Storage Section address 
elements 58 
data areas 275-408 
Data Division 

addressing with OPT 132 

controlling processing 39 

processing by phase 10 41 

processing overview 18,477-480 

syntax analysis 4 3 

translation, diagram 487 
Data IC-text 

BCD names 53 

copied unchanged by phase 20 52 

data-name DEF elements 58 

data-names and file names 42 

definition 470 

description 341-347 

FD element 343 

FD entries 40 

FD processing in phase 10 42 

FILE-CONTROL paragraph 40 

input to phase 20 52 

items from Environment Division 4 

LD element 341 

processing in phase 20 53 

processing in phase 21 60 

RD element 343 

RD processing phase 10 42 

read by phase 2 53 

Report Writer data items 47 

SD element 343 

SD processing in phase 10 42 

use in phase 22 58 
data-names 

discussion 78 

location in storage 419 

REF-text elements 144 

reference elements 78 

subscripts 94,95 
DATABDSP cell (COMMON) 27 9 
DATATAB table 

description 3 98 

phase 25 processing 69 

phase 65 processing 128 
DATATBL table 293 
DATATBNM cell (COMMON) 281 
DATE cell (COMMON) 

description 28 2 

setting in phase 01 37,35 
DATE-COMPILED paragraph 40 
DBGTBL table 
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description 293 

generating P2-text 82 

processing verb strings 81 
DCPTR cell (COMMON) 278 
DDSCN routine 42 

debug data set, creation of,; diagram 495 
Debug File 395-405 

built by phase 25 6 9 

CARDINDX table 3 95 

built by phase 65 127 

DATATAB table 398 

built by phase 25 69 

information about 37 

OBODOTAB table 3 97 

built by phase 25 69 

phase 65 processing 127 

PROCINDX table 405 

built by phase 65 127 

PROCTAB table 404 

built by phase 65 126 

PROGSUM table 396 

built by phase 65 127 

SEGINDX table 405 

built by phase 65 127 

tables built by phase 22 59 
debug file tables 3 95 
DEBUG LINKAGE AREA field (PGT) 435 
debug options (see FLOW option; STATE 

option; SYMDMP option) 
DEBUG TABLE field (TGT) 

description 342 

phase 65 processing 126 
DEBUG TABLE POINTER field (TGT) 342 

set by phase 65 112 
Debug- text 

description 384 

phase 65 processing 126 

use in building Debug File 127,126 
DEBUG verb processing 

phase 11 processing 49 

phase 40 processing 82 
debugging compiler (diagnostic 

aids) 409-420 
debugging packet 82 
DECIMAL-POINT clause 40 
DECK option 

definition 21 

effect on buffers 37 

phase 60 processing 111 

phase 64 processing 141 
DECK option in LST card 24 
declaratives 

effect on coding 106 

OPEN verb 49 
Declaratives Section 

processing in phase 11 50 
DEF-text 

data- name DEF elements 58 

definition 470 

description 383 

from Procedure Division 19 

generation in phase 30 72 

location on file SYS 004 123 

processing by phase 60 123 

processing in phase 61 144-145 
DEFSBS table 

description 294 

MOVE statement 82 



DELETE verb processing 49 
delimiter 470 
delimiter pointer 

definition 470 

determining 41 

group items 55 
DEPENDING ON option 60 
DESTROY macro element 132 
DET-ROUT routine 

description 447 

flowchart 240 
DETTBL table 294 

device type, effect on coding 105 
DFREER routine 98 
diagnostic aids 409-420 

abnormal termination during 
compilation 409 

CE abstract worksheet 420,3 

dump produced 4 09 

erroneous compiler output 418 

error message listing 409,420 

input/output error messages 418 

linkage editor map example 420 

location of information in 
storage 409-410, 419 

register saving 418 

register usage 411-417,419-420 

storage layout 418 

tables used 410 
diagnostic assistance (CE) 420 
diagnostics 146-148 
diagrams, foldout 475-509 
DICADR cell (COMMON) 278 
DICNDl cell (COMMON) 

description 277 

use by phase 30 72 
DICND2 cell (COMMON) 

description 277 

use by phase 3 72 
DICOT table 

description 295 

use in phase 25 69 
DICPTR cell (COMMON) 278 
DICSPC routine 427 
DICTBD routine 

description 57 

elementary item processing 53 

purpose 55 
Dictionary 

addressing parameters (see IDK field) 

area 421,422 

assigning space 426 

building entries in phase 22 55-58 

completing entries in phase 22 57,55 

data- name entries 42 

Declaratives Section entries 50 

definition 470 

description 385-394,421-422 

dummy entries 55 
UPSI feature 40 

entries made by phase 22 55 

FD entries, filling in reserved 
space 60 

FD entry 386 

file attributes 61 

File Section entries 57 

file- name entries 42 

formats of entries 385-394 
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generating Pl-text 81 

glossary production 71 

handling, table and dictionary 4 21-429 

handling spill 28 

incomplete index- name entries 55 

index-name entry 38 9 

interaction with tables 50 

LD entry 388 

Linkage Section entries 58 

locating entries 421-422 

logical position in phase 22 55 

major code 385-389 

minor code 388,390 

organization 421 

PERFORM attributes 85 

phase 21 functions 6 

pointer 7 8 

pointer for WHEN statement 90 

preprocessing in phase 22 55 

procedure- name characteristics 50 

procedure- name entries 48,50 

procedure-name (paragraph) entry 385 

procedure- name (section) entry 38 5 

procedure-names 78 

Q-routine entries 58 

RD entry 388 

replacing names 78 

Report Section entries 58 

residence 421 

SD entry 387,60 

SEARCH processing 74 

searching sectioned Procedure 
Division 50 

skeleton FD entry 55 

space allocation 35 

spill onto disk file 422 

SYMDMP processing in phase 25 69 

Working-Storage Section entries 57 
Dictionary Area 421 
Dictionary attributes 

condition-name 78 

definition 470 

Q-routine bit 78 

replacing names 72 

substituting for names 78 
Dictionary entry formats 38 5-394 
Dictionary handling (see ACCESS routines) 
Dictionary pointer 

definition 471 

use after phase 3 78 

use in building OBODOTAB table 501 
Dictionary section addresses 421 
Direct A-text 99 
DIRECTOR routine 55 
directory 259-274 
DISCONTINUITY element 

(see also Debug-text) 

phase 65 processing 126 

use in building Debug File 127 
Diskette unit device 65 

DISPLAY literals, optimization for PGT 115 
DISPLAY LITERALS field (PGT) 

description 436 

optimizing with OPT 130 

space allocation 118 
DISPLAY statement 

entries in SPNTBL table 40 

output coding 468 



phase 11 processing 49 

phase 51 processing 106 

subroutine linkage 108 
DLSVAL cell (COMMON) 278 
DNCNT cell (COiy.MON) 28 2 
DNTORl routine 108 
DOP work areas 92 
DOS/VS system 

interface with compiler 24 

relationship with compiler 13 

returning control 28 

supervisor 418 

UPSI-feature-names 58 

use of Control Program 13 
double buffering, effect on coding 105 
drop tables (see DRPTBL table; DRPLTBL 

table) 
DRPTBL table 

description 295 

use in register assignment 132 
DRPLTBL table 

description 295 

use in register assignment 132 
DSPLAC routine 112 
DTF 

address element 67 

associated files 67 

choice of type 61 

COBOL bits 66 

COBOL indicators 66 

COBOLRWD bit 6 6 

common parameters 60 

constant definition elements 67 

DTFCD, number of DTFs 62 

DTFDA 

number of DTFs 62 
pre-DTF 62,63-64 

DTFDU 65,62 

DTFIS 

number of DTFs 6 2 
pre-^DTF 65 

DTFMT 

number of DTFs 62 
pre-DTF 62,63 

DTFPR, number of DTFs 62 

DTFSD 

number of DTFs 62 
pre-DTF 62,63 

generating 60-66 

lOAREA address 68 

location in object module 430 

location in storage 419 

number assigned 62 

number required 62 

order of addresses 419 

pointer location 105 

pre-DTF area 62 

REWIND bit 66 
DTF generation 60-66 

clause compatibility checking 6 
DTF generator 

functions 61-66 

GENDTFCD 61 

GENDTFDA 61 

GENDTFDU 61 

GENDTFIS 61 

GENDTFMT 61 

GENDTFPR 61 
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58 
58 



GENDTFSD 61 

selecting 61 
DTF number 

files with OCCURS, 
clauses 58 

OBJSUB table element 

QFILE table elements 
DTF parameters 

Record form 60 

Record size 60 
DTFADR CELLS field (TGT) 

description 432 

locating DTFs 418 

space allocation 113 
DTFCD 6 2 
DTFDA 

number of DTFs 62 

pre-DTF 62,63-64 
DTFDU 

niomber of DTFs 62 

pre-DTF 65 
DTFIS 

number of DTFs 62 

pre-DTF 6 5 
DTFMT 

number of DTFs 62 

pre-DTF 62,63 
DTFNOXX cell (COMMON) 28 2 
DTFNUM cell (COMMON) 

description 282 

TGT space allocation 113 
DTFPR 6 2 
DTFSD 

number of DTFs 62 

pre-DTF 62,63 
dummy entry for phase 8 50 
dump, producing for disaster-level 

messages 409 
dynamic dump request 

(see also SYMDMP option) 

phase 25 processing 69 

phase 65 processing 126 

E.nnnn name cells 447 

E-point name cells 448 

E-text 

definition 471 
description 382 
from Prodcedure Division 19 
identification prefix 90 
input to phase 20 52 
input to phase 3 71 
location on file SYS004 123 
phase 21 processing 60 
phase 30 processing 78 
phase 51 processing 104 
phase 60 processing 123 
phase 70 processing 146 
producing 19 
RECFORM parameter 61 
WHEN clause 90 
written by phase 12 47 

EACTBL table 146 

EACTOO area 147 

elementary report items 47 

ELIPR routine 58 

ENDSEG elements 

(see also Debug-text) 



phase 65 processing 126 

use in building Debug File 127 
ENTDEL routine 423 
ENTDIC routine 61 
ENTNAM routine 422 
ENTPTR routine 423 
ENTRDATA routine 69 
ENTRY-SAVE field (TGT) 432 
Environment Division 

controlling processing 40 

processing 40 

processing overview 18 

syntax analysis 43 

translation, diagram 487 
ENVSCN routine 4 
ENVTBL table 

APPLY clause switch 41 

CKPTBL bit 41 

description 296-298 

FNTBL table use 42 

MULTIPLE FILE TAPE switch 41 

phase 10 processing 40-42 

pointers 40 

POSITION INTEGER field 41 

SAME clause files 41 

SELECT clause entries 40 
EOF routine 92 
EOJ macro instruction 24 
EQUATE string 

built by phase 51 105 

used by phase 6 112 
ERF4SW cell (COMMON) 278 
ERMSG area 78 

erroneous compiler output 418 
error conditions 

(see also error messages; error 
processing) 

ATF-text 59 

background size 37 

BUF parameter 37 

checking by phase 20 52 

clause compatibility 52 

CORRESPONDING operands 73 

Data IC-text 58 

Dictionary requirements .72 

E-text 382 

EBCDIC key-names 58 

execution-time messages 418 

file-names after READ 72 

file-names after RETURN 72 

footnotes in phase 08 38.4 

I/O error messages 418 

invalid diagnostics 409 

messages from phase 01 37 

OCCURS... DEPENDING ON clauses 58 

phase 05 processing 38-1 

phase 08 processing 38.4 

phase 22 processing 59 

phase 30 messages 78 

phase 30 processing 7 8 

phase 70 processing 146-147 

premature EOF 37 

producing a diomp for disaster level 
messages 409 
^ SEARCH verb 75 

syntax checking 

in phase 05 38.1 
in phase 12 47 
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TAMER-detected 34 

unopened file 37 

unrecoverable 34 

using table SRCHKY 59 

using table VALTRU 59 
error message listing, obtaining 147 
error message parameters 146 
error messages 

(see also error conditions; error 
processing) 

diagram 497 

disaster level 4 09 

execution-time 418 
(see also phase 70) 

FIPS flagging 148 

identification code 420 

input/output 418 

invalid 420 

listing 147 

parameters 146 
error processing 

(see also error conditions; error 
messages) 

COBOL word checking 91 

E-text severity code 104 

operand-checking 91 

phase 40 91 

severity code 104 

unit-record error 106 

verb checking 91 

WHEN conditions 90 
ERROR routine, phase 30 7 9 
ERROR routine, phase 4 91 
errors detected by .TAMER 34 
ERRPRO routine 104 
ERRS option 21 
ERRSEV cell (COMMON) 

description 278 

testing for SUPMAP 111 

use by phase 51 112 
ERRTBL table 

description 299 

saving E-text 14 6 

spilling 146 
ESD (External Symbol Dictionary) 114 
EVAL string 88 
execution-time statistics (see COUNT 

option) 
EXHIBIT statement 49 
EXIT verb, phase 11 processing 49 
EXIT5 routine 92 
External Symbol Dictionary (ESD) 114 



FD (see file description entries) 
FD element 

(see also file description entries) 

Data IC-text 341 

Dictionary entry 386,387 
FDTAB table 

description 299 

phases 22 and 21 59 
federal information processing standard 
(FIPS) 

diagnostic messages 148 

flagging 38 

LVL option 22 

phase 01 processing 38 



phase 8 processing 148 

scanning source program 148 

SYS006 22,148 
FIB (VSAM file information block) 68 
FILE-CONTROL paragraph 4 
file description entries (FDs) 

assignment of BL number 57 

Dictionary entries 57,60 

dummy dictionary entries 55 

processing in phase 10 42 

processing in phase 20 52,53 

processing in phase 21 60 
file handling 29-34 

file information block, VSAM (FIB) 68 
file-name reference items 78 
file-names 

following RETURN 7 2 

phase 30 processing 78,72 

REF-text elements 144- 
File Section 

Dictionary entries 58 

phase 10 processing 43 

phase 20 processing 53 
FILE STATUS clause processing 41 
FILEST routine 53 
FILTBL table 

description 299 

optimizing VNs 114 
FIL5BUF cell (COMMON) 281 
FIPS (see federal information processing 

standard) 
fixed routine t definition 471 

(see also Report Writer Subprogram) 
flag, FIPS 22 
FLAGE 21 
FLAGW 21 
FLOW option 

compiler overview 18-20 

definition 21,126 

diagram 477-480 

file handling for 29-34 

INIT3 instructions 438 

parameters 35 

phase 25 processing 6 9 

phase 51 processing 105 

phase 65 processing 126,127 

PHZSWl switch (COMMON) 28 4 

procedure A-text processing 118 
segmented program 122 

TGTADTBL table 333 

vi;rtuals required 99 
Flow Trace Table 

allocation in phase 65 126,127 

description 437 
flowcharts 149-258 

explanation of symbols 150 

label directory 259 

Report Writer Subprogram 240-258,453 
FLOWSZ cell (COMMON) 

description 279 

tested in phase 65 126 
FLUSH routine 

description 47 

relationship to other routines 45 
FNTBL table 

description 300 

entries for USE sentences 50 

finding file-names 50 
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use for file section processing 42 
foldout diagrams 475 
forward branch tables 
GNFWDBTB table 

description 301 

use in phase 62 
PNFWDETB table 

description 313 

use in phase 62 161 
free area 426 
FREE macro element 132 
FRS.GEN cell 447 
FRS.GRP cell 448 
FSTCDNMl cell (COMMON) 28 2 
FSTEXT routine 53 
function-names for UPSI 58 

GANLNO cell 92 
GATXTV routine 99 
GCNTBL table 300 
GENASC routine 68 
GENDAT routine ,75 
GENDTFCD routine 67 
GENDTFPR routine 68 
GENERATE statement 

diagram of first RWS response 44 9 

diagram of succeeding RWS responses 450 

RWS response 449-451 
generated card number ^ REF-text 

element 144,145 
generated code for input/output 

verbs 454-469 
generated name (see procedure-names) 
GENERATED NAME CELLS field (PGT) 

description 436 

space allocation 117 

space allocation with OPT 131 
GENNOD routine 92 
GENOP routine 78,72 
GENPAR routine 92 
GENTIM routine 92.1 
GET macro instruction 106 
GETALL routine 429 
GETCRD routine 

function in phase 10 39 

function in phase 11 50„48 
GETDLM routine 

function in phase 10 39 

function in phase 11 50 

function in phase 12 45 
GETF2 routine 126 
GETNXT routine 92 
GETPTR routine 423 
GETWD routine 

function in phase 10 39 

function in phase 11 50,48 
GLORET routine 71 
GLOSRY routine 

coding organization 71 

description 71,72 
Glossary 

DTF numbers 419 

finding RWS elements 449 

locating data 419 

production 71 
GN number 

allocation 117 

with OPT 131 



data-name references 78 

DEBUG procedure 8 2 

definition 471 

deleting XSCRPT entries 95 

effect of ALTER/GO TO pair 82 

eliminating duplication 105 

file-name references 78 

from Declaratives Section 50 

generated for error declaratives 50 

generated for label declaratives 50 

locating RWS routines 449 

optimizing 114 

optimizing with OPT 134,129 

phase 50 processing 92 

phase 51 processing 105 

Q- routines 58 

segmented program 108 

simple IF statement 88 
GNATBL table 

description 301 

used by phase 62 130 
GNCALTBL table 301 
GNCTR cell (COMMON) 

allocating GN numbers 117 

assigning GN number 50 

building GNTBL table 114 

description 276 

PERFORM statements 85 
GNFWDBTB table 

description 301 

use in phase 62 133 
GNLABTBL table 

built by phase 62 134^133 

description 302 
GNLBDTBL table 

description 302 

used by phase 64 134 
GNLIST work area 105 
GNSPRT routine 

description 47,45 

relationship to other routines 45 
GNTBL table 

description 302 

GN space allocation 117 

optimizing GNs 114 
GO statement 

effect on SEARCH verb 90 

segmented programs 108 
GO TO NEXT SENTENCE statement 

exit from SEARCH 90 

generated by SEARCH verb analyser 90 
GO TO verbs 4 9 
GOBACK verb analyzer 105 
GP.nnnn cells 447 
GPLSTK table 

description 303 

generating Data A-text 58 

use in Dictionary building 57 
group routine, definition 471 

(see also Report Writer Subprogram) 
GRP.IND cell 447 
GSPICT routine 53 
GTEQIOK routine 127 
GTLNG cell (COMMON) 281 
GUI work area 53 
GVFNTBL table 

description 304 

phase 11 processing 50 
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GVNMTBL table 

description 304 

phase 11 processing 50 



HASH table 73,421 

hierarchy of arithmetic operators 87 



I-0-CONTROL paragraph 41 
ICTEXT work area 42 
IDBRK routine 92 
IDDSCN routine 39 
IDENT routine 81 
Identification Division 

controlling processing 39 

processing 39 

processing overview 18 

syntax analysis 43 

translation, diagram 487 
IDENTL cell (COMMON) 279 
IDK field 

base register assigning 122 

data-name subscripts 94 

defined 57 

DOP work area 93 

literal subscripts 94 

optimizing subscripts 95 

Working-Storage Section 57 
IDLHN routine 

DEBUG statement 82 

PERFORM processing 85 

Pl-text processing 81 
IDLH03 routine 92 
IDIPTR work area 75 
ID5 routine 92 
IF routine 8 8 
IF statements 88 
ILBDABXO 

linkage included by phase 51 106 
ILBDDSPO 

example of linkage codes 109 

generating call 108 
ILBDSEMO 

generating call 108 
ILBPSMVO subroutine 108 
ILBDVIOO subroutine 110 
ILBDVOCO subroutine 110 
incomplete Data A-text 

completing elements 58 

definition 471 

generating in phase 20 53 
incremented address element 139 
INDEX cell (COMMON) 281 
INDEX CELLS field (TGT) 

contents 96 

description 432 

space allocation 113 
index-names 

direct indexing 96 

indirect indexing 96 

processing formula 96 

processing in phase 50 96-98 
indexed references, phase 50 
processing 96-98 

(see also index-names) 



INDEXl cell (COMMON) 
description 27 9 
TGT space allocation 113 
INDKEY table 

description 305 
phases 22 and 3 processing 59 
phase 30 searching 74 
SEARCH Format- 1 75 
SEARCH Format-2 77 
INDXTB table 305 
IND2TBL table 306 
initialization routines 
concept 123 
definition 471 
INITl 

coding 430 

description 431 

functions 430 

location in object module 430 

purpose 123 
INIT2 

coding 436 

description 437 

functions 437 

location in object module 430 

purpose 123 
INIT3 

coding 438 

description 437 

functions 437 

loading base registers 122 

location in object module 43 

purpose 123 

RLD-TEXT 123 

use of QGNTBL table 140 
location 123 
order written 123 
INITIATE statement 

locating INT-ROUT routine 452 
phase 11 actions 44 
response of RWS 440-445 
INITl 

coding 430 
description 431 
functions 430 

location in object module 430 
purpose 123 
INIT2 

coding 43 6 
description 437 
functions 437 

location in object module 430 
purpose 123 
INIT3 

coding 438 
description 437 
functions 437 
loading base registers 122 
location in object module 430 
purpose 123 
RLD-TEXT 123 
use of QGNTBL table 140 
input 

COMPUTE statements 87 
error messages 418 
phase 05 38-1 
phase 06 38.2 
phase 08 38.4 
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phase 12 46 

phase 20 52 

phase 22 56 

phase 30 71 

phase 50 92 

phase 51 104 

phase 70 146 

phase 80 148 

read from SYSIPT 14 

SEARCH ALL statement 8 9 

segmented program 121 
input card number 55 
input/ output 28 

input/output, control and, diagram 48 5 
input/output error messages 418 
Input-Output Section 4 
input/output verbs 

coding 454-469 

influences on coding 106 

phase 11 processing 49 

phase 51 processing 106 

register usage 106 

VSAM 110 
INSERT routine 428 
INT-ROUT routine 

description 441 

flowchart 255 
INT-routines, processing between phases 2i 
INTACC routine 422 

Intermediate A-text, definition 471 
Intermediate E-text 

definition 471,104 

input to phase 51 104 
Intermediate Optimization A-text 104 
Intermediate Procedure A-text 104 
intermediate REF-text 107 
intermediate results, maximum operand 
size 97 

(see also COMPUTE statement) 
internal texts 341-384 

A-text generation 99 

generated by phase 05 38.1 

generated by phase 12 46 

generated by phase 20 52 

generated by phase 22 56 

identifier byte 341 

list 16-18 

phases producing 16-18 

produced from Data Division 18 

produced from Procedure Division 19 

processing 14 

use of work files 29-34 
INTVIRT cell (COMMON) 282 
INTVLC routine 58 
INVALID KEY option 67 
lOAREA area 

address in DTP 68 

buffer generation 68 
lOPTBL table 30 6 
lOPTR CELLS field (TGT) 

description 433 

space allocation 113 
lOPTRCTR cell (COMMON) 

description 27 9 

TGT space allocation 113 
IP-text 16 
IPLT work area 53 
IPRECS cell (COMMON) 286 



IPT work area 53 
IPTBUF area 410 
ISTRUV routine 92 . 



KDECML field 40 

KEYTAB table 306 

KEYTBL table 

description 307 
processing SEARCH ALL 

KILSUB routine 103 
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label records, effect on coding 106 
LABELS cell (COMMON) 276 
LABTBL table 

description 3 07 
LATACP routine 424 
LATGRP routine 425 
LATRNM routine 423 
LATRPT routine 424 
LCSECT cell (COMMON) 278 
LD (see record description entries) 
LD element 

(see also record description entries) 

Data IC-text entry 341 

Dictionary entry 388 
LDELNM routine 424 
LDTEXT routine 53 
LDTEXT work area 42 
LENGTH OF SORTAB field (TGT) 433 
LENGTH OF VN TBL field (TGT) 433 
level-number entries 

(see also record description entries) 

Data IC-text entry 341 

Dictionary entry 388 
LIB option 22 

effect on Lister 38.1 

processing 37 
library subroutines (see COBOL subroutines) 
LIN.NUM cell 448 
LINoSAV cell 448 
LINE-COUNTER cell 447 
LINECNT cell contents 37 

SYMDMP output 126 
LINECT option 21,35 
LINK option 

definition 21 

effect on buffers 36 

phase 60 processing 111 

phase 64 processing 141 
LINKA routine 

calling phase 01 24 

functions 24,28 

processing between phases 28,24 

updating LINKCNT 24 
linkage codes 

definition 24 

end of compilation 27 

list 25 

segmentation 3 4 
linkage editor map 

compiler 265-274 

executed program example 420 
Linkage Section 

dictionary entries 58 

processing in phase 10 43 
LINKB routine 
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Procedure Block 

(see also optimization (OPT) processing) 
definition 472 
for PERFORM statement 8 4-86 
PROCEDURE BLOCK CELLS field (PGT) 
description 436 
space allocation 131 
PROCEDURE BLOCKl PTR field (TGT) 

description 434 
Procedure Division 

encoding in PO-text 48 
generated code location 436 
listing 48 

processing by phase 11 48 
processing overview 477 
sectional 50 
translationi, diagram 489 
Procedure IC-text, definition 498 

(see also PO-text; Pl-text; P2-text) 
PROCEDURE NAME CELLS field (PGT) 
description 435 
effect of ALTER 83 
space allocation 117 

with OPT 131 
procedure-name reference 78 
procedure-names 

DEBUG attribute 82 
definition 471 
dictionary attributes 78 
Dictionary entry 385 
duplicate GNs 105 
equate strings 105 
GN number 

data-name references 78 

DEBUG procedure 8 2 

definition 471 

deleting XSCRPT entries 95 

effect of ALTER/GO TO pair 82 

eliminating duplication 105 

file-name reference 78 

from Declaratives Section 50 

generated for error declaratives 50 

generated for label declaratives 50 

locating RWS routines 449 

optimizing 114 

optimizing with OPT 133,129 

phase 50 processing 92 

phase 51 processing 105 

Q-routines 58 

segmented program 108 

simple IF statement 88 

space allocation 117 
with OPT 131 
PERFORM statement 8 5 
PN number 

ALTER statements 8 2-8 4 

DEBUG 8 2 

definition 471 

deleting XSCRPT entries 95 

optimizing 114 

phase 50 processing 92 

phase 51 processing 105 

segmented program 108 

space allocation 117 

without reference 105 
REF-text elements 144,145 
replacement of 78 
segmented proaram 7 8 



space allocation 117 

space allocation with OPT 131 

VN number 

ALTER statements 8 2-84 

deleting XSCRPT entries 95 

definition 471 

effect of ALTER/GO TO pair 82 

GO string object 8 4 

optimizing virtuals 116 

PERFORM Statement 8 4-8 6 

phase 50 processing 92 

phase 51 processing 105 

segmented program 108,105 

VNPTY table entry 114 
processing between phases 24 
PROCINDX table 

built in phase 65 127 
description 316 
PROCTAB table 

built in phase 65 126 
description 404 
PROCOl routine 4 5 
PROC02 routine 47 
PROGID cell (COMMON) 276 
program breaks, use by phase 50 92 
Program Global Table (PGT) 435-436 
allocating space 116,130 
base register 122 
concept 435 
definition 472 
diagram of fields 435 
fields 

COUNT LINKAGE AREA 435 

DEBUG LINKAGE AREA 435 

DISPLAY LITERALS 436 

GENERATED NAME CELLS 43 6 

LITERALS 436 

OVERFLOW CELLS 435 

PROCEDURE BLOCK CELLS 436 

PROCEDURE NAME CELLS 435 

SUBDTF ADDRESS CELLS 436 

VIRTUAL CELLS 435 

VNI CELLS 436 
GN allocation 117 
listing 116 

location in object module 435 
LTLTBL table displacements 115 
optimizing literals 115 
optimizing space 112,116 

with OPT 131 
optimizing virtuals 116 
overflow allocation 116 
PN allocation 117 

residence in segmented program 121 
virtual allocation 116 
PROGRAM- ID statement 39 

program organization (flowcharts) 149-258 
PROGSUM table 

built in. phase 65 127 
description 3 96 
PSHTBL table 

description 317 
IF statement 8 9 
PSIGNT table 

COMPUTE processing 87 
description 317 
IF processing 88 
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PSVCTR cell (COMMON) 

description 280 

TGT space allocation 113 
PTRFLS table 

description 317 
PTYNO cell (COMMON) 278 
PUT macro instruction 106 
PUT routine 118 
PUTDEF routine 105 
PO-text 

condition string 78-80 

CORRESPONDING option 73 

definition 472 

description 351-358 

encoded by phase 11 48 

input to phase 30 71^72 

Report Writer group routines 45 

SEARCH Foritiat-i 75-76 

SEARCH Forinat-2 77 

translation 72 
Pl-text 

condition string 7 8-80 

condition-name 78 

CORRESPONDING option 73 

data-name reference element 72 

definition 472 

description 359-3 63 

determining type 7 8 

dictionary attributes 78 

file-name 78 

generation 72 

phase 40 processing 81 

procedure-name 78 

replacing names 78 

SEARCH statement 
SEARCH ALL 89 
SEARCH Format- 1 75-76 
SEARCH Format-2 77 

syntax analysis 91 
PIBTBL table 

description 318 

Report Writer flag 44 
P2-text 

DEBUG 82 

definition 472 

description 364-371 

DISPLAY coding 109 

indexing 96 

input to phase 51 104 

MOVE statements 81 

nested IF statement 89 

ON statement 107 

passed by phase 50 93 

PERFORM output 86 

phase 40 processing 81 

presentation 93 

SEARCH ALL Statement 89 

SEARCH statement 89 

subscript optimizing 95 

verb strings 81^, 92 

VN for ALTER 82 

Q-routine bit 78 
Q-routines 

(see also OCCURS^ DEPENDING ON clause) 

definition 498 

discussion 436 

EXAMINE verb 103 

generation 58 



identification elements 58 

location in object module 430 

location in segmented program 121 

MOVE verb 103 

object module 436 

0D2TBL table^ use of 42 

optimization (OPT) processing 139 

processing OCCURS, . -DEPENDING ON 
clauses 58 

purpose 55 

TRANSFER verb 103 
QALTBL table, description 319 
QBUILD routine 58 
QFILE table 

description 319 

file-name references 78 

phase 22 and 30 58 

Q-routines^, use in generating 58 
QGNTBL table 

built in phase 63 140 

description 319 
QITBL table 

description 320 

Q-routines, use in generating 58 

phase 25 processing 69 
QLTABL table, description 320 
QNMTBL table 

data-name from APPLY clause 41 

description 320 

File Section processing, use in 42 

phase 10, use in 40,41 
QRTN table 

description 321 

Q-routines^ use in generating 58 

used by phase 25 6 9 
QSBL table, description 321 
QTBL table, description 321 
QUALIF routine 75 
qualified names 75 
QUE routine 37 
QUOTE option 21 
QVAR table 

description 322 

finding GN numbers 78 

generating Q-routines 58 

phases 22 and 30 58 
QVARBD routine 58 



RCDTBL table 

description 322 

searching for REWRITE verbs 49 

searching for WRITE verbs 49 

use by phase 10 42 
RD (report description entries) 55,57 
RD statement 

Data IC-text 343 

Dictionary entry 385 

phase 12 actions 45 
RDFSTK table 

description 323 

use in dictionary building 57 
RDF2 routine 126 
RDSCAN routine 45 
RDTXT routine 57 
READ statement 

error 72 

output coding 460 
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phase 30 processing 72 

phase 51 processing 106 

READ verb strings 7 2 
READFN routine 72 
READF4 routine 55 
READY verb 49 
RECCONT routine 60 
RECFORM parameter 61 
RECFORM parameters supported 61 
RECORD CONTAINS clause 

determining record size 60 

selecting record form 61 
record description entries (LDs) 

completed dictionary entries 57 

dictionary entries 55 

processing in phase 10 42 

processing in phase 20 53 

translation in phase 20 52 
record form 60 

record organization, effect on coding 105 
record size 60 

recording mode, effect on coding 105 
RECORDING MODE clause, selecting record 

form 61 
REDEF routine 57 
REDEFINES clause 

entries in Dictionary 57 

processing by phase 22 45 
REF~text 

contents 144,145 

definition 472 

phase 60 production 118 

phase 61 processing 144,,; 145 
REFTBL table 

description 421 

overflow handling 144 

phase 61 processing 144 
REGATT area -75 
register assignments 

object module 122 

optimizing 14 and 15 133 

permanent 132 

temporary 132 
register handling routines 98 
register save areas 4 69 
register saving 418 
register usage 

compile time 411-417 

execution time 419,420 

saving 418 
REGMTX table 118,122 
RELADD cell (COMMON) 275 
RELLOC cell (COMMON) 281 
Relocation Dictionary (RLD) 

phase 60 processing 123 

virtuals 114 
RENAMES clause 

Dictionary entry adjustment 55 

processing in phase 22 53 
RENAMS routine 55 
RENAMTB table 

built by phase 22 59 

description 323 

used by phase 2 5 6 9 
REPORT clause 44 

report description entries (RDs) 55,57 
Report Section 

Dictionary entries 58 



encountered by phase 10 41 
listing 47 
processing 44-47 
related statements 45 
translating 14 
Report Section header, phase 10 actions 44 
Report Writer feature (see phase 12; Report 

Writer Subprogram) 
Report Writer REDEFINES clause 45 
Report Writer Subprogram (RWS) 440-453 
COBOL word data-names 447-448 
control-field save-area names 45 
data-names 447-448 
data items 447-449 
definition 440 

DET-ROUT routine, from GENERATE verb 4 4 
E-Point data item, REDEFINES clause 45 
elements 440-449 
fixed routines 440 
description 440 
LST-ROUT 

description 440 
flowchart 256 
WRT-ROUT 

description 440 
flowchart 246 
IST-ROUT 

description 440 
flowchart 241 
flowcharts 240-258 , 453 
general concept 392 
group routines 446 
CFF-ROUT 

description 446 
flowchart 257 
CHF-ROUT 446 
CTF-RCUT 

description 446 
flowchart 253 
CTH-ROUT 44 6 
description 446 
DET-ROUT 

description 447 
flowchart 240 

generating initial coding 44 
PGF-ROUT 

description 446 
flowchart 244 
PGH-ROUT 

description 446 
flowchart 251 
RPF-ROUT 

description 446 
flowchart 258 
RPH-ROUT 

description 446 
flowchart 247 
INT-ROUT routine from INITIATE verb 44 
LAST-ROLL instruction 440 
location of data items 449 
locations of elements 449-453 
logic flow diagram 442-449 
LST-ROUT routine from TERMINATE verb 44 
nonstandard data-names 447-448 
object module location 436 
parametric routines 440-446 
ALS-ROUT 

descriDtion 441 
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flowchart 25 
CTB-ROUT 

description 441 
flowchart 242 
INT-ROUT 

description 441 
flowchart 255 
RET-ROUT 

description 441 
flowchart 254 
RLS-ROUT 

description 446 
flowchart 245 
ROL-ROUT 

description 441 
flowchart 24 9 
RST-ROUT 

description 441 
flowchart 248 
SAV-ROUT 

description 4 41 
flowchart 252 
USM-ROUT 

description 441 
flowchart 243 
producing fixed routines 47 
producing parametric routines 4*7 
Report Writer verbs 448 
residence in segmented program 121 
response to verbs 448-452 
routines 392-447 
RPT.LIN data item, from REDEFINES 

clause 45 
IST-ROUT routine, from GENERATE verb 44 
REPORT-CALL verb 448 
REPORT-ORIGIN verb 448 

processing with OPT 139,; 140 
REPORT-REORIGIN verb 448 
REPORT-RETURN- n verbs 448 
REPORT-SAVE-n verbs 448 
REPTAB table 323 
RERUN clause 

effect on coding 106 
processing in phase 10 41 
RERUNN switch (COMMON) 283,; 41 
RESERVE macro element 132 
RET-ROUT routine 
description 441 
flowchart 254 
RETURN verb 72 
REWIND bit in DTFs 66 
REWRITE statement 

output coding 463 
phase 11 processing 49 
processing using table pointers 42 
RGNCTR cell (COMMON) 
description 278 
used by phase 62 131 
RLD-text 123,14 
RLDTBL table 

description 324 

entries. for Relocation Dictionary 

(RLD) 116 
phase 60 processing 123 
phase 63 processing 139^140 
RLS-ROUT routine 
description 446 
flowchart 245 



RNMTBL table (phases 11, 12) 324 
RNMTBL table (phase 22) 

description 324 

Dictionary building 57 
ROL-ROUT routine 

description 441 

flowchart 249 
ROLTBL table 325 
root segment 48 
ROUNDED clause 

effect on EVAL string 88 

temporary result 99 
ROUTBL table 326 
RPF-ROUT routine 

description 446 

flowchart 258 
RPH-ROUT routine 

description 446 

flowchart 247 
RPNCTR cell (COMMON) 

description 279 

used by phase 62 131 
RPT.LIN cell 447 
RPT-RCD cell 447 
RPTSAV AREA field (TGT) 

description 434 

space allocation 113 
RPTSAV cell (COMMON) 

description 27 8 

TGT space allocation 113 
RST-ROUT routine 

description 441 

flowchart 248 
RWRTBL table 

checking for priming 45 

description 326 

priming by phase 10 44 

use by phase 12 45 
RWS (see Report Writer Subprogram) 
RWl counter 112 



S.nnnn name cells 448 
S-point name cells 448 
SAME AREA clause 

BUFTAB table entries 68 

processing in phase 10 41 
SAME clause 41 
SAME RECORD AREA clause 

BUFTAB table entries 68 

effect on coding 106 

processing in phase 10 41 
SAME SORT AREA clause 41 
SATBL table 

description 327 

processing in phase 10 41 
SAV-ROUT routine 

description 441 

flowchart 252 
SAVE AREA field (TGT) 434 
SAVE AREA=2 field (TGT) 434 
save areas 418 
SA2CTR cell (COMMON) 278 
SBL (secondary base location) 472 
SBL CELLS field (TGT) 

assigning SBL 57 
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description 434 

OCCURS... DEPENDING ON clauses 58 

Q-routines 57,59 

space allocation 113 
SBL number 

assignment 57 

definition 472 

variably located fields 59 
SBLCTR cell (COMMON) 277 
scaling 118 

SD (see sort description entries) 
SD element 

(see also sort description entries) 

Data IC-text 341 

Dictionary entry 3 85 
SDSIZ cell (COMMON) 279 
SDSRATBL table 

description 327 

use in phase 21 68 
SDTF 

address element 67 

location 67 

location in object module 430 

location in storage 419 

number assigned 67 

order of addresses 419 
SDTFADR, space in PGT 435 

allocation 117 , 131 
SDTFCTR cell (COMMON) 

allocating PGT space 117 

description 282 
SDTXT routine 57 
SEARCH ALL Statement 

example of processing 89-91 

flow of execution 91 

output 90 

phase 40 processing 89-91 
SEARCH routine 

STSRCH routine processing 74 

uniqueness of names 75 
SEARCH statement 

phase 30 processing 74-77 

uniqueness of names 75 
SEARCH verb analyzer 8 9 
SEARCH verb, Format-1 75-76 
SEARCH verb. Format- 2 77 
SEARCHALL routine 8 9 
secondary base location (SBL) , 

definition 472 
sect ion- names, PERFORM delimiters 85 
section 1. introduction 13-23 
section 2. method of operation 24-148 
section 3- program organization 149-258 
section 4« directory ^259-274 
section 5, data areas 275-408 
section 6- diagnostic aids 409-420 
SEEK statement 

output coding 467 

phase 51 processing 106 
SEGINDX table 

built in phase 65 127 

description 327 
SEGLMT cell (COMMON) 

checking in phase 51 108 

description 279 

setting contents 40 

testing in phase 51 105 

use in phase 11 48 



SEGMENT element 

(see also Debug-text) 

phase 65 processing 126 

use in building Debug File 126 
SEGMENT-LIMIT clause 

effect on root segment 121 

priority number 40 

processing in phase 11 48 

storing priority number 40 
segmentation control breaks 104 
segmentation feature 

ALTER statement 83 

control break 78 

definition 472 

description 438-439 

operations in phase 00 34 

optimization 

order of reading segments 140,141 

procedure branching 108 

root segment 141 

segmentation control break 104 

passing control breaks 92 

PERFORM statement 85 

phase 51 processing 104 

priority checking 48 

Procedure A-text processing 121 

procedure branching 108 

procedure-names 78 

root segment 121 

segment locations 438 

segment names 39 

SYMDMP processing 127 

use of CONTBL and CONDIS tables 118 
SEGNOTE function 104 
SEGPROC routine 122 
SEGSAVE cell 124 
SEGTBL table 

description 327 

processing Procedure A-text 121 

segment addresses 104 

use by phase 60 34 
SELECT clause 40 
SELSCN routine 40 
SEQ option 22 
SEQERR cell (COMMON) 277 
SET statement 96 
SETL macro instruction 106 
SETTBL table 

description 328 

processing verb strings 81 
SEVTBL table 147 
size of phases 13 
size of records 6 
SKPLNK routine 

action at end of compilation 27 

issuing EOJ macro 28 
SMERGE routine 73 
SMSTBL table 329 
SNF routine 127 
SNMTBL table 329 
SORT CORE SIZE field (TGT) 434 
sort description entries (SDs) 

assignment of BL number 57 

Dictionary entries 60 

dummy Dictionary entries 55 

processing in phase 10 42 

processing in phase 20 53 

processing in phase 21 60 
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SORT FILE SIZE field (TGT) 434 

SORT MODE SIZE field (TGT) 434 

SORT RET field (TGT) 434 

SORT SAVE field (TGT) 434 

SORT verb processing 149 

SORT verb strings 73 

SORTAB AEDRESS field (TGT) 434 

SORTPROC routine 6 

source element, definition 341 

source program 

branching verbs 47 
commas as decimal points 40 
debugging packet 82 
Declaratives Section, USE 

processing 106 
file description entries (FDs) 
assignment of BL number 55 
Dictionary entries 57,60 
dummy dictionary entries 55 
processing in phase 10 42 
processing in phase 20 53 
processing in phase 21 60 
file-name processing 72 
FIPS flagging 148 
group item processing 53 
I/O verb processing 49 
LD (see record description entries) 
level-number entries (see record 

description entries) 
Lister processing 38, 1-38. 4 
listing 39 
LVL option 22 

MOVE statement processing 81 
procedure- names 

point of definition 48 
processing in phase 11 50 
RD, partial dictionary entries 57 
READ verb processing 72 
record description entries (LDs) 
completed dictionary entries 57 
dictionary entries 57,55 
processing in phase 10 42 
processing in phase 20 55,57 
translation in phase 20 52 
reformatting 18 
report description entries (RDs) partial 

dictionary entries 57 
scanning by phase 8 148 
SDs (see sort description entries) 
section, definition 121 
SEGMENT, definition 121 
sort description entries (SDs) 
assignment of BL number 57 
Dictionary entries 60 
dummy Dictionary entries 55 
processing in phase 10 42 
processing in phase 20 52 
processing in phase 21 60 
verb processing in phase 11 49 
verb profiles (VERBREF, VERBSUM) 23 
SPACE option 22 
SPACING cell (COMMON) 281 
SPCREG area 75 
special registers 75,78 
SPECIAL- NAMES paragraph 40 
SPNTBL table 

ACCEPT entries 4 0,49 
description 330 



DISPLAY entries 40,49 

entries by phase 10 40 

REWRITE entries 4 9 

WRITE entries 49 

WRITE AFTER entries 40 

SRA routine 68 
SRAMAX table 

description 33 

use in phase 21 68 
SRATBL table (phase 10) 

description 33 

processing in phase 10 41 

processing in phase 21 68 
SRATBL table (phase 21) 331 
SRCHKY table 

description 331 

syntax checking 59 
SRCHTB routine 53 
SRCTBL table 331 
SRTRERUN cell (COMMON) 286 
SSATBL table 

description 332 

processing in phase 10 41 
SSCRPT routine 96 
START macro instruction 92 
START statement 

output coding 467 

phase 51 processing 106 
STATE option 

CARDINDX table 290 

compiler overview 20,475-4 80 

Debug File 395-405 

Debug- text 384 

definition 22,126 

file handling 29-34 

parameters 35 

phase 50 processing 99 

phase 51 processing 105 

phase 65 processing 126,127 

PHZSW2 switch (COMMON) 284 

Procedure A-text processing 118 
segmented program 122 

SEGINDX table 327 

SWITCH field of TGT 434 

TGT fields 112 

TGTADTBL table 333 

verb processing for 93 

verb strings 105-107 

virtuals required 99 
STATIC routine 428 
STOP RUN verb analyzer 105 
storage 

allocation for PGT 112 

allocation for PGT with OPT 130,131 

allocation for TGT 112 

allocation for TGT with OPT 130 

COBOL space 426 

contents during phase 20 52 

contents during phase 22 55 

data locations 418 

Dictionary area 425 

Dictionary location 428 

DTF location 418 

free area 428 

layout during compilation 
buffer contents 410 
compiler 13 
current phase 409 
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location of inf orination in 13 

required for phases 13 
STRING table 

COMPUTE processing 8 9 

description 332 

MOVE statements 81 

processing verb strings 81 

purpose 81 
STSRCH routine 72^74 
STXIT option 

definition 22 

processing OPEN statements 106 
SUBADR CELLS field (TGT) 

assigning subscript save cells 98 

description 434 

ON verb processing 105 

space allocation 113 
SUBCTR cell (COMMON) 

description 281 

ON verb processing 105 

TGT space allocation 113 
SUBDTF ADDRESS CELLS field (PGT) 

description 436 

locating on SDTF 419 

space allocation 117 
subject hierarchy, definition 472 
subroutine (see COBOL subroutines) 
SUBSCRIPT String 81,82 
SUBSCRIPT verb 93 

subscripted MOVE, output from phase 4 82 
subscripted references 

calculating addresses 93-95 
data-names 94 
formula 9 4 
literals 94 

mixed literals and data-names 95 
rules 93 
use of 'PICTURE 93 

DATATAB entries 4 02 

optimizing 95 

resolving in phase 50 93-95 
SUBTRACT verb processing 72 
SUMTBL table 332 
SUPMAP 

definition 22 

determining error severity 111 

effect on PGT listing 116 

effect on phase 60 118 

effect on phase 7 146 

listing TGT 112 

literal pool 115 
SWITCH cell (COMMON) 28 3 

set by phase 65 112 
SWITCH field (TGT) 434 
SWITCHIX cell (COMMON) 285 
SWITV2 cell (COMMON) 282 
SXREF option 

definition 22 

effect on file SYS004 123 

output of phase 6 11 

phase 60 processing 111,118 

phase 61 processing 144,145 

phase 64 processing 141 
SYM option 

definition 21,71 

effect on PGT listing 116 
SYMDMP option 

buffer assignments 36 



CARDINDX table 290 

compiler overview 20,475-480 

Debug File 395-405 

Debug- text 384 

definition 22,126 

Dictionary 19 

E-text element 38 2 

file handling for 29-34 

INIT3 instructions 438 

OBODOTAB processing 6 9 

0D2TBL table 42 

parameters 35 

phase 25 processing 69 

phase 50 processing 99 

phase 51 processing 105 

phase 60 processing 118,122 

phase 65 processing 126,127 

PHZSW2 switch (COMMON) 284 

Procedure A-text processing 118 
segmented program 122 

Q-routine generation 58 

SEGINDX table 327 

SWITCH cell of COMMON 283 

SWITCH field of TGT 434 

tables built by phase 22 59 

TGT fields 112 

TGTADTBL table (TIB18) 333 

verb processing for 93 

verb strings 105,106 

VARLTBI table 336 

virtuals required 99 
syntax analysis in phase 10 43 
syntax errors in phase 05 38.1 
SYNTAX option 

(see also CSYNTAX option) 

definition 23 

phase 01 processing 35 
SYSIPT 

buffer control block 410 

buffer sizes 35,37 

opening 37 
SYSLNK 

buffer control block 462 

buffer sizes 35,37 

opening 37 
SYSLST 

buffer sizes 35,37 

change to SYS006 38 

control block 410 

cross-reference list 144,145 

E-text 146 

glossary listing 71 

listing by phase 07 38.3 

listing by phase 08 38.4 

listing by phase 10 39 

listing of Identification Division 40 

listing of Report Section 44 

literal pool 115 

opening 37 

output of options 21 

PGT listing 116 

phase 70 146 

phase 80 148 

Procedure A-text output 118 
SYSnnn files 

buffer sizes 35,37 

opening 37 
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SYSPCH 

buffer control block 410 

buffer sizes 35,37 

opening 37 
SYS004 contents 123 
SYS005 file 

(see also Debug File) 

buffer assignments 36 

compiler file handling 29-34 

phase 25 processing 69 

phase 65 processing 127;, 128 

sequence of phases 28 
SYS006 file 38,21 

TA LENGTH field (TGT) 

description 472 
table 

(see also compiler tables) 
definition 472 
maximum size 426 
table and dictionary area 421 
table and dictionary handling 421-429 
table area 427 
Table Area Management Executive Routines 

(see TAMER) 
Table Area Management Map (see TAMM) 
table control fields 425-426 
table formats 287-340 
table handling (see TAMER) 
Table Information Block (see TIB) 
table of contents diagram 481 
tables used by phases 263,459 
TABREL routine 428 
TALLY field (TGT) 434 
TAMAREA cell 37 
TAMEIN routine 422,426 
TAMEOP routine 428 
TAMER 

control fields 425-426 

(see also TIB; TAMM; MASTAM) 
definition 472, 421 
error handling 34 
function 34 
GETALL routine 144 
location 425,421 
processing between phases 24-26 
routines 

DICSPC 427 
GETALL 429 
INSERT 428 
MOVDIC 427 
PRIME 427 
STATIC 428 
TABREL 428 
TAMEIN 426,422 
TAMEOP 428 
TBGETSPC 427 
TBREADIC 429 
TBSPILL 428 
TB WRITE 42 8 
saving registers 418 
TAMER space, definition 472 
TAMER tables 287-340 
TAMM 

address 425 
contents 425 
description 425 
format 425 



locating tables 410 
location in storage 426 
TAMNAD cell (COMMON) 275 
Task Global Table (TGT) 430,432-435 
base register 122 
concept 43 
diagram of fields 432 
fields 432-435 

A(INITl) 432 

BL CELLS 432 

BLL CELLS 432 

CHECKPT CTR 432 

COUNT CHAIN ADDRESS 432 

COUNT TABLE ADDRESS 432 

CURRENT PRIORITY 43 2 

DEBUG TABLE PTR 432 

DEBUG TABLE 432 

DTFADR CELLS 432 

ENTRY- SAVE 432 

INDEX CELLS 432 

lOPTR CELLS 433 

LENGTH OF SORTTAB 433 

LENGTH OF VN TBL 433 

NSTD-REELS 433 

ONCTL CELLS 433 

OVERFLOW CELLS 433 

PARAM CELLS 433 

PFMCTL CELLS 433 

PFMSAV CELLS 433 

PGM ID 433 

PGT-VN TBL 433 

PROCEDURE BLCCKIPTR 434 

RPTSAV AREA 434 

SAVE AREA 434 

SAVE AREA=2 434 

SBL CELLS 434 

SORT CORE SIZE 434 

SORT FILE SIZE 434 

SORT MODE SIZE 434 

SORT RET 43 4 

SORT SAVE 4 34 

SORTAB ADDRESS 434 

SUBADR CELLS 434 

SWITCH 434 

TA LENGTH 434 

TALLY 434 

TEMP STORAGE 434 

TEMP STORAGE- 2 435 

TEMP STORAGE-3 435 

TEMP STORAGE- 4 435 

TGT-VN TBL 435 

UPSI SWITCHES 435 

VLC CELLS 435 

VN CELLS 435 

WORKING CELLS 435 

XSA CELLS 435 

XSASW CELLS 435 
location of fields 112 
location in object module 430 
overall length 112 

residence in segmented program 121 
storage allocation 112 
UPSI bit switches 58 
using PN^ GN, and VN 58-59 
variable-length fields 

COMMON counters 112 

determining location 112 

discussion 112 
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lengths 58 
TBGETSPC routine 427 
TBREADIC routine 429 
TBSPILL routine 428 
TBWRITE routine 42 8 
TEMP STORAGE field (TGT) 

description 434 

space allocation 113 
TEMP STORAGE-2 field (TGT) 

description 435 

space allocation 113 
TEMP STORAGE-3 field (TGT) 

description 435 

space allocation 113 
TEMP STORAGE-4 field (TGT) 

description 435 

space allocation 113 
teiiiporary register assignitients 132 
temporary result 99 
temporary storage 98 
TER-COD cell 309 
TER14INATE statement 

diagram of RWS response 452 

phase 11 actions 44 

RWS response 449 
terminating compilation 24 
text formats 341-384 
texts (see internal texts) 
TGT (see Task Global Table) 
TGT-VN TBL field (TGT) 435 
TGTADTBL table 333 
TGTINT routine 112 
THRU option 85 
TIB (Table Information Block) 

address 425 

contents 425 

definition 472 

description 425 

format 425 

locating tables 410 
TIB cells (COMMON) 275 
TIME cell (COMMON) 282 
TMCNTBSZ cell (COMMON) 282 
transient area, definition 472 
transient area for segmented program 438.1 
TRMNATE routine 27 
TRUNC option 23 
TS area 98 
TS cells 98 
TSMAX cell (COMMON) 

description 276 

relation to XAVAL table 98 

TGT space allocation 113 
TSTWRO routine 71 
TS2MAX cell (COMMON) 

description 277 

TGT space allocation 113 
TS3MAX cell (COMMON) 

description 279 

TGT space allocation 113 
TS4MAX cell (COMMON) 

description 279 

TGT space allocation 113 
TXPNCH routine 127 

TYPE. IS DETAIL clause, locating DET-ROUT ' 
routine 452 



unrecoverable error conditions 34 
UPSI 

bit switches 58 

definition ^ 473 
UPSI routine 58 
UPSI SWITCHES field (TGT) 

contents 58 

description 43 5 
UPSI-n clause 40 
UPSTBL table 

description 334 

entries by phase 10 40 

use in Dictionary building 58 
USAGE clause 53 
usage for group items 53 
USE statement 

ON clauses 50 

output coding 469 

phase 11 actions 44 

phase 51 processing 106 
USM-ROUT routine 

description 441 

flowchart 243 
USNGTBL table 335 



VALGEN routine 53 
VALGRP table 

description 335 

generating Data A-text 58 

produced and passed by phase 20 52 
VALTRU table 

description 335 
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verb processor 93 
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definition 473 
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